[rnmr]

جرب هذا

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    TextBox15.Text = DateTime.Now
    TextBox14.Text = My.Computer.Name.ToString()
    Try
        If cnn.State <> ConnectionState.Open Then cnn.Open()
        cmd = New OleDb.OleDbCommand("SELECT COUNT([ngan]) FROM [info] WHERE [ngan]=@ngan", cnn)
        cmd.Parameters.AddWithValue("@ngan", TextBox5.Text)
        If cmd.ExecuteScalar > 0 Then
            MsgBox("الاسم موجود")
        Else
            cmd.CommandText = "INSERT INTO " & _
                       " [info] ( [name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti],[datauser],[dateuser] ) " & _
                       " VALUES ( @name, @department, @dgree, @pagn, @typepag, @typegan, @ngan, @unti, @datauser, @dateuser  )"
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@name", TextBox1.Text)
            cmd.Parameters.AddWithValue("@department", ComboBox1.Text)
            cmd.Parameters.AddWithValue("@dgree", ComboBox5.Text)
            cmd.Parameters.AddWithValue("@pagn", TextBox3.Text)
            cmd.Parameters.AddWithValue("@typepag", TextBox4.Tex)
            cmd.Parameters.AddWithValue("@typegan", ComboBox6.Text)
            cmd.Parameters.AddWithValue("@ngan", TextBox5.Text)
            cmd.Parameters.AddWithValue("@unti", TextBox6.Text)
            cmd.Parameters.AddWithValue("@datauser", TextBox14.Text)
            cmd.Parameters.AddWithValue("@dateuser", TextBox15.Text)
            If cmd.ExecuteNonQuery() > 0 Then
                MsgBox("نجحت الإضافة")
            End If
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        cnn.Close()
    End Try
    clear1()
End Sub