Discussion :

[paidge]

Bonjour,

Depuis 2 jours, j'essaye de lier des tables Oracle avec ODBC mais sans succès...(j'y suis presque arrivé mais il doit y avoir un truc qui m'échappe...enfin passons j'abandonne cette méthode).

Donc vu le temps que ça m'a pris et que je ne comprends pas pourquoi ça ne marche pas, j'ai essayé une autre méthode : je me connecte sur la base grâce à ADODB. Et là ça marche : je peux faire des requêtes, afficher les résultats ou même les insérer dans une table locale.

Mais je préfèrerais lier la (ou les) table(s) dont j'ai besoin pour éviter à mon utilisateur de cliquer sur un bouton afin de mettre à jour les données en local.

Existe-t-il donc un moyen de lier les tables sans ODBC, via ADODB par exemple ?

Voici mon code permettant de me connecter à la base :

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
Private conn As ADODB.Connection
Private cmdSql As ADODB.Command
 
Private Sub btn_connection_Click()
 
    Set conn = New ADODB.Connection
    Set cmdSql = New ADODB.Command
 
    conn.ConnectionString = "Provider=msdaora;" & _
                           "Data Source=MaBase;" & _
                           "user id=monLogin;" & _
                           "password=monPass"
    conn.Open
    cmdSql.ActiveConnection = conn
 
End Sub

[MrBrush]

Bonsoir,

J'ai également une application MS Access (2010) avec des tables liées Oracle. Ma question est un peu différente: est-il possible d'utiliser ADODB pour lire dans des tables liées ?

Merci !

[nico84]

Bonsoir,

J'ai une base appli access qui communique avec une base Oracle. J'utilise 2 cas qui marchent bien :

1. SANS LIAISON, avec ADODB. Exemple de procédure :

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 Function Get_description(n)
On Error GoTo err
Dim connect As ADODB.Connection 'connect = crée connection vers base oracle
Dim Cmd As ADODB.Command 'effectue commande sur la base
Dim rso As ADODB.Recordset 'recordset pour base Oracle
 
Get_description = ""
If Reseau And Not IsNull(n) Then
  Set connect = New ADODB.Connection ' créer connection sur oracle
  connect.Open "MaBase", "MonLog", "MonPwd"
  connect.CursorLocation = adUseClient
  Set Cmd = New ADODB.Command
  Cmd.CommandType = adCmdText
  Set Cmd.ActiveConnection = connect
 
  Cmd.CommandText = "SELECT ref, libelle FROM article where ltrim(id_article)='" & n & "';"
  Set rso = Cmd.Execute
  If Not rso.EOF Then Get_description = rso!ref & " - " & rso!libelle
  rso.Close: Set rso = Nothing
  Set connect = Nothing
End If
err:
End Function

Ca marche aussi en écriture ou en modification...

2. AVEC LIAISON : une fois les tables rattachées à ma frontale Access, elles se comportent comme des tables Access... Par contre dans certains cas les temps de réponse sont très mauvais, en particulier sur les requêtes qui mixent tables Oracle et tables Access. Pour faire la liaison j'avais trouvé sur le net un bon tuto dont je n'ai plus la référence.

J'ai aussi essayé une liaison OO4O qui marchait bien en lecture mais pas en écriture donc je n'ai pas insisté.