جمع عدد وارد شده با عدد موجود در دیتا بیس و بروز رسانی آن

[soroushi]

سلام دوستان
من یک فرم دارم که در قسمت پایین موجوده می خواستم با فشار دادن button1 عدد موجود در textbox1 با مقدار اولیه دیتا بیس در "kk" برای آنهایی که در چک باکس علامت زده شده اند جمع شود و در دیتابیس قرار گیرد .
ممنونم از اینکه کمکم می کنید .

[ali_najari]

دوست عزيز شما بايد يه حلقه تعريف كنيد كه حداكثر آن معادل تعداد ركوردهاي موجود در داخلي ليست چك باكس - 1 هست (ListCheckbox1.items.count -1) سپس تك تك ايتم ها رو چك ميكني و در صورتي كه ان ايتم Checked برابر با true بود دستور Update رو براي Database ارسال ميكني

اگر نياز هست من يه Sample واستون بزارم

[soroushi]

دوست عزيز شما بايد يه حلقه تعريف كنيد كه حداكثر آن معادل تعداد ركوردهاي موجود در داخلي ليست چك باكس - 1 هست (ListCheckbox1.items.count -1) سپس تك تك ايتم ها رو چك ميكني و در صورتي كه ان ايتم Checked برابر با true بود دستور Update رو براي Database ارسال ميكني

اگر نياز هست من يه Sample واستون بزارم

دوست عزیز علی آقا من یک تازه کارم اگه امکانش هست و میتونید لطفا فایل ضمیمه رو down کنید و برام انجام بدین , متشکرم .
در ضمن من از کجا می تونم مجموعه سورس های sql را داشته باشم این کد فایل ضمینه رو هم از کدهای دوستان استفاده کردم .

[ali_najari]

دوست عزيز شما يه سري اگر به وبلاگ من بزنيد يكسري كد توي اونجا هست كه به دردتون شايد بخوده و البته اين رو هم بگم كه يك كلاس وجود داره واسه كار با بانك اطلاعاتي Access و SQL

[soroushi]

ولی من نتونستم , راهی برای حلش پیدا نکردم !!؟

[soroushi]

سلام
اساتید محترم کسی هست بتونه به ما کمک کنه ، من ممنون می شم اگه کسی بتونه کمکم کنه !!؟

[ali_najari]

سلام
اساتید محترم کسی هست بتونه به ما کمک کنه ، من ممنون می شم اگه کسی بتونه کمکم کنه !!؟

دوست عزيز شرمنده من يكم كارم اين چند رور زياد بود
سعي ميكنم توي اين يكي دو روز آينده واستون آماده كنم اين برنامه رو~

[alimanam]

با سلام

اساتید محترم کسی هست بتونه به ما کمک کنه ، من ممنون می شم اگه کسی بتونه کمکم کنه !!؟

سورس شما رو کمی تغییر دادم . موفق باشید .

[singel]

سلام من هم یه سورس برات اماده کرده بودم که دیدم این مشکل حل شده دیگه آپ نمیکنم
البته من در برنامه با استفاده از , (ویرگول ) فیلد ها را از هم جدا کردم بعد در هنگام بروزرسانی جدول از آن استفاده کردم (این روش دیگر بود که به ذهن من رسید )

[soroushi]

سلام
آقا یک مشکل فقط ، وقتی همه گزینه ها رو انتخاب می کنید و کلیک میکنید گزینه اول تغییر نمی کنه و گزینه های دیگه هم بعضی درست و بعضی هم چند برابر اضافه می شن چرا ؟

[alimanam]

با سلام

سلام
آقا یک مشکل فقط ، وقتی همه گزینه ها رو انتخاب می کنید و کلیک میکنید گزینه اول تغییر نمی کنه و گزینه های دیگه هم بعضی درست و بعضی هم چند برابر اضافه می شن چرا ؟

ببخشید من کدهاشو تند تند واستون نوشتم اینجوری تغییرش بده درست میشه . موفق باشید .

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        For Each indexChecked In CheckedListBox1.CheckedIndices



            Try

                Dim cmd As New OleDbCommand("Update TBLperson Set kk=@param1 where pcode = " & id.Item(indexChecked), con)

                If con.State = ConnectionState.Closed Then con.Open()

                With cmd

                    .Parameters.Clear()

                    .Parameters.AddWithValue("@param1", Val((idCont.Item(indexChecked) + Val(TextBox1.Text))))

                    .ExecuteNonQuery()

                    con.Close()

                End With

            Catch ex As Exception

                MsgBox(Err.Description, MsgBoxStyle.Exclamation)

            End Try

        Next

          

        idCont.Clear()

        id.Clear()

        LoadData()

          



End Sub