وصل کردن دیتاگیرد یک فرم به ADO ی فرم دیگر
یک پروژه بسازید و ابتدا از منوی پروجکت و زیر منوی کامپوننت ابزارهای میکروسافت ادو و میکروسافت دیتاگرد را روی جعبه ابزار اضافه کنید.
بعد روی فرم یک هر دو را بیافزایید.
یک فرم 2 هم به پروژه بیافزایید. و یک دیتاگرد هم به آن بیافزایید.
بعد روی فرم یک هر دو را بیافزایید.
یک فرم 2 هم به پروژه بیافزایید. و یک دیتاگرد هم به آن بیافزایید.
کد زیر را به فرم یک بیافزایید:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from Table1"
Set DataGrid1.DataSource = Adodc1
Form2.Show
End Sub
کد زیر را هم به فرم 2 بیافزایید:
Private Sub Form_Load()
Set DataGrid1.DataSource = Form1.Adodc1
End Sub
+ نوشته شده در ساعت توسط حسن سامی نسب
|
