1,216
社区成员
发帖
与我相关
我的任务
分享
Dim adoCon As ADODB.Connection
Dim adoRec As ADODB.Recordset
Set adoCon = New ADODB.Connection
Set adoRec = New ADODB.Recordset
Dim strSql As String
Dim strCon As String
strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;"
strCon = strCon + "Initial Catalog=test;Data Source=(local)"
adoCon.ConnectionString = strCon
adoCon.Open
strSql = "select * from t_test1"
adoRec.Open strSql, adoCon, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = adoRec