以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮我看一下下面的语句错在哪里，特别是where后面的  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9603)
--  作者：dd-zdh
--  发布时间：2011/4/26 19:43:00
--  帮我看一下下面的语句错在哪里，特别是where后面的

Dim ld As Datetime
Dim cmd As New SQLCommand
cmd.CommandText = "Select Max(日期) From {表A} "
ld = cmd.ExecuteScalar()

 

Dim cmd1 As New SQLCommand
Dim var1,var2,var3,var4,var5 As String
\'var1 = Forms("窗口4")
var1=Forms("窗口4").Controls("combobox1").text
var2=Forms("窗口4").Controls("combobox2").text
var3=Forms("窗口4").Controls("textbox4").text
var4=Forms("窗口4").Controls("textbox5").text
var5=Forms("窗口4").Controls("DateTimePicker1").text

cmd1.CommandText = "UPDATE {表A} SET 省市= \'" & var1 & "\',县市=\'" & var2 & "\',区号=\'" & var3 & "\',邮编=\'" & var4 & "\',第三列=\'" & var5 & "\' where 日期>= #ld# "
cmd1.ExecuteNonQuery()
DataTables ("表A").load()
--  作者：kylin
--  发布时间：2011/4/26 19:51:00
--  
where 日期>= #"& ld &"#
--  作者：dd-zdh
--  发布时间：2011/4/26 19:57:00
--  
谢谢！