Connexion bdd

Messages postés
5
Date d'inscription
vendredi 14 octobre 2005
Statut
Membre
Dernière intervention
5 mars 2007
-
Messages postés
201
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
10 mai 2016
-
voilà je débute en ce qui concerne une bdd acess avec vb6, je voudrais crée une bdd avec vb6 et que la bdd soit toujours connetecter a vb6 et ke vb me permette de crée, modier, supprimer des éléments de la bdd

Où puis-je trouver un tuto sur le net m'expliquant les débuts.

merci

3 réponses

Messages postés
201
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
10 mai 2016

euh, et , c'est koi la kestion ? :-D

coïto ergo sum
Messages postés
201
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
10 mai 2016

bon, sérieusement et très simplifié vers une base access (fichier mdb) et en utilisant les commandes SQL
connexion :
Public cnx As New ADODB.Connection

Function connexion()
If Len(Dir(strPath)) > 0 Then
cnx.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & "LE_LIEN_FICHIER"
cnx.Open
End Function

requete :
Function requete(ByVal strSQL As String) As ADODB.Recordset
Dim txt As String
Dim rst As New ADODB.Recordset
If cnx.State = 0 Then Call connexion
rst.Open strSQL, cnx, adOpenStatic, adLockOptimistic
Set requete = rst
End Function

appel des fonctions
sub main()
Dim rst As ADODB.Recordset
Set rst = requete("SELECT * FROM table ORDER BY nom_de_colonne")
Msgbox "résultat" & rst(0) & rst(1) & etc ...
end sub

Bon courage
coïto ergo sum
Messages postés
201
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
10 mai 2016

bon, sérieusement et très simplifié vers une base access (fichier mdb) et en utilisant les commandes SQL
connexion :
Public cnx As New ADODB.Connection

Function connexion()
If Len(Dir(strPath)) > 0 Then
cnx.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & "LE_LIEN_FICHIER"
cnx.Open
End Function

requete :
Function requete(ByVal strSQL As String) As ADODB.Recordset
Dim txt As String
Dim rst As New ADODB.Recordset
If cnx.State = 0 Then Call connexion
rst.Open strSQL, cnx, adOpenStatic, adLockOptimistic
Set requete = rst
End Function

appel des fonctions
sub main()
Dim rst As ADODB.Recordset
Set rst = requete("SELECT * FROM table ORDER BY nom_de_colonne")
Msgbox "résultat" & rst(0) & rst(1) & etc ...
end sub

Bon courage
coïto ergo sum