Discussion :

[manudja]

Je developpe avec VB6 et SQL Server. je veux pouvoir tester la bonne connection au serveur avant de manipuler(lecture ou insertion) les données .L'objet que j'utilise est ADODC. Toute méthode m'arrangerais.

[XHY65]

J'ai un petit script qui test cela, laisse moi le temps de remettre a mai dessus

cordialement

XHY65

[XHY65]

en vba, tu insert ce petit script, cela te permettra de savir si ta connection avec la base est active ou pas

Code :

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

1
2
3
4
5
  If Connexion.State = adStateOpen Then
        MsgBox "connection OK"
    Else
        MsgBox "erreur de connection"
    End If

naturellement, avant il faut faire la connection à la base

A mettre en Variable globale (c'est une constante)
un petit conseil, cree un module nomé variable globale, dedans tu met toutes tes constantes et variable globales.

Code :

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

Public Const CHAINE_CONNECTION_BASE = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=[UserID];Initial Catalog=[Nom_de_la_base_de_donnée];Data Source=[Nom_du_serveur];Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False"

tous ce qui est entre crochet fait parti des parametres perso (Donc les tient à TOI)

apres dans ton prg tu fait ta connection

Code :

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

1
2
3
4
5
Dim Connexion As New ADODB.Connection
 
Set Connexion = New ADODB.Connection
Connexion.ConnectionString = CHAINE_CONNECTION_BASE
Connexion.Open

Cordialement

XHY65

[chamma9]

merci