نمایش اطلاعات در DataGrid با کد نویسی

[hmbarnamenevis]

سلام
می خوام با کد نویسی اطلاعات را درون یک dataGrid قرار بدم بدون اینکه روی فرم شئ Adodc قرار گیرد و در کد نویسی شئ مربوطه ساخته شود و به DataSource مربوط به DataGrid وصل بشه. یه کارایی کردم:

Private Sub Form_Load()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset


Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.Open ""Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\database1.accdb;Persist Security Info=False"
rs.Open "select * from table1", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs //not working
End Sub

[vbhamed]

سلام
به نظر من بهتره از كامپوننت ComponentOne vsFlexGrid استفاده كنيد كه هم اين مشكل رو نداره و هم خيلي از DataGrid قدرتمند تره

[hmbarnamenevis]

می تونی این ocx رو برام بگذاری

[vbhamed]

سلام
بايد فايل ستاپ كامل رو از اينترنت دانلود كنيد
در سايت راسخون (http://rasekhoon.net/software/906/)جستجو نماييد

[Pishgahi]

سلام
شما تنظیمات دیگه ی کانکشن رو تنظیم نکردین
Cnn.CursorLocation = adUseClient
Cnn.Mode = adModeReadWrite
این دوتا رو هم تنظیم کنید

Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim sql1 As String
sql1 = "select * from tbl;"

Cnn.CursorLocation = adUseClient
Cnn.Mode = adModeReadWrite
Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cnn.ConnectionString = "Data Source=" & Adr & ";Persist Security Info=False"
Cnn.Open

Rst.Open sql1, Cnn, adOpenStatic, adLockOptimistic

Set Dgr.DataSource = Rst