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 |
|