Question

VB中怎么用combobox从access数据库中取值

程序的做用是跟据材料牌号和温度取材料的许用应力.
我的代码是这样的,为什么不行.
Private Sub Form_Load()
Dim i As Integer
Adodc1.RecordSource = "select * from 铸造阀门管件用材料的许用应力"
Combo1.Clear

Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("材料牌号")
Adodc1.Recordset.MoveNext
Loop
End Sub

Private Sub Combo1_Click()
Combo2.Clear
Adodc1.RecordSource = "select * from 铸造阀门管件用材料的许用应力"
Dim i As Integer
For i = 2 To Adodc1.Recordset.Fields.Count - 1
Combo2.AddItem Adodc1.Recordset.Fields(i).Name
Next i
Combo2.Text = Combo2.List(0)
End Sub

Private Sub Combo2_Click()
Dim conditon
conditon = Trim(Combo2.Text)

If Adodc1.Recordset.Fields(conditon).Type = 202 Then
Adodc1.RecordSource = "select * from 铸造阀门管件用材料的许用应力 where" & conditon & " = ' " & Combo2.Text & "'"
Else
Adodc1.RecordSource = "select * from 铸造阀门管件用材料的许用应力 where" & conditon & " = " & Combo2.Text & ""
End If

Text1.Text = Adodc1.Recordset.Fields("conditon")
End Sub

Answer 1

If rs.State <> adStateClosed Then rs.Close
rs.Open "select [材料牌号] from 铸造阀门管件用材料的许用应力", cnn, adOpenStatic, adLockOptimistic
For i = 1 To rs.RecordCount
Combo1.AddItem Trim(rs(0) & "")
rs.MoveNext
Next

这样就ok了

Answer 2

0分？