Problème avec RecordSet

Version imprimable

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:

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

03/07/2008, 15h06
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/
03/07/2008, 15h11
djorfe

Merci pour le lien...
03/07/2008, 17h15
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

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

Code:

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

04/07/2008, 12h31
ThierryAIM

Citation:

Envoyé par djorfe

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

Ton recordset doit être de type Forward only