Ado et une base access
oceane_san
Messages postés
7
Date d'inscription
vendredi 20 février 2004
Statut
Membre
Dernière intervention
25 février 2004
-
24 févr. 2004 à 10:40
dionysos6868 Messages postés 310 Date d'inscription jeudi 4 septembre 2003 Statut Membre Dernière intervention 9 juin 2005 - 8 mars 2004 à 21:02
dionysos6868 Messages postés 310 Date d'inscription jeudi 4 septembre 2003 Statut Membre Dernière intervention 9 juin 2005 - 8 mars 2004 à 21:02
2 réponses
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
24 févr. 2004 à 12:49
24 févr. 2004 à 12:49
Il faut ajouter la reference a Active Data object 2.* dans le projet
* est une valeur entre 5 et 8 generalement
une seule a cocher
pour access 97
'connADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.path & "\mybdd.mdb"
pour access 2000
connADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\mybdd.mdb"
des objets globaux a mettre dans un module
il seront accessible dans tout ton projet
Public connADO As New ADODB.Connection
Public rsADO As New ADODB.Recordset
Public cmdADO As New ADODB.Command
Public strsql As String
'requete simple
'selection qui remplit un combobox
Public Sub InitTitre(combo As ComboBox)
connADO.Open
strsql = "SELECT Titre "
strsql = strsql & " FROM [Titre Lettre]; "
rsADO.Open strsql, connADO, adOpenKeyset, adLockOptimistic
With combo
While Not rsADO.EOF
.AddItem rsADO!Titre
rsADO.MoveNext
Wend
rsADO.Close
End With
connADO.Close
End Sub
'update delete insert
strsql = "ma requete SQL a taper"
connADO.Open
cmdADO.ActiveConnection = connADO
cmdADO.CommandText = strsql
cmdADO.Execute
connADO.Close
Voila les bases
Apres c'est l'habitude et la recherche sur des documents pour connaitre les autres fonctionnalités d'ado
regarde les tutoraix sur developpez.com VB6
Amuses toi bien maintenant
* est une valeur entre 5 et 8 generalement
une seule a cocher
pour access 97
'connADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.path & "\mybdd.mdb"
pour access 2000
connADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\mybdd.mdb"
des objets globaux a mettre dans un module
il seront accessible dans tout ton projet
Public connADO As New ADODB.Connection
Public rsADO As New ADODB.Recordset
Public cmdADO As New ADODB.Command
Public strsql As String
'requete simple
'selection qui remplit un combobox
Public Sub InitTitre(combo As ComboBox)
connADO.Open
strsql = "SELECT Titre "
strsql = strsql & " FROM [Titre Lettre]; "
rsADO.Open strsql, connADO, adOpenKeyset, adLockOptimistic
With combo
While Not rsADO.EOF
.AddItem rsADO!Titre
rsADO.MoveNext
Wend
rsADO.Close
End With
connADO.Close
End Sub
'update delete insert
strsql = "ma requete SQL a taper"
connADO.Open
cmdADO.ActiveConnection = connADO
cmdADO.CommandText = strsql
cmdADO.Execute
connADO.Close
Voila les bases
Apres c'est l'habitude et la recherche sur des documents pour connaitre les autres fonctionnalités d'ado
regarde les tutoraix sur developpez.com VB6
Amuses toi bien maintenant
dionysos6868
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
1
8 mars 2004 à 21:02
8 mars 2004 à 21:02
regarde la tu trouve peut etre
http://www.hackeinfo.net/Visual%20Basic.html
Dionysos
www.hackeinfo.net
http://www.hackeinfo.net/Visual%20Basic.html
Dionysos
www.hackeinfo.net
