requete sqlRésolu

Question

bonjour  je suis débutant j'essai de comprende quand je mmet une date sa marche
Private Sub Form_Load()
Dim b, d
Dim sql As String
Dim cnx As ADODB.Connection
b = Now
Dim ntx
Dim rst As ADODB.Recordset
Set cnx = New ADODB.Connection
Label1.Caption = Format((b), ("dd/mm/yy"))
d = CDate(Label1.Caption)
Set rst = New ADODB.Recordset
Text2.Text = d

cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = "C:\compteur temp\bd1.mdb"
cnx.Opensql "SELECT  dates FROM compteur1 WHERE dates #22/12/2007# "
rst.Open sql, cnx

 If rst.EOF Then
rst.Close
rst.Open

MsgBox ("date ok")
 

Else
MsgBox ("date deja utiliser")
ntx = rst!dates
Text1.Text = ntx
End If

End Sub

donc apres j'essai avec la date recupere dans un label
Private Sub Form_Load()
Dim b, d
Dim sql As String
Dim cnx As ADODB.Connection
b = Now
Dim ntx
Dim rst As ADODB.Recordset
Set cnx = New ADODB.Connection
Label1.Caption = Format((b), ("dd/mm/yy"))
d = CDate(Label1.Caption)
Set rst = New ADODB.Recordset
Text2.Text = d

cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = "C:\compteur temp\bd1.mdb"
cnx.Opensql "SELECT  dates FROM compteur1 WHERE dates '" & d & "'"
rst.Open sql, cnx

 If rst.EOF Then
rst.Close
rst.Open

MsgBox ("date ok")
 

Else
MsgBox ("date deja utiliser")
ntx = rst!dates
Text1.Text = ntx
End If

End Sub
il me marque type de donnée incompatible dans lexpression du critére
poutant le textbox text2 j'ai bien 22/12/2007

divadav · Accepted Answer

Oui, mais tu as pas les # !

Donc, tu dois modifier ta requête comme ça :    sql "SELECT  dates FROM compteur1 WHERE dates #" & d & "#"

Normalement, ça devrait mieux passer !
<hr size="2" width="100%" />Divad
Techniques de Web Design, Traductions d'articles sur le Web Design, Astuces .Net

cs_marco60 · Answer

ok sa marche j'ai bien essayer de metre les # mais je trouvais pas la syntaxe merci

cs_ghuysmans99 · Answer

Réponse Acceptée ?? _______________________________________________________________________ VB.NETis good ...VB6is better

Requete sql

3 réponses

Votre réponse

Discussions similaires