vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ADO.NET / Datenbanken
Datenbankverbindung 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.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datenbankverbindung MySql, Access88I.V.13.09.22 10:58

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 [email protected] 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