[dubai.eig]

(17-09-18, 12:45 AM)911 كتب :

كود :

Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   conx = New SQLiteConnection(String.Format("Data Source= C:\LOG\{0}\DB{1}.s3db", strca, Opencon))
   cmdx.Connection = conx

End Sub


Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
   sender.EndEdit()
   If e.ColumnIndex = 3 Then
       Dim btn As DataGridViewButtonCell = sender.Item(e.ColumnIndex, e.RowIndex)
       If btn.FormattedValue = "Add" Then
           Add(sender.CurrentRow)
           'btn.Style.NullValue = "Update"
       Else
           UpdateX1(sender.CurrentRow)
           'btn.Style.NullValue = "Add"
       End If
   End If

End Sub

Private Sub Add(row As DataGridViewRow)

   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)

   cmdx.CommandText = "INSERT INTO DBQTC (d1, d2, d3) Values (@d1,@d2,@d3)"
   cmdx.Parameters.Clear()
   cmdx.Parameters.AddWithValue("@d1", txt1)
   cmdx.Parameters.AddWithValue("@d2", txt2)
   cmdx.Parameters.AddWithValue("@d3", txt3)

   If conx.State <> ConnectionState.Open Then conx.Open()
   '------------------------------------

   Dim ret As Integer = cmdx.ExecuteNonQuery()

   If ret > 0 Then
       cmdx.CommandText = "SELECT last_insert_rowid()"
       Dim id As Integer = cmdx.ExecuteScalar()

       row.Tag = id

       MsgBox("تمت الإضافة بنجاح")
       row.Cells(3).Style.NullValue = "Update"
   End If

   '------------------------------------
   conx.Close()

End Sub

Private Sub UpdateX1(row As DataGridViewRow)

   Dim txt1 As String = TryCast(row.Cells(0).Value, String)
   Dim txt2 As String = TryCast(row.Cells(1).Value, String)
   Dim txt3 As String = TryCast(row.Cells(2).Value, String)

   Dim id As String = Val(row.Tag)

   cmdx.CommandText = "UPDATE DBQTC SET d1=@d1,d2=@d2, d3=@d3 WHERE id=@id "
   cmdx.Parameters.Clear()
   cmdx.Parameters.AddWithValue("@d1", txt1)
   cmdx.Parameters.AddWithValue("@d2", txt2)
   cmdx.Parameters.AddWithValue("@d3", txt3)

   cmdx.Parameters.AddWithValue("@id", id)



   If conx.State <> ConnectionState.Open Then conx.Open()
   Dim ret As Integer = cmdx.ExecuteNonQuery()
   conx.Close()

   If ret > 0 Then
       MsgBox("تم التحديث بنجاح")
       row.Cells(3).Style.NullValue = "Add"
   End If

End Sub

جزاك الله خيرا فوق خيرا 

الحمدالله الامور تمام وكل شي تمام

تسلم ايدك وبارك الله فيك