社区
VB基础类
帖子详情
vb6.0引入recordset_Deprecated
qq_32855641
2016-05-26 03:58:46
vb6.0要用recordset_Deprecated应该引入哪个dll?
...全文
188
回复
打赏
收藏
vb6.0引入recordset_Deprecated
vb6.0要用recordset_Deprecated应该引入哪个dll?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
VB中
recordset
的用法
VB中
recordset
的用法,很全,很不错
VB6
.0 连Access示例
用
vb6
.0连接Access数据库的简单示例.
VB6
.0利用组合图分析轿车的销售情况.rar
VB6
.0利用柱状图(直方图)组合图分析轿车的销售情况,用这种图表可以使软件呈现数据报表更清淅明了,推荐要多使用这种方式显示报表式数据。以下是具体代码: MSChart1.chartType = VtChChartType2dCombination Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\eg.mdb;Persist Security Info=False" Adodc1.RecordSource = "SELECT fullname,sum(qty) as tum1 FROM tbS_sell_detailed group by fullname" Adodc1.Refresh Dim arrData(5, 1 To 2) For i = 0 To Adodc1.
Recordset
.RecordCount - 1 arrData(i, 1) = Adodc1.
Recordset
.Fields(0) ' 在第一列设置标签。 arrData(i, 2) = Adodc1.
Recordset
.Fields(1) Adodc1.
Recordset
.MoveNext Next i MSChart1.ChartData = arrData
帐目查询(
VB6
.0源代码编写)'按日期查询并汇总商品销售信息 Adodc1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期"
帐目查询(
VB6
.0源代码编写)'按日期查询并汇总商品销售信息 Adodc1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期" Adodc1.Refresh lblCount = Sum(Adodc1.
Recordset
, Adodc1.
Recordset
.Fields("数量")) lblS1 = Sum(Adodc1.
Recordset
, Adodc1.
Recordset
.Fields("金额")) lblS2 = Sum(Adodc1.
Recordset
, Adodc1.
Recordset
.Fields("利润"))
vb6
.0数据库讲义.ppt
了解数据库的一些基本概念,掌握创建Access数据库的方法 掌握使用DATA和ADO数据控件连接数据库和数据表的方法 掌握数据识别控件绑定到ADO数据控件的方法 掌握ADO控件的
Recordset
对象常用方法和属性 理解ADO对象模型的概念,掌握使用ADO对象模型编程的方法和步骤 掌握SQL查询语句在VB中的使用
VB基础类
7,765
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章