15-10-18, 06:53 PM
السلام عليكم ورحمة الله
مشكله تعبتني
عندي كود ينقل البينات من DataGridView لانزلها في قاعدة البيانات
عن طريقه اختيار معلومات معينه بالضغط على CheckBoxColumn
اختار الي اريده ان كان سطر واحد او اكثر
المهم الكود شغال ينقل وينزل في القاعدة
المشكله في حالت عدم الاشاره على CheckBoxColumn
يطلع لي مسج
ولكن هذا المسج يطلع لي على عدد الاسطر الموجوده في DataGridView
يعني ما يطلع مرة واحد فقط ويختفي لا اذا كانت عدد الاسطر في ال DataGridView
4 يطلع لي المسج اربع مرات
هذا الكود
اتوقع اعادة ضهور المسج بسبب
Next
حاولت اغير مكانه بس ما ضبط
بارك الله فيكم وشكرا على المساعده
مشكله تعبتني
عندي كود ينقل البينات من DataGridView لانزلها في قاعدة البيانات
عن طريقه اختيار معلومات معينه بالضغط على CheckBoxColumn
اختار الي اريده ان كان سطر واحد او اكثر
المهم الكود شغال ينقل وينزل في القاعدة
المشكله في حالت عدم الاشاره على CheckBoxColumn
يطلع لي مسج
كود :
MessageBox.Show("Not Checked")
ولكن هذا المسج يطلع لي على عدد الاسطر الموجوده في DataGridView
يعني ما يطلع مرة واحد فقط ويختفي لا اذا كانت عدد الاسطر في ال DataGridView
4 يطلع لي المسج اربع مرات
هذا الكود
كود :
For r As Integer = 0 To DataGridView2.Rows.Count - 1
Dim check As Boolean = CType(DataGridView2.Rows(r).Cells(0).Value, Boolean)
If check = True Then
itm2 = DataGridView2.Rows(r).Cells(2).Value
itm3 = DataGridView2.Rows(r).Cells(3).Value
itm4 = DataGridView2.Rows(r).Cells(4).Value
itm5 = DataGridView2.Rows(r).Cells(5).Value
itm6 = DataGridView2.Rows(r).Cells(6).Value
itm7 = DataGridView2.Rows(r).Cells(7).Value
itm8 = DataGridView2.Rows(r).Cells(8).Value
cmdxa = New SQLiteCommand("INSERT INTO db (omcall ,qso_date ,timeutc ,bands ,modes ,rst_sent,rst_rcvd) Values (@omcall ,@qso_date ,@timeutc ,@bands ,@modes ,@rst_sent,@rst_rcvd)") With {
.Connection = conxa
}
cmdxa.Parameters.Clear()
cmdxa.Parameters.AddWithValue("@omcall", itm2.Trim())
cmdxa.Parameters.AddWithValue("@qso_date", itm3.Trim())
cmdxa.Parameters.AddWithValue("@timeutc", Trim(Convert.ToString(itm4)))
cmdxa.Parameters.AddWithValue("@bands", itm5.Trim())
cmdxa.Parameters.AddWithValue("@modes", itm6.Trim())
cmdxa.Parameters.AddWithValue("@rst_sent", itm7.Trim())
cmdxa.Parameters.AddWithValue("@rst_rcvd", itm8.Trim())
If conxa.State <> ConnectionState.Open Then conxa.Open()
cmdxa.ExecuteNonQuery()
conxa.Close()
Application.DoEvents()
Else
MessageBox.Show("Not Checked")
End If
Next
اتوقع اعادة ضهور المسج بسبب
Next
حاولت اغير مكانه بس ما ضبط
بارك الله فيكم وشكرا على المساعده