VB连接SQL2000数据库代码
Private Sub Command1_Click()'首先引用MicrosoftActivexDataObjects2.xLibrary
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;userid=sa;password=hNXQF222;InitialCatalog=Northwind;DataSource="
objrs.Open "select*fromOrders", objcon, 3, 1
'在部件中添加DataGrid控件
Set DataGrid1.DataSource = objrs
End Sub
页:
[1]