ADODC中Refresh的使用方法

panxuejian 2003-10-16 12:24:22

为什么使用Refresh时，总提示SELECT错误

...全文

108 7 打赏收藏转发到动态举报

写回复

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中用ADODC控件编写的数据库读写到升到VBnet时也可以用，但总感觉不方便，后来查了些资料弄成了一个小对照表，其实还可以简单一点，这样做主要是和原来的ADODC1,ADODC2,这样控件对应。便于升级中好用。实际使用中odReader1 = commandA.ExecuteReader()，和ADODC1.Refresh()效果完全相同，只是还不能读，要加一个odReader1.Read()才能读。且该方法是只读，增、删、改要用其它SQL方法来完成。

Private Sub Form_Load() Adodc1.ConnectionString = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123" Adodc1.RecordSource = "select * from ask_info" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub

查询记录功能,从access数据库中读取,Adodc1.RecordSource = "select * from 订单表 where 订单号='" + Text1(0).Text + "'" Adodc1.Refresh(VB6.0源代码编写)

帐目查询(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("利润"))

vbPrivate Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub Command4_Click() Dim bh As String bh = InputBox("请输入要查找的信息：", "提示") Adodc1.RecordSource = "select * from 通讯录 where '姓名='" & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "查无此人！", , "提示" Adodc1.RecordSource = "select*from通讯录" Adodc1.Refresh End If End Sub

数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章