[VBA-ODBC]syntaxe de connection [Résolu]

[megapacman]

Bonjour,

je cherche une syntaxe de connexion vba -> odbc qui fonctionne



voila le script de connexion que j'utilise :

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
 
 
 
Private m_db As DAO.database
 
    Property Get CurrentDB() As DAO.database
 
        If m_db Is Nothing Then
        ConnectDAO
        Else
        End If
 
        Set CurrentDB = m_db
 
    End Property
 
 
    Public Function ConnectDAO() As DAO.database
 
    Dim ws As Workspace
    Dim strConnection As String
 
 
    Set ws = DBEngine.Workspaces(0)
    Let strConnection = "ODBC;DSN=nom du dsn;DATABASE=nom de ma base;UID=mon login;PWD=mon passe"
    Debug.Print strConnection
 
    Set m_db = ws.OpenDatabase("", False, False, strConnection)
 
    Set ConnectDAO = m_db
 
 
    End Function
 
    Public Sub DisconnectDAO()
 
 
    m_db.Close

et le code de mon formulaire qui fait une requete et rempli une combo avec le resultat :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
 
Option Explicit
 
'declaration des variables globales
'----------------------------------
 
Private cnxDAO As ClassDAO
' déclaration de l'objet de la ClassDAO permettant la connection , déconnection à la base DAO
 
 
 
Private Sub UserForm_Initialize()
' partie initialisant le formulaire en remplissant la combo des codes déjà existant
 
 
    ' declaration des variables
    '--------------------------
 
    Dim rsserie As Recordset
    Dim JO_SERIE As String
    Dim sql As String
 
    sql = "SELECT DISTINCT OP_DE_JO_ALL.JO_SERIE FROM OP_DE_JO_ALL"
    Debug.Print sql
 
 
    'connexion à la base de données
    '------------------------------
 
    Set cnxDAO = New ClassDAO ' création d'une connection DAO
 
    cnxDAO.ConnectDAO 'connection DAO
 
 
    ' recordset
    '----------
 
    Set rsserie = cnxDAO.CurrentDB.OpenRecordset(sql, dbOpenDynaset, dbFailOnError)
 
        With rsserie
 
            While Not .EOF ' tant que pas à la fin du recordset
 
            JO_SERIE = !JO_SERIE
            cboserie.AddItem JO_SERIE
            .MoveNext
            Wend ' fin du tant que
 
        End With ' fin du with
 
 
    'deconnexion a la base de données
    '--------------------------------
 
    rsserie.Close ' fermeture du recordset
 
    Set rsserie = Nothing ' le recordset est vidé
 
    cnxDAO.DisconnectDAO ' déconnection à la base DAO
 
 
 
End Sub

et la j'ai une message d'erreur run-time error 3078

the microsoft jet database engine cannot find the input table or query, make sure it exists and that its name is spelled correctly


donc la probleme est qu'il ne trouve pas ma table mais elle existe bien
la requete fonctionne sous access pas d'erreur du nom de la table

je ne sais pas qu'elle est mon erreur


merci

[ced600]

Cela ne peut il pas être un problème de librairie, ou quelque chose à déclarer pour que ton prog accede à la base de donnée ?

[megapacman]

justement je ne sais pas

je cherche sur le web des scripts de connexion


mais pour l'instant je n'ai reussi a faire fonctionner aucun

[ced600]

Est as tu regardé dans les options d'Excel s'il n'y avais pas une option à activer, ou truc du genre ?

[megapacman]

j'ai essayé comme cet exemple ca fonctionne oufs
c vraiment galere oracle
donc je recommande ce code de connexion si ca peut etre utile

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Dim wstemp As Workspace
Dim dbtemp As Database
Dim rstemp As Recordset
 
Set wstemp = DBEngine.Workspaces(0)
Set dbtemp = wstemp.OpenDatabase("", False, False, "ODBC;DSN=Oracle;USR=scott;PWD=tiger")
Set rstemp = dbtemp.OpenRecordset(myquery.Text, dbOpenDynaset, dbSQLPassThrough)
howmany = 0
Combo1.Clear
Do Until rstemp.EOF
 	msgbox rstemp(0)
	rstemp.MoveNext
	howmany = howmany + 1
Loop
 
http://www.orafaq.com/faqmsvb.htm

merci pour votre aide