Select Statement in ein Listenfeld einlesen

[strolli]

Hallo,
ich bin Anfänger was Access + VBA angeht.
Ich habe eine Variabel "varid" in der ein Zahl enthalten ist.
Nun möchte ich mit dieser Variablen eine SQL - Statement ausführen und das Ergebnis dann gerne in eine Listbox ausgeben lassen. Folgenden Code habe ich bereitdas

Code [Auswählen] Erweitern



varid = Me.OpenArgs
MsgBox "Firmen_id:" & idvar
sqlstr = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description * FROM takeoff where firmenid =" & varid & ";"

Me.RecordSource = sqlstr


Mit Me.RecordSource müßte ich doch nun das Statement ausführen?!?! Oder ?
Aber wie geht es nun weiter?

Gruß
Strolli

[strolli]

Achso, hatte noch vergessen,

Code [Auswählen] Erweitern


strVariable = [Tabelle.Feld]
Me.Liste4.Value = strVariable

Liste4 ist die neue Lsitbox, in der die Werte eingeführt werden sollen.
Aber eigentlich müßte ich doch die Abfrage mit einer While Schleife durch laufen lassen. Wie ist denn bei einer SQL Anweisung dann die Synthax?

[blackoutNO]

Hallo,

die Datensatzquelle für eine Listbox ändert man mit

Code [Auswählen] Erweitern

Me.Listboxname.RowSource

[strolli]

Ich habe nun folgenden Code eingegeben:

Code [Auswählen] Erweitern


firmenid = Me.OpenArgs
MsgBox "Firmen_id:" & firmenid
 Me!List6.RowSource = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff where" & firmenid & ";"

Ich bekomme nun allerdings keine Ergebnisse. Muß noch suchen wie ich das SQL - Statement ausführe oder ?

[blackoutNO]

Hallo,

Nach dem code noch ein

Code [Auswählen] Erweitern

Me.Liste6.Requery

[strolli]

sorry, aber dann passiert leider nichts

Code [Auswählen] Erweitern


Dim sqlstr
Dim strVariable


firmenid = Me.OpenArgs

 Me!Liste6.RowSource = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff where" & firmenid & ";"
 Me.Liste6.Requery


[blackoutNO]

Code [Auswählen] Erweitern


Dim intKrit as integer

intKrit = Me.OpenArgs

  Me!Liste6.RowSource = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff " & _
                                        "where Firmenid = " & intKrit
  Me.Liste6.Requery

[strolli]

Ähm, habe ich doch auch so gemacht !
Was ist denn nun bei Dir anders

[blackoutNO]

Erstmal die Rückfrage: Gehts?^^

[strolli]

nein, leider nicht.
Je mehr ich darüber nachdenke kommt mir die komplexität bei Access zutage.
welche Eigenschaften sollte ich denn hier die Listbox (Liste6)  geben?
Herkunftstyp?
Datensatzherkunft? u.s.w

[blackoutNO]

Ok, nochmal von vorne.
Du übergibst mit Openargs ein Argument. Dieses Argument ist was? Ein string oder eine Zahl?

so würde der Code aussehen wenn dein Argument eine Zahl ist:

Code [Auswählen] Erweitern

Dim strSQL as string
strSQL = "SELECT * FROM TabellenName " & _
"WHERE Kriterienfeld = " & Me.Openargs
Me.Liste6.RowSource = strSQL
Me.Liste6.Requery

Und so wenn dein Kriterium ein string(Buchstaben, zeichen & Zahlenkombination):

Code [Auswählen] Erweitern

Dim strSQL as string
strSQL = "SELECT * FROM TabellenName " & _
"WHERE Kriterienfeld = '" & Me.Openargs & "'"
Me.Liste6.RowSource = strSQL
Me.Liste6.Requery

[strolli]

ich übergebe eine Zahl
d.h. folgender Code ist nun enthalten

Code [Auswählen] Erweitern


Dim sqlstr As String

firmenid = Me.OpenArgs
MsgBox "Firmen_id:" & firmenid
' sqlstr
 'Me!Liste6.RowSource =
 strSQL = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff where" & firmenid
 Me.Liste6.RowSource = strSQL
 Me.Liste6.Requery


Jetzt bekomme ich in der ersten Spalte der Liste6 "select takeoff.id,"

[blackoutNO]

Hallo,

du hast meine Codes nicht ordentlich gelsen. In der WHERE-Klausel musst du schon angeben, welches Feld mit firmenid verglichen werden soll.

Code [Auswählen] Erweitern

Dim sqlstr As String

MsgBox "Firmen_id:" & Me.OpenArgs
' sqlstr
  'Me!Liste6.RowSource =
  strSQL = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff where takeoff.firmenid = " & Me.OpenArgs
  Me.Liste6.RowSource = strSQL
  Me.Liste6.Requery

[strolli]

okay sorry, hab ich übersehen.
mußte es aber ein wenig anders machen, da in der Variable bereits "firmenid=" enthalten ist
also habe ich folgende Zeile nun

Code [Auswählen] Erweitern

strSQL = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff where takeoff." & firmenid
Wenn ich mir nun das SQL Statement ausgeben lasse (Msgbox) erhalte ich folgendes
"SELECT  takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff where takeoff.firmenid=2"
Das scheint also zu stimmen. Trotzdem bekomme ich kein Ergebnis nur die ersten Wörter der SQL abfrage.
Ich glaube, das SQL Statement wird auf der DB Tabelle gar nicht ausgeführt oder ?

[blackoutNO]

Hallo,

also ist in deinen Openargs, doch ein string enthalten?!
Ich hab dir mal ein Beispiel gebastelt. Damit du das ganze nachvollziehen kannst.





[Anhang gelöscht durch Administrator]