ذخیره شدن چیزهایی که در لیست باکس و تکس باکس هست (فوری)

[gorohe_F5]

من یه بر نامه دارم که توش به لیست باکس و تکس باکس هستش که می خواهم کاربر بعد از بیرون رفتن از برنامه چیزایی که تو لیست باکس و تکس باکس هستش همون جایی که برنامه هست تو notepade یا هر جای دیگه ذخیره شه و بعد اینکه دوباره اومد تو برنامه همون چیزا دوباره لود شه (اگه توضبم کمه بگین)

[Mitibob]

دوست من باید اون اطلاعات رو توی یه فایل ذخیره کنی. بع از همون فایل بخونی ذخیره کردن توی یه فایل تو مسیر برنامه ات اینجوریه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای بازیابی هم:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[gorohe_F5]

من جواب تکس باکس رو گرفتم که اونو تو acsses ذخیره میکنم اما لیست باکسو نمیتونم

[اميرفرجي]

سلام

اين روش اي دي او دارم برات توضيح مي دهم براي فراخواندن كامبو باكس
به عنوان مثال :
تو جدول اصلي داري مثلا نام - نام خانوادگي - تلفن - نسبت (كامبو) ايجاد ميكني

بعد يك تيبل فرعي هم ايجاد ميكني كه فقط نامبر و نام باشه يعني دو تا فيلد داشته باشه كه منظور از نام همان جايي كه فيلدهاي كامبو توش ذخيره مي‌شوند به عنوان مثال (دوست - فاميل - همكار)

بعد بين اينها يك ريليشن ايجاد كن 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 بعد از اين مرحله هم
بازم اگه نفهميدي بگو يك نمونه برنامه برات ايميل كنم

[اميرفرجي]

سلام
براي ذخيره كردنش هم تو دستور ذخيره اين رو بنويس

rs.Fields ("Type") =type_code(Cmb(1).ListIndex


موفق باشي