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

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

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

2. DatabaseName 属性：连接到数据库文件

3. RecordSource 属性：连接数据表（可以用Select语句返回记录集）

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

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

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,程序到此,已经能成功地访问数据库了,并能打开数据库中的表

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();

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