benjamin272
Messages postés5Date d'inscriptionvendredi 14 octobre 2005StatutMembreDernière intervention 5 mars 2007
-
15 mars 2006 à 12:40
cs_etniqs
Messages postés201Date d'inscriptionmardi 7 octobre 2003StatutMembreDernière intervention10 mai 2016
-
15 mars 2006 à 14:04
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.
cs_etniqs
Messages postés201Date d'inscriptionmardi 7 octobre 2003StatutMembreDernière intervention10 mai 2016 15 mars 2006 à 14:04
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
cs_etniqs
Messages postés201Date d'inscriptionmardi 7 octobre 2003StatutMembreDernière intervention10 mai 2016 15 mars 2006 à 14:04
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