sql问题

Question

请问:
我用ADODC控件连接SQL数据源,代码如下:Ado1.ConnectionString="PROVIDER=MSDASQL;driver={SQL Server};server=cyp;uid=sa;pwd=;database=员工管理表;"
Set label1(0).DataSource = Ado1
Set label1(1).DataSource = Ado1
Set label1(2).DataSource = Ado1
Ado1.RecordSource = "员工基本情况表"
label1(0).DataField = "姓名"
label1(1).DataField = "年龄"
label1(2).DataField = "性别"
SQL中所有字段为:字符型
问题:
我想把所有性别为男性的员工装入一LISTBOX中,请问应如何做?能否根据上面代码给出对应代码?

Answer 1

Dim i As Integer
   
   strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Datas\test.mdb;Persist Security Info=False"
   
   Adodc1.ConnectionString = strconn
   Adodc1.CommandType = adCmdUnknown
 
      Adodc1.RecordSource = "select name,sex from AddPeople "
   
   
   For i = 1 To Adodc1.Recordset
     Me.List1.AddItem rs("Name")
   Next i