1,216
社区成员
发帖
与我相关
我的任务
分享初学数据库，请指教
我的第一个窗体用来按地区查询的
地区信息都列在listview中
第二个窗体是用来查资金的
数据库里有china的表，里面有公司名称，邮编，资金，地址
我现在怎么样写查询语句啊？关键是查listview里的我不会
请高手指教！最好有源代码给我参考一下~谢谢
地区信息都列在listview中
第二个窗体是用来查资金的
数据库里有china的表，里面有公司名称，邮编，资金，地址
我现在怎么样写查询语句啊？关键是查listview里的我不会
请高手指教！最好有源代码给我参考一下~谢谢
...全文
请发表友善的回复…
发表回复
flyingZFX 2004-10-11
- 打赏
- 举报
^_^
常遇道 2004-10-11
- 打赏
- 举报
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Dim sql As String
listallcourse1.Clear
Set rs = New ADODB.Recordset
sql = "select * from table order by ID"
rs.Open sql, conStr, 0, 1
If Not rs.EOF Then
For i = 0 To rs.RecordCount - 1
listallcourse1.AddItem rs.Fields(2)
rs.MoveNext
Next i
End If
End Sub
Dim rs As ADODB.Recordset
Dim sql As String
listallcourse1.Clear
Set rs = New ADODB.Recordset
sql = "select * from table order by ID"
rs.Open sql, conStr, 0, 1
If Not rs.EOF Then
For i = 0 To rs.RecordCount - 1
listallcourse1.AddItem rs.Fields(2)
rs.MoveNext
Next i
End If
End Sub
shaoy1 2004-10-11
- 打赏
- 举报
up
longki 2004-10-11
- 打赏
- 举报
取出数据,塞进去就OK!
jam021 2004-10-11
- 打赏
- 举报
关注,帮你顶!
guxizhw 2004-10-10
- 打赏
- 举报
晕！1楼老抢不到
lxcc 2004-10-10
- 打赏
- 举报
Private Sub Command1_Click()
Dim itemx As ListItem
Set itemx = ListView1.FindItem("第一列的文本") 'FindItem还有好几种查询方法,具体查一下MSDN
itemx.Selected = True
End Sub
Dim itemx As ListItem
Set itemx = ListView1.FindItem("第一列的文本") 'FindItem还有好几种查询方法,具体查一下MSDN
itemx.Selected = True
End Sub
