请教RecordSet.open方法使用问题
Public Zf As ADODB.Connection
Public Jlj_Lsxf As ADODB.Recordset
joe as date
Jlj_Lsxf.Open "select * from xfb where xfb.date=joe", Zf '到这个语句就出错了!
Jlj_Lsxf.Open "select * from xfb",ZF '这样写就不会错!请问该语句该怎样写?
joe是个日期型的,其值是这样的:"2004-11-16 14:49:00"
Public Zf As ADODB.Connection
Public Jlj_Lsxf As ADODB.Recordset
joe as date
Jlj_Lsxf.Open "select * from xfb where xfb.date=joe", Zf '到这个语句就出错了!
Jlj_Lsxf.Open "select * from xfb",ZF '这样写就不会错!请问该语句该怎样写?
joe是个日期型的,其值是这样的:"2004-11-16 14:49:00"
Jlj_Lsxf.open "select * from xfb where xfb.date="& joe,zf
//这样把joe看做DB的一个字段名称了!
改为
Jlj_Lsxf.Open "select * from xfb where xfb.date='" & joe & "'", Zf ,1,3
joe = #11/16/2004 2:49:00 PM#Jlj_Lsxf.Open "select * from xfb where xfb.date=#"& joe #&"", Zf
Public Sub Dw_lsxf(e As String, f As Date)
Jlj_Lsxf.Open "select * from xfb where xfb.name='" & e & "'and xfb.dat=#" & f# & "", Zf
MsgBox Jlj_Lsxf.GetString
End Sub
显示"声明字符与声明的数据类型不符合"
#"& joe #&""或者cdate(‘“& joe &”’)
Jlj_Lsxf.Open "select * from xfb where xfb.name='" & e & "'and xfb.dat=#" & f # & "", Zf
MsgBox Jlj_Lsxf.GetString
End Sub
Public Sub Dw_lsxf(e As String, f As Date)
Jlj_Lsxf.Open "select * from xfb where xfb.name='" & e & "'and xfb.dat=#" & f# & "", Zf
MsgBox Jlj_Lsxf.GetString
End Sub