اتصال combobox به table

[oskarimbns]

چطور مي توانم يك combobox را در وي بي به table در پايگاه داده اكسس وصل كنم بطوري كه اطلاعات يكي از فيلدهاي جدول در combobox فرم نمايش داده شود؟

[aidin1386]

به وسيله ي اين دستور شما مي تونيد اطلاعات يك ستون جدول مورد نظرتون رو توي يك كمبو باكس با نام combo1 بريزيد.

Set Conn = New ADODB.Connection
Set rst = New ADODB.Recordset

Conn.Provider = "Microsoft.JET.OLEDB.4.0"
Conn.ConnectionString = "Masire Bank"
Conn.CursorLocation = adUseClient
Conn.Open

SQLQuery = "select column from table"

rst.ActiveConnection = Conn
rst.CursorType = adOpenKeyset
rst.CursorLocation = adUseClient
rst.Open SQLQuery

For x = 1 To rst.RecordCount
Combo1.AddItem rst.Fields(0)
rst.MoveNext
If rst.EOF Then rst.MoveFirst
Next
Combo1.Text = rst.Fields(0)