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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  سورس كود الارسال الى الواتس -يعمل يرجي التعاون للتطوير new_programer 5 224 03-03-24, 08:45 PM
آخر رد: new_programer
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 2 5,102 24-12-23, 05:08 AM
آخر رد: laban
  [نقاش] أساتذتنا مشرفى المنتدى المساعدة و الدعم فى Telerik dr.programming 6 381 21-12-23, 12:29 AM
آخر رد: dr.programming
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit

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


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