مشاهده نسخه کامل
: ذخیره شدن چیزهایی که در لیست باکس و تکس باکس هست (فوری)
gorohe_F5
17-04-2007, 07:56
من یه بر نامه دارم که توش به لیست باکس و تکس باکس هستش که می خواهم کاربر بعد از بیرون رفتن از برنامه چیزایی که تو لیست باکس و تکس باکس هستش همون جایی که برنامه هست تو notepade یا هر جای دیگه ذخیره شه و بعد اینکه دوباره اومد تو برنامه همون چیزا دوباره لود شه (اگه توضبم کمه بگین)
دوست من باید اون اطلاعات رو توی یه فایل ذخیره کنی. بع از همون فایل بخونی ذخیره کردن توی یه فایل تو مسیر برنامه ات اینجوریه:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
برای بازیابی هم:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
gorohe_F5
19-04-2007, 06:43
من جواب تکس باکس رو گرفتم که اونو تو acsses ذخیره میکنم اما لیست باکسو نمیتونم
اميرفرجي
21-04-2007, 23:51
سلام
اين روش اي دي او دارم برات توضيح مي دهم براي فراخواندن كامبو باكس
به عنوان مثال :
تو جدول اصلي داري مثلا نام - نام خانوادگي - تلفن - نسبت (كامبو) ايجاد ميكني
بعد يك تيبل فرعي هم ايجاد ميكني كه فقط نامبر و نام باشه يعني دو تا فيلد داشته باشه كه منظور از نام همان جايي كه فيلدهاي كامبو توش ذخيره ميشوند به عنوان مثال (دوست - فاميل - همكار)
بعد بين اينها يك ريليشن ايجاد كن OK
بعد بيا تو فرم اصلي و كدهاي زير را وارد كن
اول بالاي فرم يك متغير تعريف ميكني اين روش روش
DIM type_code(100)as long , type_name(100) as string
sub load combo
dim rs as new adodb .recordset
dim i as long
cmb(0).clear
rs.open " select * from ttype ",conn
i= 0
do until rs.eof
type_code(i)= rs.fields("id")
type_name(i)= rs.fields("type title")
cmb(0).add item rs.fields("type title")
i= i+1
rs.movenext
loop
rs.close
if cmb(0).list count > 0 then cmb(0).list index = 0
end sub
رو توي فرم لود كپي كن load combo بعد از اين مرحله هم
بازم اگه نفهميدي بگو يك نمونه برنامه برات ايميل كنم
اميرفرجي
21-04-2007, 23:57
سلام
براي ذخيره كردنش هم تو دستور ذخيره اين رو بنويس
rs.Fields ("Type") =type_code(Cmb(1).ListIndex
موفق باشي
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.