سلام من به یک مشکل بر خورده ام خواهشا کمک ام کنید
من می خوام اطلاعات رو با combo تو دیتا بیس ذخیره کنم
یعنی کاربر برنامه من می خواد اطلاعاتش رو با کامبو باکس ذخیره کنه
و همیشه داخل کامبو باکس بمونه و هر وقتی دلش خواست اطلاعات درون
کامبو باکس رو با کلید delete پاک کنه به شرطی که اون داده در کامبو در حال
انتخاب باشه ممنون میشم هر کی کمک ام کنه
[size=medium]من اول پست کردم پستم رو پاک کردید خواهشا پاک نکید
من اینو خیلی لازم داشتم تو رو خدا هر کی میخواد بذاره با سور بذاره
سؤالت خيلی نا مفهومه عزيز، از چه ديتابيسی ميخوای استفاده کنی؟
سلام
این کد برای این که لیست داخل کمبو قرار بگیره
کد:
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) & ")"
مثلا این
موفق باشی
خدانگهدار
ممنون دوست عزیز اما نه من از sql استفاده میکنم نه از data1
من از table و adodc1 استفاده میکنم حالا چطوره ؟
در ضمن من data1 رو به adodc1 تبدیل کردم تو نام این کد ها رو میگم
باز هم نمیشه ایرور میه این کد ها رو باید کجا بنویسم ؟
در ضمن تو peropertis کامبو باید تنظیماتی هم انجام بدم یا نمی خواد ؟
یک کم بیشتر راهنمایی کنید ممنون میشم دوستان
سلام
عزیزم امشب وقت ندارم انشاالله فردا سورسش رو میذارم تو ایران ویج
لینک هم اینجا میذارم
موفق باشی
خدانگهدار
شما بايد از 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 براي مثال زدم شما نام فيلد خود را بايد بنويسي
آقای arashrj به خدا ممنون میشم اگه این کار رو برام بکنی که با adodc و tabel باشه بدون sql باز هم جا داره پیش آ پیش تشکر کنم
اما آقای Rayanehfarda کد شما هم تست کردم نشد خواهشا اگه کد میزارید با توضیح یک سورس هم همراش بزارید ممنون میشم
ببخشید یکم توقع زیادی کردیم اما به بزرگواری خودتون ببخشید
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
من با کمک امیر حسین جان یک چیزی نوشتیم اما یکم مشکل داره
مثلا خود به خود اطلاعاتی که مربوط به این هست پاک میکنه و ایرور میده
خواهشا اینو اگه میشه برام درست کنید ممنون میشم
یک دنیا از شما ممنون دوست عزیز اما دو تا سواله دیگه در این مورد داشتم
1- میخوام اطلاعات از خود کامبو وارد کنم
2 - می خوام کلید رفرش نداشته باشه آیا مشکلی پیش می یاد
ممنون می شم اگه راهنمایی کنید یا سورس رو تغییر بدین
باز هم خیلی ممنون دوست عزیز کار منو راه انداختی