【VFB源码】ADO例题

勇芳软件

这里，只举例了几个ADO使用方法，还有更多请看里面的【CADODB全部例题.rar】
引用：

1. #include "Afx/CADODB/CADODB.inc"

复制代码

打开连接

1.   Dim pConnection As CAdoConnection Ptr = NEW CAdoConnection
   
2.   pConnection->Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=青海全省.mdb"

复制代码

打开记录集

1. Dim pRecordset As CAdoRecordset
   
2.   ' // 将光标位置设置到客户端对于获取断开的记录集非常重要
   
3.   pRecordset.CursorLocation = adUseClient
   
4.   ' // 打开记录集
   
5.   Dim cvSource As CVAR = "SELECT * FROM bus"
   
6.   pRecordset.Open(cvSource, pConnection, adOpenKeyset, adLockOptimistic, adCmdText)
   
7.   
   
8.   ' // 通过将其活动连接设置为空来断开记录集。
   
9.   ' // 投射到Afx_ADOConnection PTR需要获得正确的重载方法;
   
10.   ' // 否则，CVAR版本将被调用并且会失败。
    
11.   pRecordset.ActiveConnection = Cast(Afx_ADOConnection Ptr, Null)

复制代码

关闭并释放连接

1. Delete pConnection

复制代码

解析记录集

1.   Do
   
2.       ' // 虽然不在记录集的末尾...
   
3.       If pRecordset.EOF Then Exit Do
   
4.       ' // 获取“返程”列的内容
   
5.       '   DIM cvRes AS CVARIANT = pRecordset.Collect("Author")
   
6.       '   PRINT cvRes
   
7.       FF_ListBox_AddString HWND_FORM1_LIST1,pRecordset.Collect("返程")
   
8.       ' // 取下一行
   
9.       If pRecordset.MoveNext <> S_OK Then Exit Do
   
10.   Loop

复制代码

源码下载：Basic语言编程群 78458582 进QQ群后，在群共享里下载。

xiawan

非常感谢~~支持~~~