[LIB]dbconnect

cyber · 05. 11. 2008, 11:29

Hej

Ich bin längere Zeit vor dem Problem gestanden, dass ich keine verbindung zu einer MySQL DB aufbauen konnte geschweigenden diese auszulesen, daher hab ich jetzt noch eine Lib geschrieben, die es euch vereinfacht

//Vorraussetzung ist der mysql connector, und danach der Verweis auf MySQL.data

Anwendung:

Verweis auf Lib, dann importen:

Code:

Imports dbconnect

und da wir für den Reader einen Stringbuilder brauchen, müssen wir noch

Code:

imports System.text

importieren

Dann ganz einfach zu verwenden:
zu einer Datenbank connecten:

eine neue Instanz:

Code:

Dim test as new dbconnect.dbcon()

und einfach weiterverwenden:

Code:

test.connect(connectionString als string, verbindung öffnen/schließen als boolean)

bsp.: 
Dim db as string
db = "server=127.0.0.1;" _
                    & "uid=username;" _
                    & "pwd=passwort;" _
                    & "database=datenbankname;"

test.connect(db,true)

und schon ist man zu einer datenbank verbunden

zum beenden der verbindung einfach: test.connect(db, false)

zum lesen aus einer datenbank:

Code:

Dim r As New dbconnect.dbread()

       'Der connection string
        Dim constring As String
       'das SQL command
        Dim sqlcom As String
      'der stringbuilder, der das ergebnis ausgeben soll
        Dim a As New StringBuilder
      'und das schlussendliche ergebnis
        Dim er As String
       
      'Beispoiel eines MySQL Commands
        sqlcom = "SELECT usermae FROM users WHERE uid = 1"

        constring = "server=127.0.0.1;" _
                    & "uid=username;" _
                    & "pwd=passwort;" _
                    & "database=datenbankname;"



        r.read(constring, sqlcom, a, er)

        er = a.ToString()

         'ergebnis z.B. in einer Textbox ausgeben lassen 
        TextBox2.Text = er

Ich hoffe es ist nützlich für euch,

Liebe Grüße

Proxx