VB怎样读取数据库并显示出来？

Question

小弟Vb刚学，什么都还不懂。我想问一下Vb怎样读取MDB数据库并显示出来。
我D盘有个“1.mdb”文件。想通过Vb读取出来里面的数据并显示到由图所示的DataGrid控件上。

Answer 1

　　VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

ACCESS数据库，用VB6里的Data控件，选中它，设置属性：


DatabaseName å±žæ€§ï¼šè¿žæŽ¥åˆ°æ•°æ®åº“文件

RecordSource å±žæ€§ï¼šè¿žæŽ¥æ•°æ®è¡¨ï¼ˆå¯ä»¥ç”¨Select语句返回记录集）

然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。

Answer 2

用StrIn = Inet1.GetChunk(0, icString)获取到查询结果，然后直接打印到VB窗口，或是绑定到相关控件上就可以了。

Answer 3

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

Answer 4

OleDbConnection conn = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\1.mdb ");
conn.Open();
DataTable dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,
new object[] { null, null, null, "TABLE" });
conn.Close();
GridView2.DataSource = dt;
GridView2.DataBind();

Answer 5

读写加密数据库源代码，你下载来看看

参考资料：http://www.vb2005.com/read.php?tid=69