Dim rszc As New ADODB.Recordset
Dim i As Integer
rszc.Open "select * from dict_zc", gsdbc, adOpenStatic
rszc.MoveFirst
On Error Resume Next
For i = 0 To rszc.RecordCount - 1
cmbzc.AddItem rszc.Fields(1), rszc.Fields(0)
rszc.MoveNext
Next i
rszc.Close其中表结构为:
id int(?)
zcname char(?)
Dim i As Integer
rszc.Open "select * from dict_zc", gsdbc, adOpenStatic
rszc.MoveFirst
On Error Resume Next
For i = 0 To rszc.RecordCount - 1
cmbzc.AddItem rszc.Fields(1), rszc.Fields(0)
rszc.MoveNext
Next i
rszc.Close其中表结构为:
id int(?)
zcname char(?)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货