您的位置：程序门 -> vb -> 网络编程

写数据库的问题。请大家帮忙

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

写数据库的问题。请大家帮忙

发表于：2007-03-16 11:54:58 楼主

select case lngresult
case 1

strshow = "isdn号＝ " & strisdnnum & " 对方手机号＝ " & strsouraddr & "消息内容＝ " & strmsg
lblgetsmsnum.caption = cstr（cint（lblgetsmsnum.caption) + 1)
case 0
strshow = "没有收到短消息 "
case else
strshow = "其它错误 "
end select

因为我只会asp．这次是vb．目的就是当case １　成立时，在显示消息前，把＂新短信＂的字符到写入数据库．下面是我改的．
select case lngresult
case 1

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim stmp as string
stmp= "provider=microsoft.jet.oledb.4.0;data source= " & app.path & "\test.mdb;persist security info=false;jet oledb:database password=; "
cn.open stmp
stmp= "insert into test（test） values（ '新短信 ') "
rs.open stmp,cn
re.close

strshow = "isdn号＝ " & strisdnnum & " 对方手机号＝ " & strsouraddr & "消息内容＝ " & strmsg
lblgetsmsnum.caption = cstr（cint（lblgetsmsnum.caption) + 1)
case 0
strshow = "没有收到短消息 "
case else
strshow = "其它错误 "
end select

但是我测试的时候当case　成立的时候，数据库没有任何变化。是不是哪里写错了，还是vb要有什么环境？

发表于：2007-03-16 15:41:251楼得分:0

select case lngresult
case 1
dim cn as new adodb.connection
dim stmp as string
stmp = "provider=microsoft.jet.oledb.4.0;data source= " & app.path & "\test.mdb;user id=admin; password= "
cn.open stmp
stmp = "insert into test（test) values（ '新短信 ') "
cn.ＥＸＥＣute stmp

strshow = "isdn号＝ " & strisdnnum & " 对方手机号＝ " & strsouraddr & "消息内容＝ " & strmsg
lblgetsmsnum.caption = cstr（cint（lblgetsmsnum.caption) + 1)
set cn = nothing
case 0
strshow = "没有收到短消息 "
case else
strshow = "其它错误 "
end select

发表于：2007-03-16 17:03:212楼得分:0

rs.update