Discussion :

[tonymx15]

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 :

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

[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.

[mactwist69]

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

Parce que ducoup ton MDP c'est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'****'

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

' **** '

?

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

[tonymx15]

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 :

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

[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.