VB 连接SQL2000数据库代码

VBA连接SQL数据库示例

最新推荐文章于 2023-09-13 11:50:53 发布

最新推荐文章于 2023-09-13 11:50:53 发布 · 109 阅读

文章标签：

#数据库

本文介绍了一个使用VBA连接SQL Server数据库并展示查询结果的例子。通过建立ADO连接对象和记录集对象，实现了从指定数据库中检索订单数据，并利用DataGrid控件进行展示。

Private Sub Command1_Click()

'首先引用Microsoft Activex Data Objects 2.x Library
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
Dim strConn As String

strConn = "Provider=SQLOLEDB.1;User ID=sa;password=密码;Initial Catalog=数据库名称;Data Source=本机IP地址(192.168.1.136)"
objcon.Open strConn
'strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=hNXQF222;Initial Catalog=database;Data Source=192.168.1.136"

'objcon.Open "Provider=sqloledb.1;user id=sa;password=hNXQF222;Initial Catalog=Northwind;Data Source="
objrs.Open "select * from Orders", objcon, 3, 1
'在部件中添加DataGrid控件
Set DataGrid1.DataSource = objrs
End Sub