منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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("تمت عملية الحفظ بنجاح")



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

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

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

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

(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 


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

الحل باختصار
تعمل بحث بدلالة رقم الحساب مثلا فان كان موجود يعمل 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