数据库之主流用法——对象和控件联合操纵数据库

 '利用控件操作数据库
Private Sub Form_Load()
Dim sum As Integer
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/双极化.mdb;" '1.加载驱动，找到并打开数据库
Adodc1.RecordSource = "select * from 双极化" '2.SQL语句操作数据库并将记录保存在Recordset中（可以想到他和Adodc1.Recordset一定是有有通讯的，可以看设计机理）
Adodc1.Refresh '刷新一下
Adodc1.Recordset.MoveFirst '移动到第一个记录
While Adodc1.Recordset.EOF = False
sum = sum + Adodc1.Recordset.Fields(0) '3.提取记录
Adodc1.Recordset.MoveNext
Wend

Debug.Print sum
End Sub
'这种做法的好处是很方便的操作记录！
'这种方法很经常和用对象连接数据库的方式联合起来用，效果非常好！
'将二种方式联合运用是一种主流的运用方式！（基本上是万能的拉！）

'这二种用法很相似！！！还有其他的用法，待发现他的好！
'
'
'

'用对象操作数据库
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub Form_Load()
Dim temp As String
Dim sum As Integer
temp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/双极化.mdb" '1.数据源
con.Open (temp) '2.打开数据库
'con.ConnectionString = "Provider=Microsoft.Jet.4.0.OLEDB;Data Source=" & App.Path & "/双极化.mdb"
'con.Open temp
Set rs = con.Execute("select * from 双极化") '3.SQL操作数据库将结果保存在ADODC.Recordset对象中
   'rs.Open "select * from 双极化", con, adOpenKeyset, adLockOptimistic
rs.MoveFirst
While rs.EOF = False
   sum = sum + rs.Fields(0) '4.取出数据运算
   rs.MoveNext
Wend
rs.Close '释放资源
con.Close
Debug.Print sum
End Sub