Remplir une Datagrid avec un recordset
steevy92
Messages postés
16
Date d'inscription
mercredi 17 août 2005
Statut
Membre
Dernière intervention
28 septembre 2005
-
19 août 2005 à 11:46
steevy92 Messages postés 16 Date d'inscription mercredi 17 août 2005 Statut Membre Dernière intervention 28 septembre 2005 - 19 août 2005 à 14:34
steevy92 Messages postés 16 Date d'inscription mercredi 17 août 2005 Statut Membre Dernière intervention 28 septembre 2005 - 19 août 2005 à 14:34
A voir également:
- Vb6 recordset
- Adodb recordset find ✓ - Forum C# / .NET
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
- Datediff vb6 ✓ - Forum Visual Basic 6
- Vb6 decompiler - Forum Visual Basic 6
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
19 août 2005 à 12:30
19 août 2005 à 12:30
Bonjour,
Voici un code complet (qui fonctionne très bien),relié à la BD Biblio.mdb, qui se trouve dans VB 6.
Private Sub Form_Load()
Dim cnn1 As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Set rstTitles = New ADODB.Recordset
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
With rstTitles
.Open _
Source:="Titles", _
ActiveConnection:=cnn1, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic, _
Options:=adCmdTable
End With
Set DataGrid1.DataSource = rstTitles
DataGrid1.Refresh
End Sub
jpleroisse
Voici un code complet (qui fonctionne très bien),relié à la BD Biblio.mdb, qui se trouve dans VB 6.
Private Sub Form_Load()
Dim cnn1 As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Set rstTitles = New ADODB.Recordset
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
With rstTitles
.Open _
Source:="Titles", _
ActiveConnection:=cnn1, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic, _
Options:=adCmdTable
End With
Set DataGrid1.DataSource = rstTitles
DataGrid1.Refresh
End Sub
jpleroisse
steevy92
Messages postés
16
Date d'inscription
mercredi 17 août 2005
Statut
Membre
Dernière intervention
28 septembre 2005
19 août 2005 à 14:34
19 août 2005 à 14:34
Merci à toi pour ta réponse.
Ton code fonctionne très bien.
Mon problème a été résolu par l'ajout de la ligne en rouge ci-dessous :
Set rstRS = New ADODB.Recordset
With rstRS
.CursorLocation = adUseClient
.Open _
Source:="dossier", _
ActiveConnection:=cnnDB, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic, _
Options:=adCmdTable
End With
Set dgDossier.DataSource = rstRS
dgDossier.Refresh
Il est vrai que lorsque je disais que j'accédais à nue base Access en réalité j'accède à un lien dans Access qui pointe vers une base de données INGRES .
A la prochaine fois,
Steevy92.
Ton code fonctionne très bien.
Mon problème a été résolu par l'ajout de la ligne en rouge ci-dessous :
Set rstRS = New ADODB.Recordset
With rstRS
.CursorLocation = adUseClient
.Open _
Source:="dossier", _
ActiveConnection:=cnnDB, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic, _
Options:=adCmdTable
End With
Set dgDossier.DataSource = rstRS
dgDossier.Refresh
Il est vrai que lorsque je disais que j'accédais à nue base Access en réalité j'accède à un lien dans Access qui pointe vers une base de données INGRES .
A la prochaine fois,
Steevy92.
