PDA

View Full Version : چطوری اول اطلاعات رو بخونم بعد به Grid ارسال کنم ؟



Developer Programmer
جمعه 21 آذر 1382, 22:11 عصر
آقا من کل محتویات بانک اکسس رو فیلد به فیلد کد می کنم بعد در دیتابیس insert می کنم

این دیتابیس از طریق ADO به یک Grid وصله

چطوری اطلاعات دیتابیس رو بخونم و کدگشایی کنم بعد به Grid ارسال کنم؟

استاد گفت وقتی بخوای روی رکورد ها حرکت کنی - جستجو کنی و خیلی چیزهای دیگه
دچار مشکل می شی پس بهتره اطلاعات رمز گشایی شده رو توی یه جدول جدید بریزی بعد از اونجا بخونی دست آخر هم جدول رو حذف کنی !!

اما اخه ممکنه یه سری اطلاعات یه جدول رو خوند و بعد کد گشایی کرد به یه جدول دیگه insertکرد ؟ اینجوری کاربر باید بره فردا بیاد با برنامه کار کنه ... :roll:

vbstar
جمعه 21 آذر 1382, 22:23 عصر
دادش من حتماً توی Symantec استخدام می شی ، نگران این موضوع تنها نباش ، بعد این مشکل رو می تونی حل کنی.

ساران سافت
شنبه 22 آذر 1382, 18:34 عصر
ببین برای اینکه اطلاعات رو بخوانی بعد در گرید بریزی باید این کار ها را انجام دهی:
روشی که من براید توضیخ می دهم باید از dao و msflexgrid استفاده کنی:
اول متغیری از نوع دیتا بیس تعریف می کنی dim mydb as database
بعد متغیری از نوع ریکورد ست تعریف می کنی : dim mtable as recordset
حالا:


grid.cols=3:grid.rows=1
Set myDB = Workspaces(0).OpenDataBase("mydb.mdb")
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:

Developer Programmer
شنبه 22 آذر 1382, 18:46 عصر
مرسی تستش می کنم

ساران سافت
شنبه 22 آذر 1382, 18:52 عصر
فقط هواستون باشه توی خاصیت
grid.col=3 برای مثال است و شما می توانید ان را برابر تعداد فیلدهایتان قرار دهید
و دیگر اینکه در refrence پروژة شما microsoft dao 2.5/3.5 روشن باشد. :wink:

کم حوصله
شنبه 22 آذر 1382, 22:13 عصر
روشی که من براید توضیخ می دهم باید از ado و msflexgrid استفاده کنی:

دیگر اینکه در refrence پروژة شما microsoft dao 2.5/3.5 روشن باشد.
:shock: :shock:




Set myDB = Workspaces(0).OpenDataBase("mydb.mdb")
set mtable=mydb.openrecordset("select * from mytable")


:shock: :shock: :shock:
بابا تا جایی که من می دونم این روش با dao هست نه ado
:?: :?:

Developer Programmer
یک شنبه 23 آذر 1382, 14:01 عصر
:roll: :cry:

ساران سافت
یک شنبه 23 آذر 1382, 19:40 عصر
ببخشید منظورم dao بود که دوباره رویش تاکید کرده بودم. :oops:
ممنون از یادآوریتان. :wink: