access数据库读写
㈠ 我买了一本Access数据库方面的书,如何将其中的Access 数据库只读范例变成为可以读写的例子
去掉只读保护就行了。
或者就你参考这个例子,自己做一个一模一样的access数据库即可。
㈡ access数据库无法读写
数据库字段类型不正确,或者是没写权限
㈢ 怎么用VB来对ACCESS数据库读写,我想把表直接显示出来.
(注意要把你的数据库文件和你的工程窗体啥的放在同一个文件夹里)
先插入一个模块,在模块里写代码
Public cn As ADODB.Connection
Sub con()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.扩展名;Persist Security Info=False"(在一行里)
End Sub
在窗体里写代码
call con
cn.open //打开数据库
Dim rs As ADODB.Recordset //rs是变量
Set rs = New ADODB.Recordset
查找
rs.Open "select * from 表名 where 字段名1=' " & Text1.Text & " ' and 字段名2= ' " & Text2.Text & " ' ", cn //text里的内容是符合你要查找的要求
rs.Open "select * from 表名" //查找整个表的内容
Set DataGrid1.DataSource = rs //显示在DataGrid里
往数据库里添加内容是(不过貌似只能一个一个的吧,要不就用循环)
cn.Execute "INSERT INTO 表明 (字段1,字段2,字段3) VALUES('" & Text1 & "','" & Text2 & "','" & Combo3.Text & "')"
删除 cn.Execute "DELETE FROM 表明 where 字段名='" & Text1 & "'"