mysql und Visualbasic
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 81680
Url: https://administrator.de/contentid/81680
Ausgedruckt am: 22.11.2024 um 08:11 Uhr
5 Kommentare
Neuester Kommentar
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
Public gv_dsnstring as string
Form mit Textfeld erzeugen
Dann folgendes
form_main.gv_dsnstring = "Provider=MSDASQL;DSN=" & me.textfeld.text
Wieder in der Form_Main
o.Conn.open gv_dsnstring
Nur zur Vollständigkeit. Du musst natürlich die Form mit dem Textfeld im Vorfeld laden also folgendermaßen
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
form_dsnholen.show
' 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 gv_dsnstring
Gruß
Sven
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
select distinct table_schema from information_schema.tables
Das liest dir alle DB's aus.
Gruß
Sven