1ï¼å¨VB代ç åæ·»å è¡å·éåå©ç¬¬ä¸æ¹æ§ä»¶æèªå·±æ·»å å¨ä»£ç è¡åã
Private Sub Form_Load()
0 Dim cnn As New Connection
1 Dim rs As New Recordset
2 Dim sql As String
3 Dim ARR
5 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wdOld.mdb;Persist Security Info=False"
6 sql = "select æ
éå称 from guzhang_bm"
7 rs.Open sql, cnn
8 Combo1.Text = "æ
éå称"
9 Do While Not rs.EOF
10 Combo1.AddItem rs("æ
éå称")
11 rs.MoveNext 'æå¼è¡¨
12 Loop
13 rs.Close
14 cnn.Close
End Sub
ç¨æ¥è¯å«ä¸è¡ä»£ç ãè¡å·å¯ä»¥æ¯ä»»ä½æ°å¼çç»åï¼å¨ä½¿ç¨è¡å·ç模åå
ï¼è¯¥ç»åæ¯å¯ä¸çãè¡å·å¿
é¡»å¨ä»ä¸åå¼å§ã
2ï¼VBçéæIDEç¼ç¨çªå£çå·¥å
·æ ä¸æè¡å·ååå·æ¾ç¤ºã
