34,872
社区成员
发帖
与我相关
我的任务
分享vb+sql2000操作时提示不能更新 数据库为只读 ？
以下是代码
Private Sub Form_Load()
Dim strsql As String
'打开工作空间
Set Workspace = CreateWorkspace("", "admin", "", dbUseJet)
'通过ODBC连接数据库
Set Database = Workspace.OpenDatabase("mydatabase", False, False, "odbc;dsn=mydatabase;uid=sa;pwd=;database=myfirstdatabase")
'构造SQL语句
strsql = "select * from 学生信息记录"
'获取执行该SQL语句后得到的记录集Recordset
Set Recordset = Database.OpenRecordset(strsql, dbOpenDynaset, dbSeeChanges)
'调用displaydata函数在相应的文本框中显示数据
displaydata
End Sub
Private Sub Form_Load()
Dim strsql As String
'打开工作空间
Set Workspace = CreateWorkspace("", "admin", "", dbUseJet)
'通过ODBC连接数据库
Set Database = Workspace.OpenDatabase("mydatabase", False, False, "odbc;dsn=mydatabase;uid=sa;pwd=;database=myfirstdatabase")
'构造SQL语句
strsql = "select * from 学生信息记录"
'获取执行该SQL语句后得到的记录集Recordset
Set Recordset = Database.OpenRecordset(strsql, dbOpenDynaset, dbSeeChanges)
'调用displaydata函数在相应的文本框中显示数据
displaydata
End Sub
...全文
请发表友善的回复…
发表回复
kevin_水滴石穿 2011-09-20
- 打赏
- 举报
是VB6的版本吧
-晴天 2011-09-19
- 打赏
- 举报
工作空间?
你是VB还是VB.NET?
你是VB还是VB.NET?
大力水手 2011-09-19
- 打赏
- 举报
权限不够的话是不是不该报这个错误
dawugui 2011-09-19
- 打赏
- 举报
也许你的用户操作sql server的权限不够.
饮水需思源 2011-09-19
- 打赏
- 举报
建议用ADO直接连接数据库来操作
areswang 2011-09-19
- 打赏
- 举报
逐句调试下看看
geniuswjt 2011-09-19
- 打赏
- 举报
我表示VB好像也不是这么调用的吧- -
--小F-- 2011-09-19
- 打赏
- 举报
VB的 问水哥
UnTit1E 2011-09-19
- 打赏
- 举报
帮顶~
