Bonjour,
je me permets de laisser un petit message sur le forum, car je suis devant un petit problème. Je souhaiterais connecter mon apllcation (en VB.net) à une base ACCESS liée à une base mysql en ligne.
La connexion directe par Mysql fonctionne mais lorsque je souhaite connecter à Access, il me met "ODBC - Echec de la connexion à 'NomDeLaBase' ". Je ne vois pas d'ou cela vient, je vous met mon code :
j'ai essayé plusieurs choses, et quand j'essaie de me connecter directement (panneau de configuration ...) la connexion se fait bien.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41 Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb Module OrdresSQL Public Function reqMAJ(ByVal req As String) As Integer Dim cnx As OleDbConnection Dim cmd As OleDbCommand 'Instanciation et ouverture d'une connexion cnx = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=bretagnepyro.mdb") cnx.Open() 'Instanciation d'un objet Command cmd = New OleDbCommand(req) cmd.Connection() = cnx Dim res As Integer res = cmd.ExecuteNonQuery() cnx.Dispose() Return res End Function Public Function ReqSelection(ByVal req As String) As DataTable Dim cnx As OleDbConnection Dim cmd As OleDbCommand Dim ds As DataSet 'Instanciation et ouverture d'une connexion cnx = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=bretagnepyro.mdb") cnx.Open() 'Instanciation d'un objet Command cmd = New OleDbCommand(req) cmd.Connection() = cnx 'Instanciation d'un DataSet ds = New DataSet 'Instanciation d'un DataAdapter Dim da As OleDbDataAdapter da = New OleDbDataAdapter() 'L'objet Command contient l'instruction SQL da.SelectCommand = cmd 'Remplissage d'un conteneur table dans le DataSet à partir du DataAdapter da.Fill(ds, "TableDataSet") Return ds.Tables("TableDataSet") End Function End Module
Partager