[احمد عبد الحكيم]

اخى الكريم الكود لا يعمل بعدما قمت بالتعديل عليه
فا قد قمت بوضعه فى زر الحفظ الاننى اريد ان يقوم بالتاكيد على 4 حقول وليس حقل واحد

PHP كود :

Dim sql As String = "SELECT * FROM [list] WHERE [msna] = @name AND [fa] = @fa AND [aiar] = @aiar AND [msnai] = @msnai"
                Dim comma As New SqlCommand(sql, con)
                comma.Parameters.AddWithValue("@name", txtName.Text)
                comma.Parameters.AddWithValue("@fa", txtfa.Text)
                comma.Parameters.AddWithValue("@aiar", txtaiar.Text)
                comma.Parameters.AddWithValue("@msnai", txtmnai.Text)
                con.Open()
                Dim dr As SqlDataReader
                dr = comma.ExecuteReader
                If dr.HasRows Then
                    MsgBox("الإسم موجود مسبقا في قاعدة البيانات")
                Else

                    Dim cmdInsH As New SqlCommand
                    cmdInsH.Connection = con
                    cmdInsH.CommandType = CommandType.Text
                    cmdInsH.CommandText = "INSERT INTO [list] VALUES" & "(@p1,@p2,@p3,@p4,@p5)"

                    cmdInsH.Parameters.AddWithValue("@p1", txtid.Text)
                    cmdInsH.Parameters.AddWithValue("@p2", ComboBox1.Text)
                    cmdInsH.Parameters.AddWithValue("@p3", txtfa.Text)
                    cmdInsH.Parameters.AddWithValue("@p4", txtaiar.Text)
                    cmdInsH.Parameters.AddWithValue("@p5", txtmnai.Text)

                    If con.State = ConnectionState.Open Then
                        con.Close()
                    End If
                    con.Open()
                    cmdInsH.ExecuteNonQuery()
                    con.Close()

                    con.Close()
                    ShowMsg("تم الحفظ بنجاح", ShowMsgImage.Security, "Example dialog")
                    txt.Visible = False
                    Return
                End If
                dr.Close()
                con.Close()


            End Using

        Else

            ShowMsg("لم يتم حفظ البيانات", ShowMsgImage.Security, "Example dialog")
        End If
    End Sub