VB6 & Mysql Help

[CrimeTime]

Hallo leute,
kann mir jemand von euch erklären wie ich mit visualbasic6 von einer Mysql Datenbank tabels abfragen kann oder in die tabels was eintragen kann wäre sehr nett.

p.s. die Connection besteht schon.
Gruss CrimeTime

 

[Alex F.]

Abfragen: Über Recordsets BSP

Dim res as adodb.recordset 

set res = connect.Openrecordset("Select Feld1 From Tabelle1") 

While not res.eof
   debug.print res!Feld1 
   debug.Print res.Fields("Feld1").value ' alternative 1
   debug.Print res.Fields(0).value ' alternative 1
   res.eof
wend

Eintragen kannst du über die
Connection.Execute Methode
BSP :

   connect.Execute ( "INsert into Tabelle1 (Feld1) Values ('Pipapo') ")

oder einfach wie 1 einfach überschreiben und ein Res.Update aufrufen

Grüsse bb

 

[CrimeTime]

danke werde es sofort versuchen

 

[CrimeTime]

wie mache ich es wenn ich es so habe

dim Username as string

username = xyz data

connect.Execute ( "INsert into Tabelle1 (users) Values ('nur wie hier? das der Username da is') ")

 

[Alex F.]

dim username as string
username = "Gustav Gans"
connect.Execute ( "INsert into Tabelle1 (users) Values ( ' " & username  & " ' )" )

Grüsse bb

 

[ronaldh]

Ich empfehle Dir, mal folgendes durchzuarbeiten:

http://www.activevb.de/tipps/tipkat/kat9.html

Dann kommst Du sicherlich weiter.

Grüsse
ronaldh

 

[CrimeTime]

danke Brain

kannste mir auch noch sagen wie ich sowas auslese

z.b.

ich brauche den Username von der Datenbank oder das Password.

 

[Alex F.]

wie oben beschrieben

Dim res as adodb.recordset  
set res = connect.Openrecordset("Select PWD From Tabelle1")  
While not res.eof   
debug.print res!PWD    
debug.Print res.Fields("PWD").value ' alternative 1 
 debug.Print res.Fields(0).value ' alternative 1  
 res.movenext
wend

 

[CrimeTime]

ich habe nun dies probiert

Dim sql As String
Dim rs As New adodb.Recordset
Usaname = "armz"
sql = "SELECT password FROM users WHERE username = '" & Usaname & "'"
'select * from Tabelle where Text
rs.Open sql, Mysql_Connection
MySQL.Last_Query = rs.GetString
txttestx.Text = sql
rs.Close

aber es geht nicht

 

[Alex F.]

würde ich es mit like statt = versuchen wegen casesensitivity