dernier ligne droite avant la fin du projet

Question

Bonjour,
je re-poste ma question svp aider moi a trouver le probleme avec cette requete c'est tout ce qui me reste a faire avant que je finalise mon projet sans tarder j'expose le probleme:

j'ai une table qui contien deux champ l'un deux est charger sur un datacombo et suite a un click je souhaite affecté la valeur du deuxieme champ a un controle text alors j'ai fait comme suite:

Private Sub Form_Load() 
adopers.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\EXE_FV\BDD.mdb;Persist Security Info=False" adopers.RecordSource "SELECT id_type_service FROM type_service WHERE desig_type_service '" & DataCombo1.Text & "'" 
adopers.CommandType = adCmdText 
adopers.Refresh 
End Sub 

Private Sub DataCombo1_Click(Area As Integer) 
txtid_type_service.Text = adopers.Recordset.Fields("id_type_service") 
End Sub

mais y a toujours une erreur qui est :
erreur 3021 
BOF ou EOF est égal a true ou l'enregistrement actuel a été supprimé l'operation demandée nécessite un enregistrement actuel

cboulas · Answer

Re,

Ce qui m'étonne c'est cette partie :
";Persist Security Info=False"

Tu as place un AdoDc ?

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cboulas · Answer

Si tu n'utilise pas l'ADOdc, tu peux faire comme ceci : Dans Général : dim co As New ADODB.Connection dim cochaine As String (/code]

Sub main() cochaine = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\EXE_FV\BDD.mdb" co.Open cochaine . . . Chris... Web : Firstruner - eMail : [mailto:support@firstruner.com Support]

cs_CanisLupus · Answer

Salut,
Pourquoi fais-tu :adopers.RecordSource "SELECT id_type_service FROM type_service WHERE desig_type_service '" & DataCombo1.Text & "'" 
adopers.CommandType = adCmdText 
adopers.Refresh

dans le form_load ?

Moi, j'aurais mis ça dans le DataCombo1_Click, avant le txtid_type_service.Text = adopers.Recordset.Fields("id_type_service") 
Mais je me trompe peut-être, je n'utilise jamais de datacontrol d'aucune sorte ....

Cordialement, CanisLupus

cs_CanisLupus · Answer

oups, cboulas, je viens de voir que mon post s'est immiscé dans le tien  :big) , bonjour Mr BUG !

Cordialement, CanisLupus

cboulas · Answer

ça fait 2 fois que ça me fait le coup mais c'est pas grave l'info est là, et la bestiole Bug also. lol

BiiizzZZZzzzBiiizzZZZzzz (Bug), Chhhlap (Coup de tape mouche)

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

medhmd83 · Answer

oui bien sur j'ai le controle adodb sur la form

crn_c21 · Answer

Où as tu déclarer ton Adopers?

cs_CanisLupus · Answer

medhmd83 > Je voulais dire as-tu essayé le code qui suit ?
Explications, dans ton form_load, tu détermines la source, c ok mais pour ce qui est de adopers.RecordSource, il faut qu'il y ait une ligne sélectionnée dans ton DataCombo1, sinon plantage.
D'autre part, dans DataCombo1_Click, il faut que tu réinitialises adopers.RecordSource car DataCombo1.Text a changé.

Private Sub Form_Load() 
adopers.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\EXE_FV\BDD.mdb;Persist Security Info=False" 
End Sub 

Private Sub DataCombo1_Click(Area As Integer) adopers.RecordSource "SELECT id_type_service FROM type_service WHERE desig_type_service '" & DataCombo1.Text & "'" 
adopers.CommandType = adCmdText 
adopers.Refresh 
txtid_type_service.Text = adopers.Recordset.Fields("id_type_service") 
End Sub


Cordialement, CanisLupus

Dernier ligne droite avant la fin du projet

8 réponses

Discussions similaires