我正在做一人小程序,遇到点问题,请各位帮忙:
1。如何在窗体代码或者按钮代码中使用SQL的查询功能,且选择条件为两个;
2。如何将选出的结果导入列表框list 中
请举例说明,例如欲查询一个班里面男生、20岁的人的姓名,输入于列表框,
请高手帮忙解答,谢谢
1。如何在窗体代码或者按钮代码中使用SQL的查询功能,且选择条件为两个;
2。如何将选出的结果导入列表框list 中
请举例说明,例如欲查询一个班里面男生、20岁的人的姓名,输入于列表框,
请高手帮忙解答,谢谢
解决方案 »
- 问大家一个关于窗体代码的问题
- 用Setup Factory打包程序,能否制作自定义图标呀?
- 怎样在datagrid行选择按钮上加入文字
- VB6太不灵活了???????
- 有关类似OICQ的下拉控件!
- UTF文档包含朝鲜文的问题
- 点击webbrowser控件中网页的链接时,新网页会在ie中打开,如何使新网页在webbrowser控件中打开呢?
- Ghost在WinNT,Win2000,WinXP下如何使用
- winsock不能发送HTTP请求,而在INET里却可以?
- 各位程序员:调查一下..甚摸时候开始学会吹口哨(流氓哨)..给点不传之密..学会加分..看这1分谁能得到..
- 关于程序的响应问题
- 50分请教各位!如何用VB代码清除程序的键盘缓冲区???
Private Sub Command1_Click()
Dim strConn As String
Dim sql As String
Dim adoConn As ADODB.Connection
Dim adoRst As ADODB.Recordset
strConn = "driver={SQL server};server=主机名;uid=sa;pwd=;database=数据库名"
Set adoConn = New ADODB.Connection
Set adoRst = New ADODB.Recordset
sql="select name from 表名 where sex='male' and age=20"
adoConn.Open strConn
adoRst.Open sql, adoConn, 3, 3
If adoRst.RecordCount = 0 Then
MsgBox "对不起,符合条件的记录不存在。"
Else
List1.Clear
While Not adoRst.EOF
List1.AddItem adoRst.Fields(0).Value
adoRst.MoveNext
Wend
End If
End Sub
还有没有其它的方法,我看vb 中有直接用select case 语句的,能不能用类似简单点的方法呢?
Data1.Recordset.FindFirst"性别='男'"
请问能不能把条件变为两个,
例如:Data1.recordset.FindFirst ("性别='男'"and "年龄='20'")
如果不能,如何实现同样的功能,请详细解释,谢谢了