collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 100
  • Punkt Versteckte: 2
  • Punkt Mitglieder: 2

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14160
  • stats Beiträge insgesamt: 68645
  • stats Themen insgesamt: 9248
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Select Statement in ein Listenfeld einlesen  (Gelesen 13525 mal)

strolli

  • Gast
Select Statement in ein Listenfeld einlesen
« am: Juli 06, 2010, 11:48:41 »
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

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

  • Gast
Re: Select Statement in ein Listenfeld einlesen
« Antwort #1 am: Juli 06, 2010, 11:54:13 »
Achso, hatte noch vergessen,
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?
 

Offline blackoutNO

  • Newbie
  • Beiträge: 44
Re: Select Statement in ein Listenfeld einlesen
« Antwort #2 am: Juli 06, 2010, 12:37:21 »
Hallo,

die Datensatzquelle für eine Listbox ändert man mit

Me.Listboxname.RowSource
Cheers
Jörn
 

strolli

  • Gast
Re: Select Statement in ein Listenfeld einlesen
« Antwort #3 am: Juli 06, 2010, 13:03:53 »
Ich habe nun folgenden Code eingegeben:
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 ?
 

Offline blackoutNO

  • Newbie
  • Beiträge: 44
Re: Select Statement in ein Listenfeld einlesen
« Antwort #4 am: Juli 06, 2010, 13:14:00 »
Hallo,

Nach dem code noch ein Me.Liste6.Requery
Cheers
Jörn
 

strolli

  • Gast
Re: Select Statement in ein Listenfeld einlesen
« Antwort #5 am: Juli 06, 2010, 13:16:50 »
sorry, aber dann passiert leider nichts

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
 

Offline blackoutNO

  • Newbie
  • Beiträge: 44
Re: Select Statement in ein Listenfeld einlesen
« Antwort #6 am: Juli 06, 2010, 13:26:38 »
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
Cheers
Jörn
 

strolli

  • Gast
Re: Select Statement in ein Listenfeld einlesen
« Antwort #7 am: Juli 06, 2010, 13:32:55 »
Ähm, habe ich doch auch so gemacht !
Was ist denn nun bei Dir anders
 

Offline blackoutNO

  • Newbie
  • Beiträge: 44
Re: Select Statement in ein Listenfeld einlesen
« Antwort #8 am: Juli 06, 2010, 13:35:43 »
Erstmal die Rückfrage: Gehts?^^
Cheers
Jörn
 

strolli

  • Gast
Re: Select Statement in ein Listenfeld einlesen
« Antwort #9 am: Juli 06, 2010, 13:41:25 »
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

 

Offline blackoutNO

  • Newbie
  • Beiträge: 44
Re: Select Statement in ein Listenfeld einlesen
« Antwort #10 am: Juli 06, 2010, 13:49:16 »
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:

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):

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

strolli

  • Gast
Re: Select Statement in ein Listenfeld einlesen
« Antwort #11 am: Juli 06, 2010, 13:56:37 »
ich übergebe eine Zahl
d.h. folgender Code ist nun enthalten
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,"
 

Offline blackoutNO

  • Newbie
  • Beiträge: 44
Re: Select Statement in ein Listenfeld einlesen
« Antwort #12 am: Juli 06, 2010, 14:08:10 »
Hallo,

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

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
Cheers
Jörn
 

strolli

  • Gast
Re: Select Statement in ein Listenfeld einlesen
« Antwort #13 am: Juli 06, 2010, 14:16:39 »
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 strSQL = "SELECT takeoff.id, takeoff.firmenid, takeoff.namen, takeoff.description FROM takeoff where takeoff." & firmenidWenn 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 ?

 

Offline blackoutNO

  • Newbie
  • Beiträge: 44
Re: Select Statement in ein Listenfeld einlesen
« Antwort #14 am: Juli 06, 2010, 14:26:56 »
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]
Cheers
Jörn
 

 

mit Execute "select... eine spalte einer Tabelle auslesen???

Begonnen von shadockBoard Access Programmierung

Antworten: 2
Aufrufe: 3134
Letzter Beitrag Juli 13, 2010, 15:00:28
von database
SELECT / INSERT / UPDATE zwei Access Tabellen

Begonnen von Ben.WischBoard Access Programmierung

Antworten: 2
Aufrufe: 3513
Letzter Beitrag September 21, 2010, 17:57:06
von Ben.Wisch
Select anfrage in delete umwandeln

Begonnen von paziBoard Tabelle/Abfrage

Antworten: 2
Aufrufe: 2380
Letzter Beitrag Oktober 19, 2010, 10:20:17
von pazi
SELECT Feld zusammensetzen

Begonnen von BorisBoard Tabelle/Abfrage

Antworten: 6
Aufrufe: 5523
Letzter Beitrag November 09, 2010, 18:07:50
von oma
SELECT ... WHERE ... IN ...

Begonnen von JunoBoard Access Programmierung

Antworten: 1
Aufrufe: 3474
Letzter Beitrag November 25, 2010, 14:18:15
von database