remplissage Datagrid avec Adodb.RecordsetRésolu

Question

Slt,

Mon problème est le suivant : j'essaie en vain depuis ce matin de remplir un datagrid à partir d'un adodb.recordset : soit il mets l'erreur "the rowdata is not bookmarkable" soit il ne m'affiche rien!!!
Ma version actuelle (voir ci-dessous) ne m'affiche rien...

Code :
------------------------------------
Public Sub SetUpDataGrid(StrQuery As String, StrBase As String)
    
    Dim DBaseConn As ADODB.Connection
    Dim RecSet As ADODB.Recordset
    
    'initialisation de la connexion à la base de données
    Set DBaseConn = New ADODB.Connection
    If StrBase = "RA_DASHBOARD" Then
        DBaseConn.Open DBaseConnectionString_RA_DASHBOARD
    ElseIf StrBase = "REVENUE_ASSURANCE_WORK" Then
        DBaseConn.Open DBaseConnectionString_REVENUE_ASSURANCE_WORK
    End If
    DBaseConn.CommandTimeout = 0
    DBaseConn.CursorLocation = adUseClient
    'création de la connexion au recordset
    Set RecSet = New ADODB.Recordset
    
    RecSet.CursorLocation = adUseClient
    RecSet.Open StrQuery, DBaseConn, adOpenDynamic, adLockOptimistic, adCmdText


    'création du datagrid
    If RecSet.EOF = False Then
        Set DGData.DataSource = RecSet
        DGData.Refresh
    End If
    'fermeture des recordset
    RecSet.Close
    'fermeture des database ouverts
    Set DBaseConn = Nothing


End Sub
------------------------------------

J'ai plus d'idée...
J'ai lu beacoup de chose sur le forum en rapport au curseur, etc... mais ça ne fait rien...

Quelau'un aurait une réponse???

merci d'avance...

Delph

delph1410 · Accepted Answer

Bon ben j'ai fini par trouvé...
 - concernant l'erreur "... is not bookmarkable" : il faut jouer sur le cursorlocation : aduseclient
 - pour le datagrid vide : il ne faut pas fermer le recordset dans la fonction

Delph

DELIVERYOFSOULS · Answer

ajouter cette ligne
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient

Remplissage Datagrid avec Adodb.Recordset

2 réponses

Votre réponse

Discussions similaires