Discussion :

[F.Salenko]

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

[Daniel.C]

Bonjour,

Un adresse qui peut t'intéresser (bon, c'est en anglais, mais surtout en VBA) :

http://www.pcreview.co.uk/forums/con...-t2348737.html

[F.Salenko]

Hello Daniel, merci pour la reponse.

J'avais deja repere ce site pour m'aider a construire le programme de depart.
J'ai bien eu envie de continuer le fil, mais il date de 2006. Peu de chance de retrouver les memes personnes.

Pour revenir au message d'erreur il semble qu'il soit necessaire d'installer les pilotes.

Je vais explorer cette piste.

En attendant si quelqu'un a deja reussi qu'il n'hesite pas a me c/c son code.

F.

[Daniel.C]

Bob Philips est toujours actif sur :

http://peach.ease.lsoft.com/archives/excel-l.html#SUB

C'est une liste qui fonctionne par liste de courrier (mailing list). Il suffit de s'inscrire. La langue de la liste est l'anglais.

[AlainTech]

Bonjour,

Pour ma part, je créerais un objet Connection afin de pouvoir déterminer si l'erreur est dans la connexion ou dans la requête.