Visual Basic Login mit MYSQL Datenbank

Trainee

Saturday, April 17th 2010, 9:15am

Visual Basic Login mit MYSQL Datenbank

Hey! =)

Brauche wiedermal hilfe von euch.. Hab die letzten 10 tage mit Visual-Basic Programmiert... Hab auch schon ein Login mit einer ACCSESS Datenbank geschaffft.. nun will ich aber, dass man sich immer mit den zugangsdaten der homepage einloggen kann, und man dann auch andere daten von dem benutzer holen kann..

Hier mal die Homepage: www.slaytronic.de

Die ganzen daten der Datenbank weis ich natürlich usw... Und mit datenbanken kenne ich mich auch seehr gut aus, da ich ein PHP Coder bin..

Hab google schon viel gesucht, aber net wirklich fündig geworden

mfg.

Torben Brodt

Administrator

Posts: 8,454

Monday, April 19th 2010, 8:51am

Moin,
der Zugang zu MySQL ist nicht ganz so nativ wie das Paket der beiden Microsoft Produkte.
Aber ODBC ist ein gängiger Wrapper, schau mal ob du mit der Anleitung hier klar kommst: http://openbook.galileocomputing.de/eins…_kap_08_006.htm

VisualBasic Quellcode

Public Class frm0803 
   Private Sub cmdSehen_Click( ... ) Handles ... 
      Dim con As New Odbc.OdbcConnection 
      Dim cmd As New Odbc.OdbcCommand 
      Dim reader As Odbc.OdbcDataReader 
 
      ' con.ConnectionString = "DSN=odbc_firma" 
      con.ConnectionString = "Provider=MSDASQL;" _ 
         & "Driver={MySQL ODBC 3.51 Driver};" _ 
         & "Server=localhost;UID=root;" _ 
         & "database=firma" 
      cmd.Connection = con 
      cmd.CommandText = "select * from personen" 
 
      Try 
         con.Open() 
         reader = cmd.ExecuteReader() 
         lstTab.Items.Clear() 
         Do While reader.Read() 
            lstTab.Items.Add(reader("name") & " # " _ 
               & reader("vorname") & " # " _ 
               & reader("personalnummer") & " # " _ 
               & reader("gehalt") & " # " _ 
               & reader("geburtstag")) 
         Loop 
         reader.Close() 
         con.Close() 
      Catch ex As Exception 
         MsgBox(ex.Message) 
      End Try 
   End Sub 
[ ... ] 
End Class