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

2023-12-19 17:56:08
有5个网友回答
网友(1):

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

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

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

  3. RecordSource 属性:连接数据表(可以用Select语句返回记录集)

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

网友(2):

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

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

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

网友(5):

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