中科新闻网唐通5.0骗局:VB中SQL语句书写
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 00:56:57
Private Sub cmdquery_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;password=;initial catalog=JW;data source=microsof-0B5555"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from registrecords where registor='" & Trim(txtemployeeid.Text) & "' and registtime>'" & dtpfrom.Value & "' and '" & DateAdd(Day, -1, registtime) & "'<'" & dtpto.Value & "'", conn, 1, 1
Set DataGrid1.DataSource = rs
Set conn = Nothing
Set rs = Nothing
End Sub
运行时显示"参数不可选",并在dateadd中的day处反色,为何?
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;password=;initial catalog=JW;data source=microsof-0B5555"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from registrecords where registor='" & Trim(txtemployeeid.Text) & "' and registtime>'" & dtpfrom.Value & "' and '" & DateAdd(Day, -1, registtime) & "'<'" & dtpto.Value & "'", conn, 1, 1
Set DataGrid1.DataSource = rs
Set conn = Nothing
Set rs = Nothing
End Sub
运行时显示"参数不可选",并在dateadd中的day处反色,为何?
把DateAdd中的参数Day改成DateInterval.Day 就OK了.
不然你试试把DateInterval.Day改成d呢
DateAdd("d", -1, registtime)
Day 你定义了吗
DateAdd("m", -1, registtime) 如何
太高深了