Wie kann ich mir Visual Basic automatisch eine MySQL Tabelle erzeugen.
Ich möchte mir ein Adressbuch schreiben und brauche dazu solche Felder wie Vorname, Nachname usw. in der Tabelle.
Danke für eure Hilfe.
Gruß björn.
Mit ADO ganz einfach - Du brauchst nur über die Connection ein SQL-Statement rüberschicken:
adoConnection.Execute „CREATE TABLE address…“
OK?
Gibt bei VB kein Datenbank Connect?
Ich muß VB doch irgendwie mitteilen welche Art von Datenbank es nutzen soll.
Wie kann ich eine MySQL Tabelle „Adresse“ mit den Feld „Vornamen“ mit ADO anlegen?
MySQL läuft bereits auf meinem Rechner.
Kannst du mir die paar Zeilen einmal aufschreiben?
Dann könnte ich es besser verstehen.
Danke für deine Mühe.
Gibt bei VB kein Datenbank Connect?
natürlich, mit dem ADODB.Connection Object
Ich muß VB doch irgendwie mitteilen welche Art von Datenbank
es nutzen soll.
Wie kann ich eine MySQL Tabelle „Adresse“ mit den Feld
„Vornamen“ mit ADO anlegen?
MySQL läuft bereits auf meinem Rechner.
Kannst du mir die paar Zeilen einmal aufschreiben?
klar doch
Dann könnte ich es besser verstehen.
Danke für deine Mühe.
Erstelle ein neues Projekt und platziere 2 CommandButtons auf dem Form und benenne sie „Tabelle erstellen“ und „Tabelle befüllen“.
Kopiere nun folgendes in den Form-Code:
Option Explicit
Private adoCnn As New ADODB.Connection
Private adoRst As New ADODB.Recordset
Private Sub Form\_Load()
'open connection, simple example with only 1 parameter (ODBC-DSN)
adoCnn.Open "DSN=PROLIANT\_DIEBOLD"
End Sub
Private Sub Command1\_Click()
'execute statement without return
adoCnn.Execute "CREATE TABLE Adresse (Vorname nvarchar(50) NOT NULL)"
End Sub
Private Sub Command2\_Click()
'open recordset from table create above
adoRst.Open "SELECT \* FROM Adresse", adoCnn, adOpenDynamic, adLockOptimistic
'add new record to table
adoRst.AddNew
'set value to field
adoRst.Fields("Vorname").Value = "Björn"
'update changes
adoRst.Update
MsgBox "Datensatz " & Chr(34) & adoRst(0) & Chr(34) & " angelegt!", vbInformation + vbOKOnly
End Sub
Private Sub Form\_Unload(Cancel As Integer)
'close connection
adoCnn.Close
'destroy adodb objects
Set adoCnn = Nothing
Set adoRst = Nothing
End Sub
Fehler beim Kompilieren
Danke für das Script.
Das hat mir einiges klarer wirken lassen.
Nun habe ich es versucht zu kompilieren und daraufhin bekam ich eine Fehlermeldung.
„Benutzerdefinierter Typ nicht definiert“
Und das Cursor bleibt bei „adoCnn As New ADODB.Connection“
stehen.
Ich glaube das liegt daran da ich noch keine ODBC Schnittstelle eingerichtet habe. Kann das sein.
Wenn ja was muß ich dort eingeben?
Danke.!
Du hast keine Referenz auf die Bilbiothek gesetzt. Menü Projekt/Referenzen, und dann Microsoft ActiveX Data Objects 2.x auswählen - dann funktioniert’s!
Ein kleiner Buch-Tip:
**Visual Basic Datenbankentwicklung,
Cient/Server-Systeme
Addison-Wesley-Verlag
ISBN 3 8273 1429 1
VG, Stefan.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]**
Ich habe die Einstellungen nach deiner Beschreibung vorgenommen.
Nun ist ein anderer Fehler aufgetreten.
„Laufzeitfehler“
Was hat das zu bedeuten?
Hast du dafür auch eine Lösung?
Danke für den Buchtipp.
Werde mir das Buch kaufen.
Dann mußt Du erst den MSDAC 2.x installieren!!
Wenn Du Dich mit MySQL auskennst, dann nimm doch einfach die MyVBQL.DLL (http://www.icarz.com/mysql/) und greife damit direkt von VB aus über die MySQL-API der libmysql.dll auf den MySQL-Server zu.
Das hat den, meiner Meinung nach, sehr grossen Vorteil, dass Du Dich nicht mit ODBC, MDAC & Co. von Microsoft herumschlagen musst und auf dem Zielrechner, auf dem die Anwendung laufen soll, nicht erst überflüssige Datenbanktreiber installieren musst. Die beiden DLL’s dazugepackt und fertig ist’s.
Gruß
Heiko