| |
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. | |
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. | |
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 | |
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. | |
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 | |
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. | |
| 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 |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP! Unser Nr. 1
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere Infos
|
|
|
Copyright ©2000-2024 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
|
|