vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2023
 
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.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datenbankverbindung MySql, Access 
Autor: JangoF
Datum: 01.10.22 14:06

Für Access benötigt man die "Microsoft Access Database Engine".
Sie ist nicht Teil von Office und muss separat Installiert werden.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datenbankverbindung MySql, Access 
Autor: sv00010
Datum: 01.10.22 22:25

Es gibt auf der MySQL-Internetseite Connectors.
https://www.mysql.com/products/connector/
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datenbankverbindung MySql, Access 
Autor: effeff
Datum: 15.10.22 22:06

Ich greife folgendermaßen auf eine MySQL-Datenbank zu, die auf einem anderen Rechner läuft, auf einer LINUX-Maschine:

Ich habe das NuGet-Paket "MySql.Data.MySqlClient" installiert. Bei mir ist es die Version 8.0.29. Dieses Paket kannst Du im Visual Studio unter "Projekt", "NuGet-Pakete verwalten" bei "Durchsuchen" finden und installieren. Bei den Verweisen muss "MySQL.Data.Client" ausgewählt sein. Es gibt noch Verweise darunter.

Als ConnectionString benutze ich: "Dim mySQLConnectionString As String = "server=SERVERNAME;user id=USERNAME;password=PASSWORTFÜRDENUSER;database=DATENBANKNAME;"

Der Rest ist wie beim Zugriff auf andere Datenbanken auch bekannt.

Vielleicht hilft Dir das weiter!

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datenbankverbindung MySql, Access 
Autor: I.V.
Datum: 22.11.22 12:38

Hallo effeff,

kannst du mir sagen wo ich das "NuGet-Paket" finde.
Irgendwie lande ich immer bei einer anderen Version.

Danke und Gruß Ingo

Wer aufhört sich zu verbessern, hört auf gut zu sein.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datenbankverbindung MySql, Access 
Autor: effeff
Datum: 22.11.22 21:43

Du gehst bei "NuGet Pakte verwalten" auf "Durchsuchen" und gibst "MySQL.Data" ein.

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Datenbankverbindung MySql, Access 
Autor: gulshan212
Datum: 20.01.23 15:03

Hi this is Gulshan Negi
Well, a System.Runtime.InteropServices.COMException error is typically caused by a problem with a Component Object Model (COM) component, which is a technology used to enable inter-process communication and dynamic object creation in Windows. Here are some steps you can take to try and resolve the error:

1. Check for updates: Make sure that all of your software, including the software that is causing the error, is up to date.

2. Check for compatibility: Make sure that the software that is causing the error is compatible with your operating system and other software that is installed on your computer.

Thanks

I am an Engineer. I completed my engineering in Computer Science & Engineering. I am a Web & App developer. I like playing cricket and volleyball.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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-2023 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