mysql og vb kort spg.

Ok nu virker det :-) så jeg tillader mig lige art adde et spørgsmål mere i dette spg.

jeg har følgende kode stump (meget simpelt) men jeg leger også bare med tanken. normalt bruger jeg php mod mysql.

Sub DB_Conn()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
   
'Variable til parametre til oprettelse af connection
Dim strConn As String

strConn = "Driver={MySql}; Server=localhost; Option=16834; Database=havmaage;"

Conn.Open strConn, "e_novative", "e_novative"

Dim SQLstring As String

SQLstring = "SELECT * FROM People"

rs.Open SQLstring, Conn, adOpenStatic, adLockReadOnly, adCmdText

End Sub

Private Sub Command1_Click()
DB_Conn
End Sub


OK jeg for ingen fejl hvilket må betyde at jeg får logget på databasen og art jeg for udført mit sql statement.

men hvor kan jeg se hvad select returnere. Kan man ikke sætte det ind i et array eller type collectipon etc... jeg vil bare have resultatet af min select at se :-)

Det kræver vel bare, at du skriver det ud.
Der er jo ingenting der antyder det i din kode :O)

- Mikker

Kan du bruge nedstående til noget?

Private Sub Command1_Click()
Set dbbrugere = DBEngine.Workspaces(0).OpenDatabase("G:\mm_brugere.mdb")
strSQL = ("SELECT * FROM brugere")
Set rstbrugere = dbbrugere.OpenRecordset(strSQL, dbOpenForwardOnly)
Do While Not rstbrugere.EOF
List1.AddItem rstbrugere!navn & " - " & rstbrugere!id
rstbrugere.MoveNext
DoEvents
Loop
End Sub

- Mikker

Nu gætter jeg bare:

Fra din kode:

rs.Open SQLstring, Conn, adOpenStatic, adLockReadOnly, adCmdText
'tillæg:
Do While Not rs.EOF
debug.print rs!navn
rs.movenext
loop
End Sub

Takker, men kunne du bruge noget af det overhovedet? :O)

- Mikker

Jeps! Det virkede fint, jeg er gammel vb4 programmør, men har ikke rørt det siden :-) Og så har jeg opdaget at det kan være sjovt at rode med vb igen. Så det meste er rent opfriskning. Alle de forskellige metoder til de forskellige controller etc.... Kan sgu ikke rigtig huske andet end syntaxen i sproget hvis jeg skal være ærlig, men tak for hjælpen