کمک در مورد combo1

[jaber]

سلام من به یک مشکل بر خورده ام خواهشا کمک ام کنید

من می خوام اطلاعات رو با combo تو دیتا بیس ذخیره کنم

یعنی کاربر برنامه من می خواد اطلاعاتش رو با کامبو باکس ذخیره کنه

و همیشه داخل کامبو باکس بمونه و هر وقتی دلش خواست اطلاعات درون

کامبو باکس رو با کلید delete پاک کنه به شرطی که اون داده در کامبو در حال

انتخاب باشه ممنون میشم هر کی کمک ام کنه

[size=medium]من اول پست کردم پستم رو پاک کردید خواهشا پاک نکید

من اینو خیلی لازم داشتم تو رو خدا هر کی میخواد بذاره با سور بذاره

[PouriaAmid]

سؤالت خيلی نا مفهومه عزيز، از چه ديتابيسی ميخوای استفاده کنی؟

[arashrj]

سلام
این کد برای این که لیست داخل کمبو قرار بگیره

کد:

Do While Not Data1.Recordset.EOF
    Combo1.AddItem Data1.Recordset.Fields("Name")
    Data1.Recordset.MoveNext
Loop

و این کد برای حذف

کد:

Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
    If Data1.Recordset.Fields("Name") = Combo1.List(Combo1.ListIndex) Then
        Data1.Recordset.Delete
        Me.Caption = "0"
    End If
Data1.Recordset.MoveNext
Loop

البته اگه از دستورات SQL استفاده کنی بهتره

کد:

"DELETE FROM TB1 WHERE (Name = " & Combo1.List(Combo1.ListIndex) & ")"

مثلا این

موفق باشی
خدانگهدار

[jaber]

ممنون دوست عزیز اما نه من از sql استفاده میکنم نه از data1

من از table و adodc1 استفاده میکنم حالا چطوره ؟

[jaber]

در ضمن من data1 رو به adodc1 تبدیل کردم تو نام این کد ها رو میگم

باز هم نمیشه ایرور میه این کد ها رو باید کجا بنویسم ؟

در ضمن تو peropertis کامبو باید تنظیماتی هم انجام بدم یا نمی خواد ؟

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

[arashrj]

سلام

عزیزم امشب وقت ندارم انشاالله فردا سورسش رو میذارم تو ایران ویج
لینک هم اینجا میذارم

موفق باشی
خدانگهدار

[Rayanehfarda]

شما بايد از DataCombo استفاده كنيد
شما بايد يك Adodc در فرم خود قرار دهيد و Adodc را به بانك وصل كني
و در Adodc قسمت RecordSource نام فيلد مورد نظر را مينوسي
و در DataCombo قسمت RowSource نام Adodc را كه استفاده كردي مينوسي
و بعد در DataCombo قسمت ListField نام فيلد خود را بنويس

براي پاك كردن يك ركورد ركورد در DataCombo بايد در رويه يك كامند بنويسي

کد:

Adodc1.Recordset.Delete

براي اضافه كردن يك ركورد ركورد در DataCombo بايد در رويه يك كامند بنويسي

کد:

Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields![color=red]Product[/color] =Text1.Text

كلمه Product براي مثال زدم شما نام فيلد خود را بايد بنويسي

[jaber]

آقای arashrj به خدا ممنون میشم اگه این کار رو برام بکنی که با adodc و tabel باشه بدون sql باز هم جا داره پیش آ پیش تشکر کنم
اما آقای Rayanehfarda کد شما هم تست کردم نشد خواهشا اگه کد میزارید با توضیح یک سورس هم همراش بزارید ممنون میشم
ببخشید یکم توقع زیادی کردیم اما به بزرگواری خودتون ببخشید

[jaber]

Private Sub Form_Load()
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
Combo1.AddItem Adodc1.Recordset.Fields!Name
Adodc1.Recordset.MoveNext
Next
End Sub

من با کمک امیر حسین جان یک چیزی نوشتیم اما یکم مشکل داره
مثلا خود به خود اطلاعاتی که مربوط به این هست پاک میکنه و ایرور میده
خواهشا اینو اگه میشه برام درست کنید ممنون میشم

[arashrj]

سلام

بفرمایید این هم لینک
http://www.iranvig.com/3856.html
اگه مشکلی داشت لطفا به من اطلاع بدین

موفق باشید
خدانگهدار

[jaber]

یک دنیا از شما ممنون دوست عزیز اما دو تا سواله دیگه در این مورد داشتم

1- میخوام اطلاعات از خود کامبو وارد کنم
2 - می خوام کلید رفرش نداشته باشه آیا مشکلی پیش می یاد
ممنون می شم اگه راهنمایی کنید یا سورس رو تغییر بدین
باز هم خیلی ممنون دوست عزیز کار منو راه انداختی