社区
VB基础类
帖子详情
sql查询问题:Me.Adodc1.RecordSource = "select * from data where haoma = '12345'"
efang9246
2003-10-15 06:18:53
Me.Adodc1.RecordSource = "select * from data where haoma ='12345'"
运行后提示 haoma='12345'操作丢失。
...全文
89
4
打赏
收藏
sql查询问题:Me.Adodc1.RecordSource = "select * from data where haoma = '12345'"
Me.Adodc1.RecordSource = "select * from data where haoma ='12345'" 运行后提示 haoma='12345'操作丢失。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Jackile
2003-10-15
打赏
举报
回复
"select * from [data] where haoma = 12345"
守城小轩
2003-10-15
打赏
举报
回复
"select * from data where haoma = 12345"
hhjjhjhj
2003-10-15
打赏
举报
回复
"select * from data where data.haoma ='12345'"
wea1978
2003-10-15
打赏
举报
回复
你的 'haoma'是什么类型的数据呢?如果是数值之类的数据就不是加''
查询记录功能,从access数据库中读取,
Ado
dc1
.
Record
Source
= "
select
* from 订单表 where 订
查询记录功能,从access数据库中读取,
Ado
dc1
.
Record
Source
= "
select
* from 订单表 where 订 单号='" + Text1(0).Text + "'"
Ado
dc1
.Refresh(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 日期"
帐目查询(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("利润"))
保存到Access数据库,
Ado
dc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;
Data
Source
=" & App.Path & "\汽车信息.mdb;Persist Security Info=False"
保存到Access数据库,
Ado
dc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;
Data
Source
=" & App.Path & "\汽车信息.mdb;Persist Security Info=False"
Ado
dc1
.
Record
Source
= "
select
* from 汽车信息表"
Ado
dc1
.Refresh(VB6.0源代码编写)
电话号查询
手机界面的电话号码查询,Private Sub Command1_Click() If Text1 <> "" Then
Ado
dc1
.
Record
Source
= "
select
* from call where 科室或姓名代码 like '%" & Text1 & "%' "
Ado
dc1
.Refresh End If End Sub Private Sub
Data
Grid1_Click() End Sub Private Sub Form_Load() a = "Provider=Microsoft.Jet.OLEDB.4.0;
Data
Source
=" a = a & App.Path a = a & "\dyyycall.mdb;Persist Security Info=False"
Ado
dc1
.ConnectionString = a
Ado
dc1
.
Record
Source
= "
select
* from CALL"
Ado
dc1
.Refresh End Sub Private Sub Picture1_Click() End End Sub Private Sub Text1_Change() Call Command1_Click End Sub
vb daima xiazai
vbPrivate Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub Command4_Click() Dim bh As String bh = InputBox("请输入要查找的信息:", "提示")
Ado
dc1
.
Record
Source
= "
select
* from 通讯录 where '姓名='" & "'"
Ado
dc1
.Refresh If
Ado
dc1
.
Record
set.EOF Then MsgBox "查无此人!", , "提示"
Ado
dc1
.
Record
Source
= "
select
*from通讯录"
Ado
dc1
.Refresh End If End Sub
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章