| |

ADO.NET / DatenbankenDatenbankverbindung MySql, Access | |  | Autor: I.V. | Datum: 13.09.22 10:58 |
| Hallo zusammen,
ich versuche gerade mich in VB.Net 2022 einzuarbeiten und versuche gerade eine Verbindung zu eine Mysql DB und zu Access zu bekommen.
Irgendwie stehe ich da auf dem Schlauch
Function DB_Verbindung_Datatank() As Boolean
Dim server_name As String
Dim database_name As String
Dim User_ID As String
Dim password As String
Dim strTreiber As String
'Dim g_DSN As String
'Dim g_DB As String
Dim strCon As String
strTreiber = "MySQL ODBC 5.3 ANSI Driver"
server_name = "172.1.1.35" '
database_name = "TestDB"
User_ID = "test"
password = "test"
con_D = New ADODB.Connection
If con_D.State = 0 Then
'Anbindung über odbc schnittstelle
strCon = "DRIVER={" & strTreiber & "}" _
& ";SERVER=" & server_name _
& ";DATABASE=" & database_name _
& ";UID=" & User_ID _
& ";PWD=" & password _
& ";OPTION=16384;"
With con_D
.ConnectionString = strCon
.CursorLocation = 3 'adUseClient
.ConnectionTimeout = 5
.CommandTimeout = 10
.Open()
End With
If con_D.State = 1 Then
DB_Verbindung_Datatank = True
Else
DB_Verbindung_Datatank = False
End If
End If
'Exit Function
'0:
'err:
' Dim txt As String
' 'Dim Mldg, Stil, Titel, Antwort
' DB_Verbindung_Datatank = False
' txt = "Es ist ein Fehler bei der Datenbankanbindung" & _
"aufgetreten," & vbCrLf _
' & "Die Datenbank Datatank/Infor7 kann nicht geöffnet" & _
"werden." & vbCrLf & vbCrLf _
' & "Bitte Informieren Sie Ihren Koordinator!"
' MsgBox(txt, vbInformation, "Verbindungsfehler..")
' 'Exit Function
' 'Fehler:
' 'MsgBox err.Description, vbCritical, "Fehler beim" & _
"Verbindungsaufbau zur Premio Datenbank.."
End Function Wenn ich das laufen lassen bekomme ich die Fehlermeldung:
System.Runtime.InteropServices.COMException: "[Microsoft][ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben"
Verbindung zu Access:
con_K = New ADODB.Connection
If con_K.State <> 1 Then
' On Error GoTo Fehler
With con_K
.Provider = "Microsoft.ACE.OLEDB.12.0" _
'"Microsoft.Jet.OLEDB.4.0""Microsoft.ACE.OLEDB.12.0"
.Properties("Jet OLEDB:Database Password") = "test"
.Open(strDBPfad)
End With
DB_Verbindung_Transfer = True
End If
Exit Function Hier bekomme ich die Meldung das der Provider nicht richtig Installiert ist.
Was muss ich hierzu ändern?
Kann mir da bitte jemand weiterhelfen?
Danke und Gruß Ingo
Wer aufhört sich zu verbessern, hört auf gut zu sein.
Beitrag wurde zuletzt am 13.09.22 um 11:15:56 editiert. |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|