说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

为什么只能添加一条记录?帮帮忙,谢谢

编辑:说三道四文库 发布时间:2018-07-16 04:27
HTML文档下载 WORD文档下载 PDF文档下载
我向access数据库中的以id为主键的表,用insert 语句向表中加数据,为什么只能添加一条?之后,我无论怎么用此代码再次执行,可是就是数据库中没有新内容,为什么呢?谢谢!
代码贴出来
添加的数据不要包括id
Private Sub Command3_Click()
Dim dbs  As Database
   Set dbs = OpenDatabase(App.Path & "\xuexi.mdb")
   SQLstr = "INSERT INTO moshi (name,banji,zhiwu) VALUES('" & Text1.Text & "','"_ & Text2.Text & "','" & Combo1.Text & "');"
dbs.Execute SQLstr
dbs.Close

End Sub
我没有向id中添加数据,只是,我用他做为表的主键而已了
我没用过dao,但觉得你的代码有点问题,是不是没有更新数据库?
我试过你的代码,没有问题
实在不好意思,我忘了,我已经将id的数据类型改为“数字”了,我试,就只能加一条记录,然后打开表看,id为0 ,所以,只有第一次添加的记录,其余的就没有了,不知道为什么,谢谢大家!
好象id的数据类型应该为“自动编号”
看看返回的错误呀
Private Sub Command3_Click()
Dim dbs  As Database
   Set dbs = OpenDatabase(App.Path & "\xuexi.mdb")
   SQLstr ="select*from moshi"
set rs=new adadb.recordset
rs.open SQLstr,dbs,3,2
rs.addnew
rs("name")=text1.text
rs("banji")=text2.text
rs("zhiwu")=combo1.text
rs.updata
看看这样行不
你是在添加后改的还是在添加前改的???
改成数字型的就没有了?你应将ID设为自动编号型的。
你应将ID设为自动编号型的。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘