+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد زر الحفظ هو نفس زر التعديل (/showthread.php?tid=28370)
اريد زر الحفظ هو نفس زر التعديل - سمير جمال - 26-01-19
اريد عند الضغط على زر الحفظ يحفظ وايضا عند تعديل اى شي فى الفورم يقوم ايضا بالتعديل
RE: اريد زر الحفظ هو نفس زر التعديل - aljzazy - 26-01-19
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
RE: اريد زر الحفظ هو نفس زر التعديل - سمير جمال - 26-01-19
(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("تمت عملية الحفظ بنجاح")
دة كود الحفظ
كيف اكتب كود التعديل
RE: اريد زر الحفظ هو نفس زر التعديل - aljzazy - 26-01-19
نفسه يا عزيزي باختلاف الامر المخزن فقط
RE: اريد زر الحفظ هو نفس زر التعديل - سمير جمال - 26-01-19
(26-01-19, 08:28 PM)aljzazy كتب : نفسه يا عزيزي باختلاف الامر المخزن فقط
الف شكر استاذ صحبي
RE: اريد زر الحفظ هو نفس زر التعديل - mnsoor3404 - 05-07-21
(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
ممكن شرح للكود لوسمحتوا
RE: اريد زر الحفظ هو نفس زر التعديل - strongriseman - 06-07-21
الحل باختصار
تعمل بحث بدلالة رقم الحساب مثلا فان كان موجود يعمل 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