select * from table where id=22
union
select * from table where id<>22
union
select * from table where id<>22
解决方案 »
- VBA弹出框,求大神,急!
- EXCEL导入到SQL数据库中
- 请问我要是把用access做数据库的程序放在架设的局域网上使用,应该怎样写连接服务器端的连接字符串啊?谢谢!
- 求“注册失败:msado20.tlb无法注册”的解决方法!!在线等!!请大家帮帮忙!!
- 关于图象处理
- 什么原因?
- 请问ADO中能否达到如下功能
- 强大的作者软件自主发布管理系统!欢迎广大软件作者前来发布您的软件作品! http://www.softpie.com/
- CoolEdit怎样才可以支持MP2格式的文件?
- 当选取tabstrip里的一个选项卡里触发什么事件?
- 怎么取有步长的随机数?
- VB图形编程!GUI系统,基于数据库画图,鼠标图形操作,放大缩小,滚屏,打印。1000分。
第一次查询查出以后把结果用循环写入控件,第二次查询以后氢结果再写入控件!
Private Sub Command1_Click()
MSFlexGrid1.FillStyle = flexFillRepeat
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
MSFlexGrid1.CellFontBold = False
MSFlexGrid1.FillStyle = flexFillSingle
For j = 0 To MSFlexGrid1.Cols - 1
For i = 0 To MSFlexGrid3.Cols - 1
If (MSFlexGrid1.TextMatrix(i, j) = Text1.Text) Then
MSFlexGrid1.Col = j
MSFlexGrid1.Row = i
'第I行的记录就是我想要的记录如果把他显示到第一行来啊?或者是把这一条记录
'输出到一个文件也行!
End If
Next i
Next j
End Sub
查询按钮代码大致如下:
Private Sub Command1_Click()
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
MSFlexGrid1.CellFontBold = False
MSFlexGrid1.FillStyle = flexFillSingle
For j = 0 To MSFlexGrid1.Cols - 1
For i = 0 To MSFlexGrid1.Cols - 1
If InStr(MSFlexGrid1.TextMatrix(i, j),Text1.Text) Then
MSFlexGrid1.Col = j
MSFlexGrid1.Row = i
'第I行的记录就是我想要的记录如果把他显示到第一行来啊?或者是把这一条记录
'输出到一个文件也行!
End If
Next i
Next j
End Sub
rs.Open ssql, data, adOpenDynamic, adLockOptimistic
For i = 0 To rs.Fields.Count - 1
MSHFlexGrid1.Col= i
MSHFlexGrid1.Text = rs(i)
Next
2. ssql="select * from table where id<>'22'"
rs.open ssql,data,adopendynamic,adlockoptimistic
for i =0 to rs.recordcount-1
for j= 0 to rs.fields.count -1
mshflexgrid1.text = rs(i)
next
next
基本上是这个意思!