QUARTO 2D

Commentaire de brahimhakkou le 16/07/2006 20:09:58

salut
svp jé une kestion a vous posez jé un programme de la consultation mé ca marche pas et je sais pa prkoi

Private Sub Command1_Click()


Dim strsql As String

Set BD = New ADODB.Recordset

Dim a, f, g   As String
a = "Erreur"
f = "Veuillez sélectionnez tous les informations concernant la consultation  !!!!  "
g = "Veuillez sélectionnez tous les informations concernant la consultation  !!!!   "
    
    If (Combo2.Text = "" And MaskEdBox1.Text = "") Then
     MsgBox f, 0 + 16, a

Else
    If (Combo2.Text = "" Or MaskEdBox1.Text = "") Then
    MsgBox g, 0 + 16, a
    
Else
  

   strsql = " Select * from Solde where Num_cpt='" & Combo2.Text & "' and Date_op=#" & Trim(MaskEdBox1.Text) & "#"
   Frame1.Visible = True
----->   BD.Open strsql, cn, adOpenDynamic, adLockOptimistic
  
   Set MSHFlexGrid1.DataSource = BD
MSHFlexGrid1.Refresh

End If
End If

End Sub



lorske j'execute il me donne toujours une erreur dans la ligne signalé par ( -----> )é shé pa prkoi prière aidez moi

Merci d'avance

Commentaire de Devil and Angel le 25/07/2006 14:40:25

Salut

Pas mal comme jeu mais je trouve qu'il est pas assez dur. L'ordinateur est vraiment nul.