VB用ADODC控件连ACCESS数据库问题
来源:百度知道 编辑:UC知道 时间:2024/05/23 16:37:18
Private Sub Form_Load()
adodc1.ConnectionString =" 写连接数据库代码 "
Adodc1.RecordSource = " 写连接表代码 "
Adodc1.Refresh '刷新
Combo1.Clear '清除combo1里的内容
Adodc1.Recordset.MoveFirst '移到首记录
Do While Adodc1.Recordset.EOF = False
For j = 0 To combo1.ListCount '判断combo1里的内容是否与数据库里的一样,相同就移到下一条记录
If Adodc1.Recordset.Fields("提货单位") = Combo1.List(j) Then GoTo 19
Next
Combo1.AddItem (Adodc2.Recordset.Fields("提货单位")) '不同就添加
19: Adodc1.Recordset.MoveNext
Loop
Combo1.Text = Combo1.List(0)
End Sub
Private Sub Form_Load()
adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=数据库名.mdb;Persist Security Info=false;Jet OLEDB:Database Password=数据库密码"
Combo1.clear
Adodc1.RecordSource = "Select * from 表名"
Adodc1.Refresh
dim i as integer
Adodc1.Rec