VB+ACCESS当前记录集不支持更新.这可能是提供程序的限制,也可能是选定锁定类型的限制

ImportsADODBPublicClassForm2DimaAsNewADODB.ConnectionDimbAsNewADODB.RecordsetPrivateS... Imports ADODB
Public Class Form2
Dim a As New ADODB.Connection
Dim b As New ADODB.Recordset
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
If Not TextBox1.Text = "" Then
Button1.Enabled = True
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cnStr As String = "Provider=microsoft.ace.oledb.12.0;Persist Security Info=False;Data Source=C:\Users\lenovo\Desktop\WindowsApplication3\hospital (1).accdb;Persist Security Info=False"
a.Open(cnStr)
Dim sql As String = "select * from patient ", adOpenKeyset, adLockOptimistic
b.Open(sql, a)
b.AddNew()
b.Fields(0).Value = TextBox1.Text
b.Fields(1).Value = TextBox2.Text
b.Fields(2).Value = ComboBox1.Text
b.Fields(3).Value = TextBox4.Text
b.Fields(4).Value = ComboBox2.Text()
b.Fields(5).Value = ComboBox3.Text
b.Update()
End Sub

addnew处一直提示出错。。。
展开
 我来答
money0_04c351c2
2015-09-14 · TA获得超过4142个赞
知道大有可为答主
回答量:5505
采纳率:49%
帮助的人:1609万
展开全部
查一下你的MDB文件(就是hospital (1).accdb)是否设置了只读,或者被Access打开锁定了。
另:Open后别忘了 Close,养成好习惯。
追问
b.AddNew(sql, a)
……
b.Update(sql, a)
b.Close()
之前有显示item是只读,就去accdb里面增加了权限,可问题还是存在
揭戈雅s2
2015-09-14 · TA获得超过514个赞
知道小有建树答主
回答量:8621
采纳率:0%
帮助的人:2322万
展开全部
vb代码帮调试修改
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式