1700416205
计算机是怎样跑起来的 8.9 使用数据对象向DBMS发送SQL语句
1700416206
1700416207
在Windows应用程序中，向DBMS发送SQL语句时，一般情况下使用都是被称为数据对象（Data Object）的软件组件（参考第7章所介绍的类）。一般的开发工具都包含了数据对象组件，在Visual Basic 6.0中，使用的是被称为ADO（ActiveX Data Object，ActiveX数据对象）的数据对象。
1700416208
1700416209
ADO是以下几个类的统称，其中包括用于建立和DBMS连接的Connection类，向DBMS发送SQL语句的Command类以及存储DBMS返回结果的Recordset类等。图8.14所示的应用程序的代码如代码清单8.1所示。
1700416210
1700416211
代码清单8.1 使用ADO访问数据库的示例程序（VB6.0）
1700416212
1700416213
‘实例化ADO提供的类
1700416214
1700416215
Dim con As New ADODB.Connection
1700416216
1700416217
Dim cmd As New ADODB.Command
1700416218
1700416219
Dim rst As New ADODB.Recordset
1700416220
1700416221
‘处理程序启动事件
1700416222
1700416223
Private Sub Form_Load()
1700416224
1700416225
con.ConnectionString=_
1700416226
1700416227
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=liquor_store.mdb”
1700416228
1700416229
con.Open
1700416230
1700416231
End Sub
1700416232
1700416233
‘处理“录入”按钮单击事件
1700416234
1700416235
Private Sub cmdCreate_Click()
1700416236
1700416237
rst.AddNew
1700416238
1700416239
SetRecordset
1700416240
1700416241
rst.Update
1700416242
1700416243
End Sub
1700416244
1700416245
‘处理“获取”按钮单击事件
1700416246
1700416247
Private Sub cmdRetrieve_Click()
1700416248
1700416249
If rst.State=adStateOpen Then
1700416250
1700416251
rst.Close
1700416252
1700416253
End If
[
上一页 ]
[ :1.700416204e+09 ]
[
下一页 ]