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
Zoury
Salut Mel! :O)
Regarde cet exemple :
'*** ' Form1 ' 1 DataGrid ' La bd nwind.mdb est utilisée dans l'exemple.. ' le chemin d'accès n'est peut-être pas le même ' sur ton poste.. Option Explicit
Private m_cn As ADODB.Connection Private m_rs As ADODB.Recordset
Private Sub Form_Load()
' Initialise notre connection Set m_cn = New ADODB.Connection Call m_cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Program FilesMicrosoft Visual StudioVB98NWIND.MDB;Persist Security Infoúlse")
' Effectue la requête Set m_rs = New ADODB.Recordset m_rs.CursorLocation = adUseClient Call m_rs.Open("select * from suppliers", m_cn, adOpenKeyset, adLockReadOnly)
' Branche notre recordset sur la grille Set DataGrid1.DataSource = m_rs
' Permet la selection d'une ligne entière lors ' du click sur la grille DataGrid1.MarqueeStyle = dbgHighlightRow
End Sub
Private Sub Form_Unload(Cancel As Integer) If (m_cn.State = adStateOpen) Then m_cn.Close Set m_cn = Nothing Set m_rs = Nothing End Sub '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "mel" wrote in message news:011e01c3b9cc$5a458bc0$
comment fait on pour afficher une requete dans un dategrid svp, je lutte je ne toruve rien merci de votre aide!
Salut Mel! :O)
Regarde cet exemple :
'***
' Form1
' 1 DataGrid
' La bd nwind.mdb est utilisée dans l'exemple..
' le chemin d'accès n'est peut-être pas le même
' sur ton poste..
Option Explicit
Private m_cn As ADODB.Connection
Private m_rs As ADODB.Recordset
Private Sub Form_Load()
' Initialise notre connection
Set m_cn = New ADODB.Connection
Call m_cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Program
FilesMicrosoft Visual StudioVB98NWIND.MDB;Persist Security Infoúlse")
' Effectue la requête
Set m_rs = New ADODB.Recordset
m_rs.CursorLocation = adUseClient
Call m_rs.Open("select * from suppliers", m_cn, adOpenKeyset,
adLockReadOnly)
' Branche notre recordset sur la grille
Set DataGrid1.DataSource = m_rs
' Permet la selection d'une ligne entière lors
' du click sur la grille
DataGrid1.MarqueeStyle = dbgHighlightRow
End Sub
Private Sub Form_Unload(Cancel As Integer)
If (m_cn.State = adStateOpen) Then m_cn.Close
Set m_cn = Nothing
Set m_rs = Nothing
End Sub
'***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"mel" <anonymous@discussions.microsoft.com> wrote in message
news:011e01c3b9cc$5a458bc0$a401280a@phx.gbl...
comment fait on pour afficher une requete dans un
dategrid svp, je lutte je ne toruve rien merci de votre
aide!
'*** ' Form1 ' 1 DataGrid ' La bd nwind.mdb est utilisée dans l'exemple.. ' le chemin d'accès n'est peut-être pas le même ' sur ton poste.. Option Explicit
Private m_cn As ADODB.Connection Private m_rs As ADODB.Recordset
Private Sub Form_Load()
' Initialise notre connection Set m_cn = New ADODB.Connection Call m_cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Program FilesMicrosoft Visual StudioVB98NWIND.MDB;Persist Security Infoúlse")
' Effectue la requête Set m_rs = New ADODB.Recordset m_rs.CursorLocation = adUseClient Call m_rs.Open("select * from suppliers", m_cn, adOpenKeyset, adLockReadOnly)
' Branche notre recordset sur la grille Set DataGrid1.DataSource = m_rs
' Permet la selection d'une ligne entière lors ' du click sur la grille DataGrid1.MarqueeStyle = dbgHighlightRow
End Sub
Private Sub Form_Unload(Cancel As Integer) If (m_cn.State = adStateOpen) Then m_cn.Close Set m_cn = Nothing Set m_rs = Nothing End Sub '***
