Discussion :

[djorfe]

Bonjour ou reBonjour je suis de nouveau sur un problème, je fais un select sur une base et j'aimerais afficher tous le contenu dans un DataGrid, comment puis-je mis prendre....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim oRec As ADODB.Recordset 'Objet Recordset SQL Server
    strMyQuery = "SELECT * FROM " & tblName & ""
    Set oRec = oConn.Execute(strMyQuery, adCmdText)
    oRec.MoveFirst
    'Fermeture connection DB
    oConn.Close
    RowsNumber = oRec.Count
    Set oConn = Nothing

Merci d'avance

[OhMonBato]

Je te conseille une petite visite de ce tuto, tu devrais y trouver ce que tu cherches :
http://vb.developpez.com/bidou/recordset-ado/

[djorfe]

Merci pour le lien...

[djorfe]

Après pas mal de lecture je suis arrivé à quelque chose de pas mal, mais j'ai un bug, dés que je fais un Redcordset.MoveFirst et Recordeset.MoveLast pour pouvoir renseigner la propriété de RecordCount, vb me crache une erreur du style "Rowset does not support fetching backward"...

Quelqu'un aurait-il une idée

[ProgElecT]

Un petit exemple, d'une façon un peu différente, mais qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim CheminDataBase As New ADODB.Connection
Dim TablES1 As New ADODB.Recordset
 
LieuxBase = "C:\Program Files\Visionneuse\Vision.mdb"
CheminDataBase.CursorLocation = adUseClient: CheminDataBase.Mode = adModeReadWrite
CheminDataBase.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= " & LieuxBase & ";"
 
NomDeLaTable = "Configue"
TablES1.Open "select * from " & NomDeLaTable & " Where NumEnreg = " & CLng(CStr(0)) & " ", CheminDataBase, adOpenStatic, adLockPessimistic

[ThierryAIM]

une erreur du style "Rowset does not support fetching backward"...

Ton recordset doit être de type Forward only