您所在位置：主题：combo1不能显示SQL数据
xiang1434
[专家分：0] 发布于 2008-09-27 15:36:00
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=koubai;Data Source=192.168.101.19"
cn.Open
rs.ActiveConnection = cn
rs.Open "select 模具名 from master", cn, 1, 3
Combo1.Clear
For i = 0 To rs.RecordCount - 1
Combo1.AddItem rs(0) & ""
rs.MoveNext
Combo1.ListIndex = 0
Next i
rs.Close
End Sub
