ببین برای اینکه اطلاعات رو بخوانی بعد در گرید بریزی باید این کار ها را انجام دهی:
روشی که من براید توضیخ می دهم باید از dao و msflexgrid استفاده کنی:
اول متغیری از نوع دیتا بیس تعریف می کنی dim mydb as database
بعد متغیری از نوع ریکورد ست تعریف می کنی : dim mtable as recordset
حالا:
grid.cols=3:grid.rows=1
Set myDB = Workspaces(0).OpenDataBase("mydb.mdb"& #41;
set mtable=mydb.openrecordset("select * from mytable")
do until mtable.eof
grid.rows=grid.rows+1
grid.row=grid.rows-1
grid.col=1:grid.text=mtable!field1
grid.col=2:grid.text=mtable!field2
grid.col=2:grid.text=mtable!field3
loop
حالا در این میان هر بلایی که دلت بخواهد می توانی سر اطلاعات بیاوری بعد توی گرید بریزی. :o :| :mrgreen:
پاسخ با نقل قول
