1,216
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data Source=TEST;"
strQuery = "select * from aaa"
Set rs = New ADODB.Recordset
rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
Private Sub Form_Load()
'定义数据库连接对象
Dim cn As ADODB.Connection
'定义数据集对象
Dim rs As ADODB.Recordset
'实例化cn对象
Set cn = New ADODB.Connection
'使用指定数据库连接字串,打开数据库连接
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data Source=TEST;"
'构造SQL语句
strQuery = "select * from aaa"
'实例化rs
Set rs = New ADODB.Recordset
'将SQL语句发送给数据库,获得相应的记录集
rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
'设定界面控件DataGrid1的数据源为rs
Set DataGrid1.DataSource = rs
End Sub