1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Accès à une base de données de SQL Server 2000 depuis VB6

Signaler
Messages postés
5
Date d'inscription
samedi 7 avril 2007
Statut
Membre
Dernière intervention
17 mai 2011
 -
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 -
Bjr a ts,
SVP comment faire un accès à une base de données de SQL Server 2000 depuis VB6 avec l'objet ADO et pas le controle ADODC.

par expl  voila ce code en access, comment faire ca pour une BD en
SQL Server 2000,et si vous avez des codes interessants sur ca, merci de me les laissé :

Public Cnx As New ADODB.Connection
Public Rs As New ADODB.Recordset





Public Sub
Connexion()

Cnx.Provider = "Microsoft.jet.oledb.4.0"
Cnx.ConnectionString = App.Path & "\BD.mdb"
Cnx.Open
Rs.Open "Table", Cnx, adOpenDynamic, adLockOptimistic
Rs.MoveFirst



End Sub

Public Sub Remplir_Combo()
Dim R As New ADODB.Recordset



R.Open "select * from Table order by Champ", Cnx, adOpenDynamic
R.MoveFirst
Cb.Clear
While (Not


R.EOF)
    Cb.AddItem R![Champ]
    R.MoveNext

Wend
Cb.Text = Cb.List(0)
End Sub










B.sara
Afficher la suite

1 réponse

Réponse 1 / 1
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 74
Salut
Quelque soit le type de la technique utilisée, il y aura toujours une ConnectionString qui déterminera les paramètres à transmettre à la DB pour s'y connecter :
La bible est ici <Toutes les ConnectionString>

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)
Répondre Posez votre question