找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 2882|回复: 1

【VFB源码】ADO例题

[复制链接]

51

主题

31

回帖

648

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
506 个
贡献
1 次
宅之契约
0 份
在线时间
23 小时
注册时间
2017-12-26
发表于 2018-3-6 16:35:34 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

×
1520320706838585.jpg
这里,只举例了几个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群后,在群共享里下载。

回复

使用道具 举报

1

主题

157

回帖

603

积分

用户组: 大·技术宅

UID
7535
精华
0
威望
0 点
宅币
445 个
贡献
0 次
宅之契约
0 份
在线时间
67 小时
注册时间
2021-10-16
发表于 2022-5-17 09:40:31 | 显示全部楼层

非常感谢~~支持~~~
回复 赞! 靠!

使用道具 举报

QQ|Archiver|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2024-3-28 21:43 , Processed in 0.040387 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表