تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات
#1
السلام عليكم
دي اول مشاركة ليه بالمنتدى رجاء المساعدة
 مرفق رابط مشروع للبنك تم عمله بلغة الفيجوال بيسك دوت نت وقاعدة بيانات سيكوال سرفر
المشروع عبارة عن 3 شاشات يوجد بعض ازرار لم اقم ببرمجتها ولكن سؤالي هو عند عمل ابديت لبيانات العملاء من الفيجوال بيسك لم يظهر اى اخطاء ولكن لم يقم بالتعديل بعد عملية البحث
ملحوظة اننى قمت بعمل بروسيدجر داخل قاعدة البيانات لعمل الابديت
المشكلة في الربط بين الفيجوال بيسك والبروسيدجر الذي يقوم بعملية الابديت
https://www.dropbox.com/s/c52h62r9u9fr29...t.rar?dl=0


الملفات المرفقة
.rar   Bank Project.rar (الحجم : 114.05 ك ب / التحميلات : 26)
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام

الاسلوب المتبع ليس .net

هذا اسلوب الدوت نت
كود :
Public cnn As New SqlConnection("Driver={SQL Server};Server=ASMAAADEL-PC\SQLEXPRESS; Database=Bank;Uid=asmaa;Pwd=12345;")

هذا تنفيذ بروسيدجر
كود :
Dim cmd As New SqlCommand("CUpdate", cnn)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.AddWithValue("@ID", i)
cmd.Parameters.AddWithValue("@FirstName", TextBox1.Text)
cmd.Parameters.AddWithValue("@LastName", TextBox2.Text)
cmd.Parameters.AddWithValue("@Mobile", TextBox3.Text)
cmd.Parameters.AddWithValue("@Email", TextBox4.Text)

cnn.Open()

MsgBox(cmd.ExecuteScalar)

cnn.Close()
الرد }}}}
تم الشكر بواسطة: Asmaa adel
#3
اتفضلى تعديل الكود بالشكل التالي 
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim FirstName 
As String "'" TextBox1.Text "',"
 
       Dim LastName As String "'" TextBox2.Text "',"
 
       Dim Email As String "'" TextBox4.Text "',"
 
       Dim Mobile As String "'" TextBox3.Text "'"

 
       Dim X As String "CUpdate " FirstName LastName Email Mobile

        rs1
.Open(Xcn)

 
       MsgBox(rs1("Message").ValueMsgBoxStyle.Information"update")

 
       rs1.Close()
 
   End Sub 
وشكرا
الرد }}}}
تم الشكر بواسطة: Asmaa adel , Asmaa adel
#4
(14-10-16, 08:14 AM)ممدوح كتب : وعليكم السلام

الاسلوب المتبع ليس .net

هذا اسلوب الدوت نت
كود :
Public cnn As New SqlConnection("Driver={SQL Server};Server=ASMAAADEL-PC\SQLEXPRESS; Database=Bank;Uid=asmaa;Pwd=12345;")

هذا تنفيذ بروسيدجر
كود :
Dim cmd As New SqlCommand("CUpdate", cnn)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.AddWithValue("@ID", i)
cmd.Parameters.AddWithValue("@FirstName", TextBox1.Text)
cmd.Parameters.AddWithValue("@LastName", TextBox2.Text)
cmd.Parameters.AddWithValue("@Mobile", TextBox3.Text)
cmd.Parameters.AddWithValue("@Email", TextBox4.Text)

cnn.Open()

MsgBox(cmd.ExecuteScalar)

cnn
الف شكر لحضرتك عالرد 
لكن عفوا ماذا تقصد بان الاسلوب المتبع ليس .net؟
انا شغالة على الفيجوال بيسك .net علما باني لسه مبتدئة واريد ان استفيد من خبرات حضرتك

(15-10-16, 09:31 PM)WAEL ABED كتب : اتفضلى تعديل الكود بالشكل التالي 
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim FirstName 
As String "'" TextBox1.Text "',"
 
       Dim LastName As String "'" TextBox2.Text "',"
 
       Dim Email As String "'" TextBox4.Text "',"
 
       Dim Mobile As String "'" TextBox3.Text "'"

 
       Dim X As String "CUpdate " FirstName LastName Email Mobile

        rs1
.Open(Xcn)

 
       MsgBox(rs1("Message").ValueMsgBoxStyle.Information"update")

 
       rs1.Close()
 
   End Sub 
وشكرا

شكرا جزيلا تم التنفيذ بطريقة صحيحة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغير حجم شاشات البرنامج عند العمل على شاشات اخرى nassery99 3 70 16-10-17, 12:42 PM
آخر رد: silverlight
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 51 16-10-17, 07:41 AM
آخر رد: khaled12345
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 130 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 82 14-10-17, 10:55 PM
آخر رد: ابو روضة
  المساعدة في كود بحث وفلتر khaled12345 6 125 14-10-17, 05:36 AM
آخر رد: khaled12345
  ظهور البرنامج عند نسخ رابط ابو روضة 8 158 12-10-17, 02:47 PM
آخر رد: ابو روضة
  [VB.NET] استفسار :- تحديث ال TEXTBOX dubai.eig 8 156 10-10-17, 07:03 PM
آخر رد: dubai.eig
  [سؤال] رسالة خطأ بعد تنصيب البرنامج على جهاز آخر aftfm 1 57 09-10-17, 06:57 PM
آخر رد: Adrees
  [سؤال] استعراض حالة عمل البرنامج ابو روضة 7 186 08-10-17, 11:22 AM
آخر رد: ابو روضة
  سورس إظهار معلومات البرنامج fouadhdfouad 5 94 07-10-17, 07:00 PM
آخر رد: fouadhdfouad

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم