gelöst mysql und Visualbasic
ComputerhelferFerdi (Level 1) - Jetzt verbinden
26.02.2008, aktualisiert 27.02.2008, 4180 Aufrufe, 5 Kommentare
Hallo
Wie kann wärend ich eine MYSQL Datenbank mit Visual Basic öffne die unterschiedlichen DSN abfragen.
Mein Problem ich definiere verschiedene DSN, wenn ich nun mein Prog starte mus ich immer schon die DSN eingeben, ich möchte aber gern ein Auswahlfenster haben.
"Mein Programm jedenfalls der Anfang"
Public Sub MakeBackupNow(ODBCBaseName As String, ByVal sBackupFile As String)
On Error Resume Next
Dim oConn As ADODB.Connection
Dim BaseMakeBackup As Recordset
Dim BaseMakeBackupCreate As Recordset
Dim DataBaseTables As Recordset
Dim prevIndex As String
Dim F As Integer
Dim m As Integer
Dim d As Integer
Dim ArraCountFeld(99)
Dim ArraCountWert(99)
Dim ZeilenString As String
Dim CheckPrimZeile As String
Dim CheckKeyZeile As String
Dim ZeilenStringCreate As String
Dim TabellenName As String
Dim DatenString As String
Dim dateinr As Integer
dateinr = FreeFile
' Backup-Datei öffnen
Open sBackupFile For Output As dateinr
' Verbindung zur MySQL-Datenbank herstellen
Set oConn = New Connection
Set BaseMakeBackup = New ADODB.Recordset
Set BaseMakeBackupCreate = New ADODB.Recordset
Set DataBaseTables = New ADODB.Recordset
oConn.Open "Provider=MSDASQL;DSN=fgrancis"
Hier am Ende hätte ich gern eine Abfrage.
Ferdi Neuhaus
Wie kann wärend ich eine MYSQL Datenbank mit Visual Basic öffne die unterschiedlichen DSN abfragen.
Mein Problem ich definiere verschiedene DSN, wenn ich nun mein Prog starte mus ich immer schon die DSN eingeben, ich möchte aber gern ein Auswahlfenster haben.
"Mein Programm jedenfalls der Anfang"
Public Sub MakeBackupNow(ODBCBaseName As String, ByVal sBackupFile As String)
On Error Resume Next
Dim oConn As ADODB.Connection
Dim BaseMakeBackup As Recordset
Dim BaseMakeBackupCreate As Recordset
Dim DataBaseTables As Recordset
Dim prevIndex As String
Dim F As Integer
Dim m As Integer
Dim d As Integer
Dim ArraCountFeld(99)
Dim ArraCountWert(99)
Dim ZeilenString As String
Dim CheckPrimZeile As String
Dim CheckKeyZeile As String
Dim ZeilenStringCreate As String
Dim TabellenName As String
Dim DatenString As String
Dim dateinr As Integer
dateinr = FreeFile
' Backup-Datei öffnen
Open sBackupFile For Output As dateinr
' Verbindung zur MySQL-Datenbank herstellen
Set oConn = New Connection
Set BaseMakeBackup = New ADODB.Recordset
Set BaseMakeBackupCreate = New ADODB.Recordset
Set DataBaseTables = New ADODB.Recordset
oConn.Open "Provider=MSDASQL;DSN=fgrancis"
Hier am Ende hätte ich gern eine Abfrage.
Ferdi Neuhaus
5 Antworten
- LÖSUNG SvenGuenter schreibt am 26.02.2008 um 13:57:58 Uhr
- LÖSUNG ComputerhelferFerdi schreibt am 27.02.2008 um 06:44:22 Uhr
- LÖSUNG SvenGuenter schreibt am 27.02.2008 um 08:47:50 Uhr
- LÖSUNG ComputerhelferFerdi schreibt am 27.02.2008 um 08:55:16 Uhr
- LÖSUNG SvenGuenter schreibt am 27.02.2008 um 13:18:41 Uhr
- LÖSUNG ComputerhelferFerdi schreibt am 27.02.2008 um 08:55:16 Uhr
- LÖSUNG SvenGuenter schreibt am 27.02.2008 um 08:47:50 Uhr
- LÖSUNG ComputerhelferFerdi schreibt am 27.02.2008 um 06:44:22 Uhr
LÖSUNG 26.02.2008 um 13:57 Uhr
Nur das ich dich richtig verstehe du willst gerne die DSN von Hand eingeben mit der du dich dann verbinden willst sehe ich das richtig?
Dann wäre es folgendermaßen
golbale public variable in der mainform als beispiel
Form mit Textfeld erzeugen
Dann folgendes
Wieder in der Form_Main
Nur zur Vollständigkeit. Du musst natürlich die Form mit dem Textfeld im Vorfeld laden also folgendermaßen
Gruß
Sven
Dann wäre es folgendermaßen
golbale public variable in der mainform als beispiel
01.
Public gv_dsnstring as stringForm mit Textfeld erzeugen
Dann folgendes
01.
form_main.gv_dsnstring = "Provider=MSDASQL;DSN=" & me.textfeld.text01.
o.Conn.open gv_dsnstringNur zur Vollständigkeit. Du musst natürlich die Form mit dem Textfeld im Vorfeld laden also folgendermaßen
01.
Public Sub MakeBackupNow(ODBCBaseName As String, ByVal sBackupFile As String) 02.
On Error Resume Next 03.
04.
Dim oConn As ADODB.Connection 05.
Dim BaseMakeBackup As Recordset 06.
Dim BaseMakeBackupCreate As Recordset 07.
Dim DataBaseTables As Recordset 08.
09.
Dim prevIndex As String 10.
Dim F As Integer 11.
Dim m As Integer 12.
Dim d As Integer 13.
Dim ArraCountFeld(99) 14.
Dim ArraCountWert(99) 15.
Dim ZeilenString As String 16.
Dim CheckPrimZeile As String 17.
Dim CheckKeyZeile As String 18.
Dim ZeilenStringCreate As String 19.
Dim TabellenName As String 20.
Dim DatenString As String 21.
Dim dateinr As Integer 22.
dateinr = FreeFile 23.
' Backup-Datei öffnen 24.
Open sBackupFile For Output As dateinr 25.
26.
form_dsnholen.show 27.
28.
' Verbindung zur MySQL-Datenbank herstellen 29.
Set oConn = New Connection 30.
Set BaseMakeBackup = New ADODB.Recordset 31.
Set BaseMakeBackupCreate = New ADODB.Recordset 32.
Set DataBaseTables = New ADODB.Recordset 33.
oConn.Open gv_dsnstring 34.
Sven
LÖSUNG 27.02.2008 um 06:44 Uhr
Hallo
Nicht ganz
Ich hätte gern ein Auswahlfenster in dem mir die unterschiedlichen System-DSN gezeigt werden, die angelegt sind. Besser wäre natürlich eine Möglichkeit die verschiedenen Datenbanken einzusehen, ähnlich wie wenn ich eine System-DSN anlege die Verbindunmgsdaten eingeben und dann kann man ja die Datenbank auswählen, ich meinen im ODBC-Datenquellen-Administrator unter SystemDSN.
Ferdi
Nicht ganz
Ich hätte gern ein Auswahlfenster in dem mir die unterschiedlichen System-DSN gezeigt werden, die angelegt sind. Besser wäre natürlich eine Möglichkeit die verschiedenen Datenbanken einzusehen, ähnlich wie wenn ich eine System-DSN anlege die Verbindunmgsdaten eingeben und dann kann man ja die Datenbank auswählen, ich meinen im ODBC-Datenquellen-Administrator unter SystemDSN.
Ferdi
LÖSUNG 27.02.2008 um 08:47 Uhr
Hi dann musst du dir die regestry auslesen in der HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\
stehen alle DSN die du angelegt hast in jedem Ordner findust du den Schlüssel dbq der den Pfad zur Datenbanl enthält.
Gruß
Sven Guenter
stehen alle DSN die du angelegt hast in jedem Ordner findust du den Schlüssel dbq der den Pfad zur Datenbanl enthält.
Gruß
Sven Guenter
LÖSUNG 27.02.2008 um 08:55 Uhr
Hallo Sven
Das funktioniert prima danke,
aber gibts auch eine Möglichkeit mir die verschiedenen Datenbanken auf dem Server anzeigen zulassen?
Ich weis es geht wenn ich die DSN anlege bekomme ich unten in dem Feld die Möglichkeit eine Datenbank auszuwählen.
Ferdi
Das funktioniert prima danke,
aber gibts auch eine Möglichkeit mir die verschiedenen Datenbanken auf dem Server anzeigen zulassen?
Ich weis es geht wenn ich die DSN anlege bekomme ich unten in dem Feld die Möglichkeit eine Datenbank auszuwählen.
Ferdi
LÖSUNG 27.02.2008 um 13:18 Uhr
Du willst aus deinem Programm raus den DB Server ansprechen und dann die DB's die dort installiert sind angezeigt bekommen verstehe ich das richtig?
wenn es das sein sollte dann mach einfach folgendes SQL auf die DB
Das liest dir alle DB's aus.
Gruß
Sven
wenn es das sein sollte dann mach einfach folgendes SQL auf die DB
01.
select distinct table_schema from information_schema.tablesGruß
Sven
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
