数据库为空,为什么总是不能插入数据?
这段代码有什么问题
sub AddCount()
dim sql,irs
dim conn
dim connstr
db= "WryData.mdb " '数据库文件位置
on error resume next
connstr= "DBQ= "+server.mappath( " "&db& " ")+ ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; "
set conn=server.createobject( "ADODB.CONNECTION ")
if err then
err.clear
else
conn.open connstr
end if
sql= "select ClickCount from country where countryName= " & clientCountry
Set irs=conn.Execute(sql)
If irs.eof And irs.bof Then
sql= "Insert into Country(countryName,ClickCount) values( 'wef ', '1 ') "
set a=conn.Execute(sql)
Else
Do While Not irs.eof
sql= "update Country set ClickCount = " & irs( "ClickCount ")+1 & " where CountryName = " & clientCountry
set a=conn.Execute(sql)
irs.movenext
Loop
End If
sql= "Insert into Country(countryName,ClickCount) values( 'wef ', '1 ') "
set a=conn.Execute(sql)
a.close
set a=nothing
irs.close
Set irs=nothing
Set conn=Nothing
End sub
------解决方案--------------------
整型不用单引号的。
sql= "Insert into Country(countryName,ClickCount) values( 'wef ', 1) "
------解决方案--------------------
on error resume next
把这句话去掉 看看哪里出错
------解决方案--------------------
sql= "select ClickCount from country where countryName= " & clientCountry
sql语句错误,
应该改为:
sql= "select ClickCount from country where countryName= ' " & clientCountry& " ' "