Bonjour a tous,

Apres avoir longtemps travaille sur Oracle, je passe desormais a Sybase

Je recherche dorenavant a connecter ma base de donnee Sybase 12.5 par VBa de maniere a requeter directement dans excel.

Voila ce que jai cree depuis :

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
 
Sub GetData()
Const adOpenForwardOnly As Long = 0
Const adLockReadOnly As Long = 1
Const adCmdText As Long = 1
Dim oRS As Object
Dim sConnect As String
Dim sSQL As String
Dim ary
 
sConnect = "Provider=Sybase.ASEOLEDBProvider;" & _
"Srvr=myASEServer,5000;" & _
"Catalog=xxxx.net.intra;" & _
"User Id=monID;" & _
"Password=monMdp"
 
sSQL = "SELECT * From Contacts"
Set oRS = CreateObject("ADODB.Recordset")
oRS.Open sSQL, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
 
 
If Not oRS.EOF Then
ary = oRS.getrows
MsgBox ary(0, 0) & " " & ary(1, 0) & ", " & ary(2, 0)
Else
MsgBox "No records returned.", vbCritical
End If
 
oRS.Close
Set oRS = Nothing
End Sub

Aucune reference bibliotheque na ete ajoutee car on ma signale que ce netait pas necessaire.

En debug, jobtiens lerreur 3706 : Provider cannot be found. It may not be properly installed

>> a cette ligne : oRS.Open sSQL, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

Auriez vous une piste a me communiquer ?

Merci