下面这段代码,向数据库中插入一条记录
数据库表里面的字段类型为长整数形。 Dim strSQL As String
strSQL = ""
strSQL = "INSERT INTO TD_CALENDAR(Nendo,Gatsudo,Hour,Minute) VALUES("
strSQL = strSQL & Val(Trim(Me.cboNendo.Text)) & ","
strSQL = strSQL & Val(Trim(Me.cboGatsudo.Text)) & ","
strSQL = strSQL & Val(Trim(Me.txtHour.Text)) & ","
strSQL = strSQL & Val(Trim(Me.txtMinute.Text)) & ")"
rst.Open strSQL, con, 1, 3执行到最后一句时,报错:SQL文有错误!
这时候的SQL文:
INSERT INTO TD_CALENDAR(Nendo,Gatsudo,Hour,Minute) VALUES(17,12,148,5)如果把这段SQL文放到Access2000里执行,完全正确,能够顺利地把数据插入进去。
但是在程序里就不行,好困惑!!
哪位大哥知道为什么,请指点一下!!
数据库表里面的字段类型为长整数形。 Dim strSQL As String
strSQL = ""
strSQL = "INSERT INTO TD_CALENDAR(Nendo,Gatsudo,Hour,Minute) VALUES("
strSQL = strSQL & Val(Trim(Me.cboNendo.Text)) & ","
strSQL = strSQL & Val(Trim(Me.cboGatsudo.Text)) & ","
strSQL = strSQL & Val(Trim(Me.txtHour.Text)) & ","
strSQL = strSQL & Val(Trim(Me.txtMinute.Text)) & ")"
rst.Open strSQL, con, 1, 3执行到最后一句时,报错:SQL文有错误!
这时候的SQL文:
INSERT INTO TD_CALENDAR(Nendo,Gatsudo,Hour,Minute) VALUES(17,12,148,5)如果把这段SQL文放到Access2000里执行,完全正确,能够顺利地把数据插入进去。
但是在程序里就不行,好困惑!!
哪位大哥知道为什么,请指点一下!!
解决方案 »
- WebBrowser的silent设置成true以后在调试或编译的时候自动改成flase是什么问题??
- 各位大侠.高难度问题.关于textbox框里.怎么让显示的内容用二种不同的颜色呢?
- 在线急等,请问vb中各个文件类型代表什么意思,比如frm类型代表窗体等等,在什么地方有这方面的详细说明
- 关于窗口
- 如何获得一个目录下的所有EXCEL文件?
- 满分提问。。。。
- 用vb 的控件--microsoft activemovie 来播放多媒体时的问题
- 递归是怎么实现的
- listview控件如何返回当前选中的表格的index?
- 请问如何用VB连EXCEL做不规则表头的报表呢 谢谢!
- 急!!!!!救命啊
- 进来就有分!!!!!!!!
建议楼主少用SQL的保留字
大哥一言中的,佩服佩服!!!
万分感谢!!我把字段名改成别的名字就好了,困扰了我一上午的问题终于解决了。
马上结帖!