VB查询语句!急!急!(在线。。。。)

Alex.Ho 解决方案经理  2003-04-02 05:15:00
Dim tab1 As String
Dim tab2 As String
Dim tab3 As String
Dim sql As String
Dim tabString As ADODB.Recordset

Private Sub Command1_Click()
Adodc.RecordSource = sql
adoad.Refresh
DataGrid.DataSource = Adodc
End Sub

Private Sub Command3_Click()
If Combo1.Text <> "" And Combo2.Text <> "" And Text3.Text <> "" Then
tab1 = Combo1.Text
tab2 = Combo2.Text
tab3 = Text3.Text
sql = "Select * From Empleror Where" & " " & tab1 & tab2 & tab3
Text2.Text = sql
End If
End Sub
其中Command3_Click用于生成查询语句条件,Command1_Click()为“查询按钮”,请问错在那里,请写出代码?
...全文
73 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-02 05:15
社区公告
暂无公告