Se connecter via ODBC avec un programme VB

Version imprimable

Bonjour à tous,

Voilà je voudrais savoir faire pour me connecter à une base de donnée oracle via ODBC, en installant ODBC 3.51 pour windows j'ai réussis à me connecter et à tester la base, maintenant je voudrais le faire avec un programme développer en VB sous Microsoft Visual studio 2010.

J'ai essayer mais j'ai un message d'erreur que je ne comprends pas.

Mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connection As New Odbc.OdbcConnection connection.ConnectionString = " DRIVER = {MySQL ODBC 3.51 Driver} ; SERVER = ****** ; DATABASE = ****** ; UID = ****** ; PWD = ****** ;" Try connection.Open() MessageBox.Show("Connexion réussie !") Catch ex As Exception MessageBox.Show("Impossible de se connecter !" & Chr(10) & Err.Description) Finally connection.Close() End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub End Class
Message d'erreur lors du lancement :

http://img411.imageshack.us/img411/8...nstitre1ut.jpg

30/11/2010, 09h47
ostenhard

Bonjour,

Il nous manque le plus important la chaine de connexion. Tu peux également aller faire un tour sur connectionsstrings.com pour voir quelle chaine utiliser.
30/11/2010, 10h26
mactwist69

Enlève tous les espaces dans ta chaîne de connexion !

Parce que ducoup ton MDP c'est:

Code:

'****'

ou

Code:

' **** '

?

Ça sera moins jolie, mais c'est pas fait pour.

Je viens de réussir cependant maintenant se pose un nouveau problème je voudrais transférer des données d'une base de donnée SQL vers une base MySql...

Sachant que j'arrive à me connecter au deux...

Code:

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
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Connexion à la base de donnée titouweb (SQL)
        Dim conn1 As New Odbc.OdbcConnection("DSN=titouweb")
        Dim lesRequeteTitouweb As String
        Dim commande As Odbc.OdbcCommand
        Dim dataAdapter As Odbc.OdbcDataAdapter
        Try
            conn1.Open()
            MessageBox.Show("Connexion réussie (titouweb) !")
 
            lesRequeteTitouweb = "SELECT * FROM ASSMAT"
            commande = New Odbc.OdbcCommand(lesRequeteTitouweb)
            dataAdapter = New Odbc.OdbcDataAdapter(commande)
            commande.Connection = conn1
 
 
        Catch ex As Exception
            MessageBox.Show("Impossible de se connecter (titouweb) !" & Chr(10) & Err.Description)
        Finally
            conn1.Close()
        End Try
 
        'Connexion à la base de donnée Géo-localisation php (MyQql)
        Dim conn2 As New Odbc.OdbcConnection("DSN=Daphne")
        Try
            conn2.Open()
            MessageBox.Show("Connexion réussie (AssMat) !")
        Catch ex As Exception
            MessageBox.Show("Impossible de se connecter (AssMat) !" & Chr(10) & Err.Description)
        Finally
            conn2.Close()
        End Try
 
 
    End Sub
 
End Class

30/11/2010, 11h17
mactwist69

Si c'est un autre sujet, mets celui la en "Resolu" et ouvre en un autre.

Et pour le nouveau poste, n'ecris pas seulement ce que tu veux faire et ton code, mais ce qui ne marche pas stp.