مقدار دهی data source اشیا با کد نویسی

[vbiman]

به چه صورت می توان data source اشیا را مقدار دهی کرد مثلا از شی ado استفاده میکنیم و بخواهیم در data grid داده های بانک نمایش داده شود با استفاده از کد نویسی :خجالت:

[مبین رنجبر]

اینجوری :

Set DataGrid1.DataSource = Adodc1

با این کد میتونی با کد نویسی مشخصه DataSource رو به شی Adodc1 وصل کنی .. البته اگر شی بانکت adodc هست

[vbiman]

اینجوری :

Set DataGrid1.DataSource = Adodc1

با این کد میتونی با کد نویسی مشخصه DataSource رو به شی Adodc1 وصل کنی .. البته اگر شی بانکت adodc هست

ممنون دیگه خطا نداد فقط یک سوال دیگه اگه از تابع adodb استفاده بکنم اون به چه صورتی است.:لبخند:

[vbhamed]

سلام
adodb یک شیء هست نه تابع
اینم روش استفاده که باید در form_load قرار بگیره :

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cnn.CursorLocation = adUseClient
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Properties("Data Source") = "c:\test.mdb"
cnn.Open

rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic
rs.Source = "Select * From Table1"
rs.ActiveConnection = cnn
rs.Open

Set Grid1.DataSource = rs