永猎双子怎么连招:VB-ADO:连接与操作数据库的简单范例

来源:百度文库 编辑:中财网 时间:2024/04/27 14:42:42
Private Sub Form_Load()
Dim cn as ADODB.Connectinon
Dim Rs AS ADODB.Recordset
Dim strSQL as string
Set cn=New ADODB.Connection
Set Rs=New ADODB.Recordset
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Nwind.mdb;Persist Security Info=False"
cn.Open '打开连接
strSQL="select * from table "
Rs.open setSQL,cn ’将数据库操作放入Recordset
cn.Execute strSQL '执行操作
内容:Cn.close
set cn= nothing
oRs.close
set oRs=Nothing '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
end sub