一段小程序,却总是出错,百思不得其解,原来是连接符“&”和“+”在搞鬼,如下:
create table text( 数量,Integer)
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim fang As Integer
Set dbs = CurrentDb()
fang = 10
strSQL = "insert into text(数量)values(" + fang + ")" '这时会出错,提示类型不匹配
strSQL = "insert into text(数量)values(10)" '不出错,可以正常添加记录
修改:
strSQL = "insert into text(数量)values(" & fang & ")" '将"+"替换为"&",程序就可以正常运行了。
dbs.Execute strSQL
"+"替换为"&"的用法区别请参看:http://www.exceljy.com/thread-2485-1-1.html