我正在做一人小程序,遇到点问题,请各位帮忙:
  1。如何在窗体代码或者按钮代码中使用SQL的查询功能,且选择条件为两个;
2。如何将选出的结果导入列表框list 中
请举例说明,例如欲查询一个班里面男生、20岁的人的姓名,输入于列表框,
请高手帮忙解答,谢谢

解决方案 »

  1.   

    1、这个很简单啊,根据输入来填SQL语句的空不就行了吗,条件可以是> < = 或者包含,和语句中的操作符正好一一对应2、List.additem 循环记录集
      

  2.   

    '下面是连接到Sql Server 2000的代码:
    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
      

  3.   

    对我来说很深,消化消化,是不是要参考sql server上的东西,我没看过,上面的程序要不要其它的控件,请指导一下,
    还有没有其它的方法,我看vb 中有直接用select case 语句的,能不能用类似简单点的方法呢?
      

  4.   

    老兄,你不用任何控件的,但是你必须点击“工程“中的“引用”菜单,在其中选择ado对象的动态连接库
      

  5.   

    那样需不需要sql server 程序啊?
      

  6.   

    请问下面的语句
    Data1.Recordset.FindFirst"性别='男'"
    请问能不能把条件变为两个,
    例如:Data1.recordset.FindFirst ("性别='男'"and "年龄='20'")
    如果不能,如何实现同样的功能,请详细解释,谢谢了
      

  7.   

    我想用一个变量来实现上面的查询,例如用it 代替“男“或是代替“女“如何实现,如何定义,为什么用Data1.Recordset.FindFirst"性别=text2.text"不正确,请指教,谢了