社区
VB基础类
帖子详情
想请教一下Ado.recordsource的用法!
wozhy
2002-01-31 09:39:33
Ado.recordsource=?
在问号的地方应该写什么。我写表名可以实现效果,但是我写SQL就有点问题!
比如我写Ado.recordsource=“select * from 表名”,可运行后通不过,显示
from子句语法错误,请高手指教!
...全文
159
6
打赏
收藏
想请教一下Ado.recordsource的用法!
Ado.recordsource=? 在问号的地方应该写什么。我写表名可以实现效果,但是我写SQL就有点问题! 比如我写Ado.recordsource=“select * from 表名”,可运行后通不过,显示 from子句语法错误,请高手指教!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wozhy
2002-02-01
打赏
举报
回复
这个问题终于解决了,不是上面所说的,好象是我曾经改过ADODC的数据源,后来恢复后就不行了,现在删掉重建后解决,谢谢大家!
visualbaby
2002-01-31
打赏
举报
回复
楼上说的有道理,但是我想是不是也与recordsource选项中的command type有关呢
woookaooo
2002-01-31
打赏
举报
回复
同意上面的。
tief
2002-01-31
打赏
举报
回复
表名字如果和关键字有冲突就用[]括起来
wozhy
2002-01-31
打赏
举报
回复
我说的就是Ado控件!
feihong0233
2002-01-31
打赏
举报
回复
adodc?
查询记录功能,从access数据库中读取,
Ado
dc1.
Record
Source
= "select * from 订单表 where 订
查询记录功能,从access数据库中读取,
Ado
dc1.
Record
Source
= "select * from 订单表 where 订 单号='" + Text1(0).Text + "'"
Ado
dc1.Refresh(VB6.0源代码编写)
查询指定控件内字符的例子,内附全部VB源代码及详细说明,有数据库的联接等DataGrid的应用,
Ado
dc1.
Record
Source
查询指定控件内字符的例子,内附全部VB源代码及详细说明,有数据库的联接等DataGrid的应用,
Ado
dc1.
Record
Source
成语字典代码
Record
source
Record
set bookmark Option Compare Database Private Sub Form_Close() 'DoCmd.Quit acQuitSaveNone 'Application.Quit acQuitSaveNone End Sub Private Sub Form_Load() 'DoCmd.RunCommand acCmdAppMinimize Set Me.SUB.Form.
Record
set = Me.
Record
set End Sub Private Sub Image13_Click() Me.
Record
set.MoveFirst Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image14_Click() On Error Resume Next Me.
Record
set.MovePrevious Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image15_Click() 'Forms!main.
Record
set.MoveNext 'Forms!main!SUB.Form!CM.SelLength = 0 '****************************************** On Error Resume Next Me.
Record
set.MoveNext Me!SUB.Form!CM.SelLength = 0 '****************************************** 'Me.
Record
set.MoveNext 'Me.SUB.Form.CM.SelLength = 0 End Sub Private Sub Image16_Click() Me.
Record
set.MoveLast Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image19_Click() On Error Resume Next Me.SUB.SetFocus End Sub Private Sub srch_AfterUpdate() 'Me.SUB.SetFocus If Nz(Me.srch) <> "" Then If IsNull(DLookup("CM", "Main", "CM LIKE '*" & Me.srch & "*'")) Then MsgBox "找不到包含[" & Me.srch & "]的成语" Me.srch = "" Exit Sub End If Me.
Record
Source
= "select * from main where CM LIKE '*" & Me.srch & "*'" Else Me.
Record
Source
= "main" End If Me.srch = "" 'Set Me.SUB.Form.
Record
set = Me.
Record
set Set Me!SUB.Form.
Record
set = Me.
Record
set Me.Requery 'Me.SUB.SetFocus Me.SUB.Form.CM.SelLength = 0 End Sub
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息
Ado
dc1.
Record
Source
= "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
dc1.
Record
Source
= "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期"
Ado
dc1.Refresh lblCount = Sum(
Ado
dc1.
Record
set,
Ado
dc1.
Record
set.Fields("数量")) lblS1 = Sum(
Ado
dc1.
Record
set,
Ado
dc1.
Record
set.Fields("金额")) lblS2 = Sum(
Ado
dc1.
Record
set,
Ado
dc1.
Record
set.Fields("利润"))
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息
帐目查询(VB6.0源代码编写)'按日期查询并汇总商品销售信息
Ado
dc1.
Record
Source
= "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期"
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章