erreur 3021

Question

Salut tout le monde ;
j'ai un probléme dans ce code:
Dim db As New ADODB.Connection
Dim MonRs As New ADODB.Recordset
   
Set db = New ADODB.Connection
Conn = "DRIVER={MySQL ODBC 3.51 Driver};" _
      & "SERVER=localhost;" _
      & "DATABASE=basev1;" _
      & "UID=root;" ' _
      & "PWD=sima;"
         
 With db
      .ConnectionString = Conn
     .CursorLocation = adUseClient
     .Open
           
MonRs.Open "select * from personnel where prenom_per= 'besbes' ", , adOpenStatic, adLockOptimistic, adCmdText

Var = MonRs.GetString(adClipString, , vbTab, vbCrLf, "NULL")
MonRs.Close

J'ai une erreur d'execution 3021 BOF ou EOF est egal à true ou
l'enregistrement actuel a été supprimé. L'opération demandé necessite un
enregistrement actuel.

Renfield · Answer

le message me semble limpide : ta requete n'a renvoyé aucune ligne...


Renfield - Admin CodeS-SourceS - MVP Visual Basic

c148270 · Answer

Bonjour

C'est bien de lancer la requête mias ensuite il faut lire le résultat.

Derrière MonRs.open il faut MonsRs.movefirst (en VBA)
Voici un exemple :

ssql = "SELECT * "
    ssql = ssql & "FROM tgozcomplet tgozcomplet "
    Ctrnn = "provider=microsoft.jet.oledb.4.0;data source=" & retval
    Set Cnn1 = New ADODB.Connection
    Cnn1.Open Ctrnn
    Set ttable = New ADODB.Recordset
    ttable.CursorType = adOpenKeyset
    ttable.LockType = adLockOptimistic
    ttable.Open Source:=ssql, ActiveConnection:=Cnn1
    ttable.MoveFirst

Bonne journée

Erreur 3021

2 réponses

Votre réponse

Discussions similaires