تقييم الموضوع :
  • 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 ك ب / التحميلات : 12)
الرد }}}}
تم الشكر بواسطة:
#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 
وشكرا

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 113 منذ 11 ساعة مضت
آخر رد: ali.alfoly
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 39 1,215 أمس, 11:55 AM
آخر رد: amgad525
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 149 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 112 30-11-16, 06:42 PM
آخر رد: عزف الخواطر
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 69 27-11-16, 03:56 PM
آخر رد: Adrees
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 52 21-11-16, 11:48 PM
آخر رد: السرور
  خطا عند تشغيل البرنامج makky 10 135 19-11-16, 03:17 AM
آخر رد: أبو عمر
  ارجو المساعدة في كود VB.NET 7 107 16-11-16, 03:20 AM
آخر رد: أبو عمر
  جعل مفتاح انتر يعمل عمل مفتاح تاب مع الداتا جريد فيو cvcvcv 7 1,898 15-11-16, 09:00 PM
آخر رد: samnaj00
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 192 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra

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


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