Dim Conn As New ADODB.Connection
Dim rs_login As New ADODB.Recordset
Sub Data()
On Error GoTo Err
Dbpath = App.Path & "\book.mdb"
ConnectionString = "provider=Microsoft.Jet.oledb.4.0;data source=" & Dbpath
Conn.Open ConnectionString
Err:
If Err.Number Then
MsgBox "資料庫出錯"
End
End If
End Sub
Private Sub Form_Load()
Call Data
Dim rs_leibie As New ADODB.Recordset
Dim sql As String
sql = "select * from 書刊類別"
rs_leibie.Open sql, Conn, adOpenKeyset, adLockPessimistic
rs_leibie.MoveFirst
Do While Not rs_leibie.EOF
Combo1.AddItem rs_leibie.Fields(0)
rs_leibie.MoveNext
Loop
rs_leibie.Close
End Sub
uj5u.com熱心網友回復：
Combo1.AddItem "" & rs_leibie.Fields(0)uj5u.com熱心網友回復：
Do While Not rs_leibie.EOF
if not isnull(rs_leibie.Fields(0)) then
Combo1.AddItem rs_leibie.Fields(0)
end if
rs_leibie.MoveNext
Loop
uj5u.com熱心網友回復：
Combo1.AddItem rs_leibie.Fields(0) & ""轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/150497.html
上一篇：vb.net2012想要顯示一個三維幾何體的旋轉移動該怎么搞
下一篇：快速畫大量點 PIX