connexion à la base de données sql server avec vb 6.0

Question

Private Sub Command1_Click()
Dim Db As ADODB.Connection
Dim DbRs As ADODB.Recordset
Dim sql As String
    sql = " select * from employe1 "
  
       With Db
            .CommandTimeout = 200
            .CursorLocation = adUseServer
            .ConnectionTimeout = 30
            .open "Provider=sqloledb;User ID=sa;password =" _
            & ";Data Source=dc-db ;initial catalog =Test"
        End With
          MsgBox "connexion établi", vbInformation
       Set DbRs = New ADODB.Recordset
    DbRs.open sql, Db, adOpenKeyset, adLockReadOnly
    Set msflexgrid1.DataSource = dc - Db
    Db.Close
  
Private Sub msflexgrid1_Click()
msflexgrid1.DataSource = DbRs
msflexgrid1.DataMember = Db
End Sub

pneau · Answer

salut
très joli ton code...
tu veux qu'on en fasse quoi ?
@+

Pat

 Don't Worry , Be Happy 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

cs_Exploreur · Answer

Salut,

Déjà où tu as déclaré : Db et DbRs, tu ne pourras pas l'ai utiliser dans : Private Sub msflexgrid1_Click()

Pour ce faire, il faut qu'elles soient déclarées dans les déclaration général de ton formulaire.

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Puis en regardant bien, il y a un truc qui me parraît bizarre(), c'est : Data Source=dc-db , puis là : Set msflexgrid1.DataSource = dc - Db

Il n'est pas entrein de faire une soustraction, non ??

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Jack · Answer

Salut
Tout ce qu'il faut : http://www.connectionstrings.com/

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Connexion à la base de données sql server avec vb 6.0

4 réponses

Votre réponse

Discussions similaires