徒手整形方法:关于SQL server和vb

来源:百度文库 编辑:高校问答 时间:2024/04/29 06:02:04
如何在vb中显示数据库的内容

先在引用中引用ADO数据库连接

Private Sub Form_Load()
'定义数据库连接的连接对象
Dim con As New ADODB.Connection
'定义数据库连接的数据集
Dim rs As New ADODB.Recordset
'定义数据库连字串,数据源名要设置为自己的数据源名
con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=数据源名"
'进行连接
con.Open
'获得数据集,SQL语句为查询SQL,连接名为数据库连接的名字,这里为CON
rs.Open "SQL语句", 连接名, adOpenDynamic, adLockPessimistic
'数据输出,数据集合名为定义的数据集的名字,这里为RS,列名为数据库的列字段名
text1.test = 数据集名!列名
End Sub

这是一个简单的数据库连接查询内容的样子,只会显示一条,如果要显示所有的,把输出语句放在循环内

好,支持

好,支持