title image


Smiley Re: Mit VB 2005 auf MySQL Datenbank zugreifen
Hier ein Beispiel. Das Binding ist aber nicht dabei.



Public cn As New Odbc.OdbcConnection

Public da As New Odbc.OdbcDataAdapter

Public cmd As New Odbc.OdbcCommand

Public rs As Odbc.OdbcDataReader

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

cn.ConnectionString = "DSN=DVT;Protocol=6.4;LFConversion=1;Ksqo=1;UnknownSizes=0;Debug=0;UseServerSidePrepare=0;Parse=0;SERVER=localhost;ByteaAsLongVarBinary=0;TextAsLongVarchar=1;ReadOnly=0;FakeOidIndex=0;ConnSettings=;MaxLongVarcharSize=8190;MaxVarcharSize=254;Socket=8192;TrueIsMinus1=0;DisallowPremature=0;DATABASE=dvt;Optimizer=1;UID=dvt;ShowOidColumn=0;UseDeclareFetch=0;CancelAsFreeStmt=0;BI=0;CommLog=0;Fetch=100;UpdatableCursors=0;ExtraSysTablePrefixes=dd_;UnknownsAsLongVarchar=0;RowVersioning=0;PORT=5432;BoolsAsChar=1;ShowSystemTables=0"

cn.Open()

cmd.Connection = cn

'cmd.Connection.Open()

cmd.CommandType = CommandType.Text

cmd.CommandText = "SELECT datum, inhalt, kommentar, kuerzel, art, kid, id FROM ""public"".vkontakte"

da.SelectCommand = cmd

Try

' Eine Möglichkeit über den Datareader

rs = cmd.ExecuteReader()

While rs.Read()

Me.ListView1.Items.Add(rs("kuerzel"))

Me.ListView1.Items.Add(rs("kommentar"))

End While

' Zweite Möglichkeit über Dataset

Me.DataSet1.Clear()

da.Fill(Me.DataSet1, "vkontakte")

Catch ex As Exception

MsgBox("Fehler:" + vbCrLf + ex.ToString)

Finally

rs.Close()

cn.Close()

End Try




Gruss Uwe
Wenn weise Maenner nicht irrten, müssten die Narren verzweifeln. (Goethe)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: