为什么我对表进行修改总是出错啊?在线等大家的回答

jsjgk 2003-03-28 11:56:09
我将数据库用data控件连起来,可以进行查看,但在添加和删除是总是说database or object is read-only.我已经把data的raedonly改成了false,还是不行啊!下面是我的代码
Private Sub cmdAdd_Click()

Data1.Recordset.AddNew
Data1.Recordset.Fields("姓名") = Text1.Text
Data1.Recordset.Fields("就读学校") = Text2.Text
Data1.Recordset.Fields("地址") = Text3.Text
Data1.Recordset.Fields("性别") = Text4.Text
Data1.Recordset.Fields("联系电话") = Text5.Text
Data1.Recordset.Fields("QQ") = Text6.Text
Data1.Recordset.Update
MsgBox "记录添加完成!", vbOKOnly + vbInformation, "提示"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub



Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveNext
ElseIf Not Data1.Recordset.BOF Then
Data1.Recordset.MovePrevious
Else
MsgBox "这是最后一条记录"
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus

End Sub
...全文
9 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jsjgk 2003-03-29
Data1.RecordsetType我也是设置成dynaset,我想知道是不是数据库文件的问题
回复
zsgzsgzsg 2003-03-29
Data1.RecordsetType不要是snapshot
回复
jsjgk 2003-03-29
up
回复
jsjgk 2003-03-29
连接数据库代码应该没问题,data1.connect=access,data1.databasename=app.path&"/好友信息.mdb",data1.recordsource="select * from 好友基本信息,好友其它信息 where 好友基本信息.姓名=好友其它信息.姓名".
回复
饮水需思源 2003-03-29
看看你的连接数据库代码?
回复
sxs69 2003-03-29
Data1.Connect = "Access"
Data1.DatabaseName = App.Path & "\好友信息.mdb"
Data1.RecordSource = "select * from 好友基本信息 where 姓名 IN (SELECT * FROM 好友其它信息)"
Data1.Refresh
回复
jsjgk 2003-03-29
up
回复
zsgzsgzsg 2003-03-29
难道数据库文件是read-only??
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-28 11:56
社区公告
暂无公告