Discussion :

[michaellynx]

bonjour à tous.
SVP je développe un programme sous vb6 en utilisant une base de données sql server 2000. Je n'arrive pas à me connecter à la base de données et je reçois le message

Code :

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

Type défini par l'utilisateur non défini

Merci de m'aider? JE suis DEBUTANT.

[pacmann]

Salut !

Si tu reçois ce message, je suppose que tu arrives à te connecter...
Tu peux nous donner la requête ?

A priori, le message te dit qu'un type de données que tu utilises n'est pas défini... (enfin, je pense que tu l'avais vu toi même )

[michaellynx]

Les déclarations:

Code :

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

1
2
3
4
5
6
7
 
Option Explicit
Public vconnect, sql As String
Public vdsn As String
Global En As rdoEnvironment
Global Rs As rdoresultSet
Global Cn As rdoconnection

Au niveau du module de connexion, le code est :

Code :

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

1
2
3
4
5
6
7
8
 
Public sub connectSQL ()
vdsn = "Nom de la base de données"
vconnect = "uid=sa;pwd=123456;database=ORANGE"
set En = rdoEnvironments(0)
Set Cn = En.OpenConnection(dsname:=vdsn, Prompt:=rdDriverNoPrompt, ReadOnly:= False, Connect:= vconnect)
Cn.QueryTimeout = 0
End Sub