I am using MS Access 2000, in VB 6 I have written the following code using ADO 2.0 to pass the value of date as parameter to the Access Query but it is giving me error "type mismatch" even if I don't use the "#" sign for the date. Anyone help me pls
Dim cmd As New ADODB.Command
Dim ParamItem As Parameter
Dim strSQL As String
strSQL = "SELECT tblSales.broker_id, tblSales.total_amount, tblSales.curent_date"
strSQL = strSQL & " FROM tblSales"
strSQL = strSQL & " WHERE (((tblSales.curent_date)=?));"
cmd.ActiveConnection = strCon
cmd.CommandText = "qryTest"
cmd.CommandType = adCmdTable
Set ParamItem = cmd.CreateParameter("dtmDate", adDate, adParamInput, "#5/2/03#")
cmd.Parameters.Append ParamItem
cmd.Execute
Set cmd = Nothing
Set ParamItem = Nothing
Topic Options
Post Options
Thanks(0)
