Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Re bonsoir Yves,
Voila un exemple de procedure qui te permet de récupérer les enregistrements d'une table d'Access2000 via OLEDB. Exemple avec une feuille contenant une zone de liste nommée : List1 (par defaut).
Le résultat est affiché dans une zone de liste.
Private Sub Form_Load() Dim conn1 As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim AccessConnect As String
conn1.ConnectionString = AccessConnect conn1.Open rs.CursorLocation = adUseClient ' pour pouvoir récupérer la valeur de l'enregistrement courant (AbsolutePosition) sql = "select * from tclient" ' adCmdText pour préciser qu'on utlise une chaine SQL et non une table ou procédure stockée(Requête sous Access) rs.Open sql, conn1, adOpenForwardOnly, adLockReadOnly, adCmdText Do While Not rs.EOF List1.AddItem rs.AbsolutePosition & vbTab & rs.Fields ("Societe_client") rs.MoveNext Loop rs.Close Set rs = Nothing conn1.Close Set conn1 = Nothing
End Sub
Les ajouts, suppressions, modifications se font par du sql standard: insert Into Values ou Insert Into... Select ... From Update ... Set Delete ... From
A+ Eric
PS: d'autres spécialistes te donneront certainement plus d'infos
Dim R As ADODB.Recordset Set R = New ADODB.Recordset
Re bonsoir Yves,
Voila un exemple de procedure qui te permet de récupérer les
enregistrements d'une table d'Access2000 via OLEDB. Exemple avec une
feuille contenant une zone de liste nommée : List1 (par defaut).
Le résultat est affiché dans une zone de liste.
Private Sub Form_Load()
Dim conn1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim AccessConnect As String
conn1.ConnectionString = AccessConnect
conn1.Open
rs.CursorLocation = adUseClient ' pour pouvoir récupérer la valeur de
l'enregistrement courant (AbsolutePosition)
sql = "select * from tclient"
' adCmdText pour préciser qu'on utlise une chaine SQL et non une
table ou procédure stockée(Requête sous Access)
rs.Open sql, conn1, adOpenForwardOnly, adLockReadOnly, adCmdText
Do While Not rs.EOF
List1.AddItem rs.AbsolutePosition & vbTab & rs.Fields
("Societe_client")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn1.Close
Set conn1 = Nothing
End Sub
Les ajouts, suppressions, modifications se font par du sql standard:
insert Into Values ou Insert Into... Select ... From
Update ... Set
Delete ... From
A+
Eric
PS: d'autres spécialistes te donneront certainement plus d'infos
Voila un exemple de procedure qui te permet de récupérer les enregistrements d'une table d'Access2000 via OLEDB. Exemple avec une feuille contenant une zone de liste nommée : List1 (par defaut).
Le résultat est affiché dans une zone de liste.
Private Sub Form_Load() Dim conn1 As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim AccessConnect As String
conn1.ConnectionString = AccessConnect conn1.Open rs.CursorLocation = adUseClient ' pour pouvoir récupérer la valeur de l'enregistrement courant (AbsolutePosition) sql = "select * from tclient" ' adCmdText pour préciser qu'on utlise une chaine SQL et non une table ou procédure stockée(Requête sous Access) rs.Open sql, conn1, adOpenForwardOnly, adLockReadOnly, adCmdText Do While Not rs.EOF List1.AddItem rs.AbsolutePosition & vbTab & rs.Fields ("Societe_client") rs.MoveNext Loop rs.Close Set rs = Nothing conn1.Close Set conn1 = Nothing
End Sub
Les ajouts, suppressions, modifications se font par du sql standard: insert Into Values ou Insert Into... Select ... From Update ... Set Delete ... From
A+ Eric
PS: d'autres spécialistes te donneront certainement plus d'infos
