[الطالب]

سلام

هذه تفضل الاكواد

INSERT

كود :

Public connString As String = "connection string"

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

        Dim rtn As Integer

        Using cnn As New SqlConnection(connString)
            cnn.Open()

            Dim sql As String = _
                "INSERT INTO [table] ([col1], [col2], [col3] ) VALUES (@col1, @col2, @col3 ) "

            Using cmd As New SqlCommand(sql, cnn)
                cmd.Parameters.AddWithValue("@col1", TextBox1.Text.Trim)
                cmd.Parameters.AddWithValue("@col2", CheckBox1.Checked)
                cmd.Parameters.AddWithValue("@col3", DateTimePicker1.Value.Date)

                rtn = cmd.ExecuteNonQuery

            End Using

            cnn.Close()
        End Using

        If rtn > 0 Then
            MsgBox("Inserted.")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

UPDATE

كود :

Public connString As String = "connection string"

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

        Dim rtn As Integer

        Using cnn As New SqlConnection(connString)
            cnn.Open()

            Using cmd As New SqlCommand("UPDATE [table] SET [col1]=@col1, [col2]=@col2, [col3]=@col3 ) WHERE [id]=@id", cnn)
                cmd.Parameters.AddWithValue("@col1", TextBox1.Text.Trim)
                cmd.Parameters.AddWithValue("@col2", CheckBox1.Checked)
                cmd.Parameters.AddWithValue("@col3", DateTimePicker1.Value.Date)
                cmd.Parameters.AddWithValue("@id", userid)

                rtn = cmd.ExecuteNonQuery

            End Using

            cnn.Close()
        End Using

        If rtn > 0 Then
            MsgBox("Updated.")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

DELETE

كود :

Public connString As String = "connection string"

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

        Dim rtn As Integer

        Using cnn As New SqlConnection(connString)
            cnn.Open()

            Using cmd As New SqlCommand("DELETE FROM [table] [id]=@id", cnn)
                cmd.Parameters.AddWithValue("@id", userid)

                rtn = cmd.ExecuteNonQuery

            End Using

            cnn.Close()
        End Using

        If rtn > 0 Then
            MsgBox("Deleted.")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

موفقين