VB怎样读取数据库并显示出来_工具

VB与数据库连接可以使用数据库控件进行,也可以引用ADO对象,数据库控件的使用比较简单,下面我就介绍使用ADO对象进行连接,首先打开"工程-引用",选择其中的Microsoft ActiveX Data Objects 20 Library(20以上版本都可以): \x0d\ACCESS数据库名为"学生mdb"其中有张数据库表名为"表",下面就介绍如何使用代码进行连接到数据库"学生",代码如下: \x0d\Function Connection() As String \x0d\'数据库的连接字符设置 \x0d\Connection = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath + "\学生mdb" \x0d\End Function \x0d\数据库"学生mdb"在当前目录下,故使用APPPath \x0d\Private Sub Form_Load() \x0d\Dim mr As New ADODBRecordset \x0d\Dim cnn As New ADODBConnection \x0d\Dim Sql As String \x0d\Sql="select from 表" \x0d\cnnOpen Connection '使用cnn对象打开数据库连接 \x0d\mrOpen Sql, cnn, adOpenKeyset, adLockOptimistic \x0d\'打开数据库记录 \x0d\If mreof then \x0d\msgbox "数据库表为空!" \x0d\else \x0d\msgbox "数据库表不为空!" \x0d\end if \x0d\set mr=nothing \x0d\'关闭记录对象 \x0d\set cnn=nothing \x0d\'关闭连接对象 \x0d\End Sub \x0d\OK,程序到此,已经能成功地访问数据库了,并能打开数据库中的表

有几个主要的错误原因：

这个错误发生在当你的程序试图执行更新数据库或其它类似 *** 作时。这是因为

ADO由于以下的几个原因而不能够写数据库造成的。

1。最普遍的原因是匿名用户帐号(IUSR_MACHINE)对该数据库文件没有写权限。

要解决这个问题，在管理器中调整数据库文件的属性，让匿名用户有正确的权限。

当使用ACCESS数据库时，不仅要给文件写的权限，还要给该目录写的权限，因为

Jet需要在该目录建立一个ldb文件。

2。第二个原因是数据库没有使用正确的模式打开。应该使用下面的方法打开。

SQL = "UPDATE Products Set UnitPrice = 2;"

Set Conn = ServerCreateObject("ADODBConnection")

ConnMode = 3 '3 = adModeReadWrite

ConnOpen "myDSN"

ConnExecute(SQL)

ConnClose

注意默认的Mode是设置0(adModeUnknown),它是允许更新的。

3。还有可能是在ODBC管理器中将该DSN的只读选项选中。

4。你是在同时更新两个表中的字段，也会出现这个错误信息，解决办法是分开来更新

这两个表中各自字段。

5。当你使用了一个从低版本中（如ACCESS20,ACCESS70）载入到高版本(ACCESS 2000)

中的查询时，在执行这个查询是会出现该错误。

解决办法

1、win2k win2003 系统

问题应该是服务器数据库目录的写入权限没有设置好。

数据库目录属性安全 EVERYONE ……给他写入权限就OK了。

2、winXP系统

XP *** 作系统安装好，文件夹选项里面默认使用简单共享(推荐)，把这个选项去掉，

再在文件夹上右键点击，就会出现安全这个选项卡，

原来默认的没有，然后在安全选项卡里面可以设置用户的写入权限了

右击数据库>安全>everyone>将需要的勾上

意思就是系统不让更新数据库了，就是对数据库没有写入的权限了。

在2000或XP下的NTFS格式的文件，都有权限设置的，用鼠标右键点文件或文件夹选属性，架设你的网站是在webroot的文件夹里，再点安全，你可以看看允许项有没有打钩。

上面的Everyone就是所有人的意思，你可以上这个用户组可以完全控制

那样就不会再有那个错误了。

原因：