sql = "SELECT * FROM T_KBHI WHERE KtNouber='" & Text1.Text & "' and Gnso='" & Text2.Text & "'"
rs.Open sql, pConn, adOpenForwardOnly, adLockReadOnly
If (Not rs.EOF) Then
sql = "update T_KBHI set START=" & Text3.Text & ",END=" & Text4.Text & ",fla=" & flaNo & ",UpdateDate=#" & Format(Date, "yyyy-mm-dd ") & "# WHERE KtNouber='" & Text1.Text & "' and Gnso='" & Text2.Text & "'"
pConn.Execute (sql)
MsgBox "更新成功!", 64, "提示信息"
Else
sql = "SELECT * FROM T_KBHI"
rst.Open sql, pConn, adOpenDynamic, adLockOptimistic
rst.AddNew
rst.Fields.Item("KtNouber") = Text1.Text
rst.Fields.Item("Gnso") = Text2.Text
rst.Fields.Item("START") = Text3.Text
rst.Fields.Item("END") = Text4.Text
rst.Fields.Item("fla") = flaNo
rst.Fields.Item("CreateDate") = Format(Date, "yyyy-mm-dd")
rst.Update
MsgBox "添加成功!", 64, "提示信息"
rst.Close
Set rst = Nothing
End If一开始上面update没问题,
下面一个INSERT报语法出错,于是我换了种方法写就没事了,可上面却不行了。。同样是语法出错
请指点!!
rs.Open sql, pConn, adOpenForwardOnly, adLockReadOnly
If (Not rs.EOF) Then
sql = "update T_KBHI set START=" & Text3.Text & ",END=" & Text4.Text & ",fla=" & flaNo & ",UpdateDate=#" & Format(Date, "yyyy-mm-dd ") & "# WHERE KtNouber='" & Text1.Text & "' and Gnso='" & Text2.Text & "'"
pConn.Execute (sql)
MsgBox "更新成功!", 64, "提示信息"
Else
sql = "SELECT * FROM T_KBHI"
rst.Open sql, pConn, adOpenDynamic, adLockOptimistic
rst.AddNew
rst.Fields.Item("KtNouber") = Text1.Text
rst.Fields.Item("Gnso") = Text2.Text
rst.Fields.Item("START") = Text3.Text
rst.Fields.Item("END") = Text4.Text
rst.Fields.Item("fla") = flaNo
rst.Fields.Item("CreateDate") = Format(Date, "yyyy-mm-dd")
rst.Update
MsgBox "添加成功!", 64, "提示信息"
rst.Close
Set rst = Nothing
End If一开始上面update没问题,
下面一个INSERT报语法出错,于是我换了种方法写就没事了,可上面却不行了。。同样是语法出错
请指点!!
解决方案 »
- vb能做像word那样的工具栏吗?
- VB中...说美国ASCII内码从0-127个键,咋我数来数去只有125个???
- 高速串口的问题,急,给100分,在线等!!!!!!
- 问一个关于数据库的问题
- 2000下做的vb程序安装到xp后无法运行
- VB & Excel---在线急等
- 如何读取ACCESS数据库中表格的名称?
- 登录多台设备,但在日志文件里总是显示的是最后一台设备的查看信息,之前的设备信息没有应是被覆盖掉了
- 我有一个Recordset,我想从中把当前记录从这个RS里面删掉该怎么办呢?
- vb6是不是不支持access2000?
- 求event的最简单例子
- 高手进来帮帮忙啊~!~那位高手能帮我把记事本这段代码 !~~解释语句作用~!
改成 adOpenDynamic,adLockOptimistic试试
你把两个#改成' ,也许就可以了,另外在程序中嵌入sql语句时,最好用msgbox或者text将sql语句显示出来,很多时候就是差一个符号而已