26-01-19, 07:53 PM
اريد عند الضغط على زر الحفظ يحفظ وايضا عند تعديل اى شي فى الفورم يقوم ايضا بالتعديل
اريد زر الحفظ هو نفس زر التعديل
|
26-01-19, 07:53 PM
اريد عند الضغط على زر الحفظ يحفظ وايضا عند تعديل اى شي فى الفورم يقوم ايضا بالتعديل
26-01-19, 07:59 PM
PHP كود : Dim TODO As String = "add" تم الشكر بواسطة: ابراهيم ايبو
26-01-19, 08:05 PM
(26-01-19, 07:59 PM)aljzazy كتب : 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
نفسه يا عزيزي باختلاف الامر المخزن فقط
تم الشكر بواسطة: سمير جمال , ابراهيم ايبو
26-01-19, 08:54 PM
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
05-07-21, 11:26 PM
تم الشكر بواسطة: ابراهيم ايبو
06-07-21, 09:39 AM
الحل باختصار
تعمل بحث بدلالة رقم الحساب مثلا فان كان موجود يعمل 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 تم الشكر بواسطة: asemshahen5 , ابو انس , mmaalmesry , ابراهيم ايبو
|
|