VB6 et sql serveur 2000 distant

**hassan0379** · 17/04/2007, 04h13

salut tous.
j'ai creer une application vb6 +sql server 2000. je veux savoir comment je peux faire que mon application se connecte a la bd sql server qui se trouve sur un reseau local (windows 2000 server) a partir d'un autre reseau .
et merci pour vos aides.

**rudib** · 17/04/2007, 08h25

Bonjour,

En indiquant dans la chaîne de connexion le nom de la machine s'il est résolvable par DNS, ou son numéro IP. Il faut que le port TCP 1433 (s'il s'agit d'une instance par défaut) soit ouvert en entrée pour le serveur SQL.

**Tankian** · 17/04/2007, 09h34

Un peu vague ta question là ?

C'est en code que tu attaquer la BDD ? Donc tu es en train de développer ton appli là ?

Il y a différents moyen de se connecter sur une bdd via vb.
Jte laisse ce bout de code :

A mettre dans un module :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
'--------------------------------------------------------------------------------------------------------------
' Module De Connexion
'--------------------------------------------------------------------------------------------------------------
Option Compare Database
 
 
Public cnx As New ADODB.Connection
Public cmd As New ADODB.Command
Public cnx2 As New ADODB.Connection
Public cmd2 As New ADODB.Command
 
 
'------------------------------------------------------------
Public Sub OpenCnx()
'------------------------------------------------------------
' Connexion à la BD sql server
'------------------------------------------------------------
Dim st                          As String
Dim PASSWORD                    As String
Dim USER                        As String
Dim BASE                        As String
Dim SERVER                      As String
 
   On Error GoTo Err_OpenCnx
 
    With cnx
        If cnx.State = adStateOpen Then
            cnx.Close
            'MsgBox ("Open Cnx, connection ouverte")
        End If
 
        PASSWORD = ""
        USER = "
        BASE = ""
        SERVER = "EREPORT"
 
        .ConnectionString = "Provider=SQLOLEDB.1;Password=" & PASSWORD & ";Persist Security Info=True;User ID=" & USER & ";Initial Catalog=" & BASE & ";Data Source=" & SERVER
        .CommandTimeout = 0
        .ConnectionTimeout = 0
 
        '--- on ouvre la connexion
         .Open
    End With
 
    '--- on lie l'objet Commande à l'objet Connexion
    cmd.ActiveConnection = cnx
    cmd.CommandTimeout = 0
    Exit Sub
 
Err_OpenCnx:
 
st = Err.Description & vbCrLf & vbCrLf & "Connection to database impossible"
st = st & vbCrLf & vbCrLf & "Please contact " & admAppli & ". Error code:CTDBBIMP"
MsgBox st, vbCritical, "ERROR OpenCnx."
End
 
End Sub
 
'------------------------------------------------------------
Public Sub CloseCnx()
'------------------------------------------------------------
' Fin de la Connexion à la BD sql server
'------------------------------------------------------------
 
    '--- on ferme la connexion
    If cnx.State = adStateOpen Then
        cnx.Close
    End If
 
    '--- on libère les ressources
    Set cmd = Nothing
    Set cnx = Nothing
 
End Sub
 
'"Provider=SQLOLEDB.1;Password=" & PASSWORD & ";Persist Security Info=True;User ID=" & USER & ";Initial Catalog=" & BASE & ";Data Source=" & SERVER
 
 
A mettre dans ta forme ou sur un bouton :
 
    Call OpenCnx
    cmd.ActiveConnection = cnx
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenForwardOnly
    rs.LockType = adLockOptimistic
 
    '--- REQUETT
    squery = "SELECT * FROM"
    cmd.CommandText = squery
    rs.Open cmd
 
    While not rs.eof
       msgbox rs!tonchamps
    wend