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

Signaler
Messages postés
1
Date d'inscription
jeudi 10 janvier 2008
Statut
Membre
Dernière intervention
10 janvier 2008
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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

4 réponses

Messages postés
258
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
27 octobre 2010
5
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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
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

 
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
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

 
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
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)