7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Lukeskywalker 2005-10-29
- 打赏
- 举报
Text1.Text = Date - 7 , Text2.Text = Date
strsql = "select * from fptable where riqi between '" & CDate(Text2.Text) & "' And '" & CDate(Text3.Text) & "'"
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dt"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql1, db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
strsql = "select * from fptable where riqi between '" & CDate(Text2.Text) & "' And '" & CDate(Text3.Text) & "'"
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dt"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql1, db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
Lukeskywalker 2005-10-29
- 打赏
- 举报
这里忘了加括号，是这样的select * from 表名 where 日期 = '" & CDate(Text2.Text) & "'
jxgzay 2005-10-29
- 打赏
- 举报
cdate(x)
Lukeskywalker 2005-10-29
- 打赏
- 举报
select * from 表名 where 日期 = '" & CDateText2.Text & "' 也是一样的错误！
Lukeskywalker 2005-10-29
- 打赏
- 举报
select * from 表名 where 日期 = '" & Text2.Text & "' 老报数据类型不匹配！
sjtuyjc 2005-10-29
- 打赏
- 举报
给楼上两位分吧
Lukeskywalker 2005-10-29
- 打赏
- 举报
我把数据库中的日期/时间型改成了文本型就可以了！ 谢谢大家！
crycoming 2005-10-29
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
Dim d As Date
Dim s As String
s = "2005-10-28"
d = s
MsgBox d
End Sub
Private Sub Command1_Click()
Dim d As Date
Dim s As String
s = "2005-10-28"
d = s
MsgBox d
End Sub
Lukeskywalker 2005-10-29
- 打赏
- 举报
用楼上的代码：strsql = "select * from fptable where riqi between '" & DateValue(Text2.Text) & "' And '" & DateValue(Text3.Text) & "'"
报
实时错误 '-2147217913(800400e07)':
[Microsoft][ODBC Microsoft Access Driver]标准表达式中数据类型不匹配。
报
实时错误 '-2147217913(800400e07)':
[Microsoft][ODBC Microsoft Access Driver]标准表达式中数据类型不匹配。
northwolves 2005-10-29
- 打赏
- 举报
try:
strsql = "select * from fptable where riqi between Datevalue(Text2.Text) And Datevalue(Text3.Text) "
strsql = "select * from fptable where riqi between Datevalue(Text2.Text) And Datevalue(Text3.Text) "
Lukeskywalker 2005-10-29
- 打赏
- 举报
我的riqi字段在access中是使用日期/时间型的！
viena 2005-10-29
- 打赏
- 举报
文本框的内容格式对吗？
viena 2005-10-29
- 打赏
- 举报
狂晕，SQL字符串直接用字符串连接就可以了，为什么要转为Date型？
xinliangyu 2005-10-29
- 打赏
- 举报
把日期样的字符串放在两个井号中，形如——
#yyyy-m-d#
#yyyy-m-d#
Lukeskywalker 2005-10-29
- 打赏
- 举报
上面代码运行后报类型不匹配，请教该怎么改啊
faysky2 2005-10-28
- 打赏
- 举报
yDate="2005-10-28"
ResultDate=cDate(yDate)
ResultDate=cDate(yDate)
