社区
VB基础类
帖子详情
求教关于 Dim ... as New Adodc 的问题?
Phillip
2000-05-01 12:48:00
小弟不明白
dim abcd as new adodc
所声明的变量与用控件生成的 ADODC1 对象的区别?
和此变量的用法?
...全文
197
1
打赏
收藏
求教关于 Dim ... as New Adodc 的问题?
小弟不明白 dim abcd as new adodc 所声明的变量与用控件生成的 ADODC1 对象的区别? 和此变量的用法?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
江王
2000-05-01
打赏
举报
回复
两者是不同的。一个是运行时创建的,一个是设计时刻创建的,两者的机制是完全不一样的。要记住:控件不能在运行时动态创建(至少在VB5.0及以前的版本是这样的,VB6.0虽然可以动态创建控件,但不是通过new语句来完成这功能的,其过程比较繁琐,在此就不介绍了)。New语句一般是用来创建引用对象或者自定义类对象的。
New语句只是创建一个Com对象而已,而创建一个控件却远不是这么简单,至少它要指定容纳控件的容器,而这一点在New语句是做不到的。
ado
dc
-client.rar_
ADO
DC
查询_
Ado
dc
_查询添加删除
基于
ADO
DC
和ACCESS的客户管理程序,可实现客户信息的添加、删除、查询、修改等。
VB6.0利用组合图分析轿车的销售情况.rar
VB6.0利用柱状图(直方图)组合图分析轿车的销售情况,用这种图表可以使软件呈现数据报表更清淅明了,推荐要多使用这种方式显示报表式数据。以下是具体代码: MSChart1.chartType = VtChChartType2
dC
ombination
Ado
dc
1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\eg.mdb;Persist Security Info=False"
Ado
dc
1.RecordSource = "SELECT fullname,sum(qty) as tum1 FROM tbS_sell_detailed group by fullname"
Ado
dc
1.Refresh
Dim
arrData(5, 1 To 2) For i = 0 To
Ado
dc
1.Recordset.Recor
dC
ount - 1 arrData(i, 1) =
Ado
dc
1.Recordset.Fields(0) ' 在第一列设置标签。 arrData(i, 2) =
Ado
dc
1.Recordset.Fields(1)
Ado
dc
1.Recordset.MoveNext Next i MSChart1.ChartData = arrData
查询记录功能,从access数据库中读取,
Ado
dc
1.RecordSource = "select * from 订单表 where 订
查询记录功能,从access数据库中读取,
Ado
dc
1.RecordSource = "select * from 订单表 where 订 单号='" + Text1(0).Text + "'"
Ado
dc
1.Refresh(VB6.0源代码编写)
VB中用
ADO
DC
控件连接ACCESS数据库.doc
VB中用
ADO
DC
控件连接ACCESS数据库
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息
Ado
dc
1.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源代码编写)'按日期查询并汇总商品销售信息
Ado
dc
1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期"
Ado
dc
1.Refresh lblCount = Sum(
Ado
dc
1.Recordset,
Ado
dc
1.Recordset.Fields("数量")) lblS1 = Sum(
Ado
dc
1.Recordset,
Ado
dc
1.Recordset.Fields("金额")) lblS2 = Sum(
Ado
dc
1.Recordset,
Ado
dc
1.Recordset.Fields("利润"))
VB基础类
7,763
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章