社区
数据库(包含打印,安装,报表)
帖子详情
ADODC中Refresh的使用方法
panxuejian
2003-10-16 12:24:22
为什么使用Refresh时,总提示SELECT错误
...全文
109
7
打赏
收藏
ADODC中Refresh的使用方法
为什么使用Refresh时,总提示SELECT错误
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sword281
2003-10-21
打赏
举报
回复
是否是因为你的quote是sting而ddate是日期类型而导致类型不批配
Dublue
2003-10-16
打赏
举报
回复
你语句有错,仔细检查
panxuejian
2003-10-16
打赏
举报
回复
Function Quote(ByVal sSearchValue As String) As String
'**************************************************
'功能:将查询的字段加上引号
'**************************************************
Quote = Chr(39) & sSearchValue & Chr(39)
End Function
是SQL数据库
sword281
2003-10-16
打赏
举报
回复
quote 的函数体及声明写出来看看
Lucky527
2003-10-16
打赏
举报
回复
把日期给一个确定的值看看如何~
axer
2003-10-16
打赏
举报
回复
是access还是sqlserver?日期处理不同,是不是这个原因?
panxuejian
2003-10-16
打赏
举报
回复
sPubSQL = "SELECT * FROM Pan_Weiwai " _
& " WHERE dDate=" & Quote(DTPicker1) _
& " AND iIndex = " & Quote(iFrmIndex)
Adodc1.RecordSource = sPubSQL
Adodc1.Refresh
就是这条语句
古老VB6
ADO
升级VBnet数据读取
方法
对照表,替换窗体控件
ADO
DC
读数据
方法
VB6
中
用
ADO
DC
控件编写的数据库读写到升到VBnet时也可以用,但总感觉不方便,后来查了些资料弄成了一个小对照表,其实还可以简单一点,这样做主要是和原来的
ADO
DC
1,
ADO
DC
2,这样控件对应。便于升级
中
好用。 实际
使用
中
odReader1 = commandA.ExecuteReader(),和
ADO
DC
1.
Refresh
()效果完全相同,只是还不能读,要加一个odReader1.Read()才能读。且该
方法
是只读,增、删、改要用其它SQL
方法
来完成。
vb
ado
dc
sql server
Private Sub Form_Load()
Ado
dc
1.ConnectionString = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
Ado
dc
1.RecordSource = "select * from ask_info"
Ado
dc
1.
Refresh
Set DataGrid1.DataSource =
Ado
dc
1 End Sub
查询记录功能,从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源代码编写)
帐目查询(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 daima xiazai
vbPrivate Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub Command4_Click() Dim bh As String bh = InputBox("请输入要查找的信息:", "提示")
Ado
dc
1.RecordSource = "select * from 通讯录 where '姓名='" & "'"
Ado
dc
1.
Refresh
If
Ado
dc
1.Recordset.EOF Then MsgBox "查无此人!", , "提示"
Ado
dc
1.RecordSource = "select*from通讯录"
Ado
dc
1.
Refresh
End If End Sub
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章