[سمير جمال]

اريد عند الضغط على زر الحفظ يحفظ وايضا عند تعديل اى شي فى الفورم يقوم ايضا بالتعديل

[aljzazy]

PHP كود :

Dim TODO As String = "add"
 Dim query As String
 
        If TODO = "add" Then

            query = "INSERT INTO table VALUES()"

        Else
            query = "UPDATE table SET  where 
        End If 


[سمير جمال]

(26-01-19, 07:59 PM)aljzazy كتب :

PHP كود :

Dim TODO As String = "add"
 Dim query As String
 
        If TODO = "add" Then

            query = "INSERT INTO table VALUES()"

        Else
            query = "UPDATE table SET  where 
        End If 


  Dim CMD As New SqlCommand
            CMD = New SqlCommand("ACCOUNT_ADD", CON)
            CMD.CommandType = CommandType.StoredProcedure
            CMD.Parameters.AddWithValue("@NAME_A", TXT_NAME.Text)
            CMD.Parameters.AddWithValue("@NAME_E", TXT_NAME_E.Text)
            CMD.Parameters.AddWithValue("@PARNAT_ACCOUNT", Convert.ToString(CMB_PARENT_ACCOUNT.SelectedValue))
            CMD.Parameters.AddWithValue("@END_ACCOUNT", Convert.ToString(CMB_END_ACCOUNT.SelectedValue))
            OPEN_CON()
            CMD.ExecuteNonQuery()
            CLOSE_CON()

            MessageBox.Show("تمت عملية الحفظ بنجاح")



دة كود الحفظ 
كيف اكتب كود التعديل

[aljzazy]

نفسه يا عزيزي باختلاف الامر المخزن فقط

[سمير جمال]

(26-01-19, 08:28 PM)aljzazy كتب : نفسه يا عزيزي باختلاف الامر المخزن فقط

الف شكر استاذ صحبي

[mnsoor3404]

(26-01-19, 07:59 PM)aljzazy كتب :

PHP كود :

Dim TODO As String = "add"
 Dim query As String
 
        If TODO = "add" Then

            query = "INSERT INTO table VALUES()"

        Else
            query = "UPDATE table SET  where 
        End If 


ممكن شرح للكود لوسمحتوا

[strongriseman]

الحل باختصار
تعمل بحث بدلالة رقم الحساب مثلا فان كان موجود يعمل update واذا ما كانش موجود يعمل save

كود كمثال

Dim cmd As New SqlClient.SqlCommand
Dim DR_farey As SqlClient.SqlDataReader
Dim MySqlSreach As String
MySqlSreach = "Select num,name,adress,modeer,jawal,detail From farey Where num = " & Txtnum.Text & ""
Try
If Con.State = ConnectionState.Open Then Con.Close()
Con.Open()
cmd.Connection = Con
cmd.CommandType = Data.CommandType.Text
cmd.CommandText = MySqlSreach
DR_farey = cmd.ExecuteReader
DR_farey.Read()
If DR_farey.HasRows Then

'update
updatedata()
ClearText()
newnum()
SHOWDATA()
Txtname.Focus()
DR_farey.Close()
Else
DR_farey.Close()

'save
savedata()
ClearText()
newnum()
SHOWDATA()
Txtname.Focus()

End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Con.Close()
End Try