بدست آوردن DataSource

[Morteza Manafpour]

فرض کنید یک TextBox داریم که در Properties اون DataSource رو برابر Adodc1 قرار دادیم
حال می‌خواهیم در حین برنامه‌نویسی این Adodc1 رو از خود TextBox بگیریم.
من خودم چند روش امتحان کردم جواب نداد که در زیر می‌نویسم
اگه کمک کنید ممنون می‌شم.


a=Text1.Datasource
a=CallByName(Text1 , "DataSource" , VbGet)

ضمنا من نمی‌خوام به Recordset وصل کنم که کد اون مشخصه

Set RS=Text1.DataSource
یعنی این دو گزینه بالا از هم متمایزند.

[meh_secure]

هدفت از این کار چیه. شاید از یه راه دیگه بشه.

[Morteza Manafpour]

در ذخیره مقدار DataSource یه کامپوننت دچار مشکل شدم و وقتی خود DataSource رو ذخیره می‌کنم فقط در حالت DataEnvironment جواب نمی‌ده و دفعه بعد که می‌خواهیم وارد برنامه بشم با مشکل مواجه می‌شم

[meh_secure]

من منظورتون رو متوجه نشدم. می خوام بدونم که این کارا رو برای چی انجام میدین.

[Morteza Manafpour]

http://www.developercenter.ir/Forum/showthread.php?t=201
البته مشکل حل شد

[vbhamed]

از دستوراتی مشابه این استفاده کنید

dim Obj as Adodc
set obj = text1.datasource
.
.
.
set text2.datasource = Obj
.
.
.