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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم ... ارجوا المساعدة .... كود الحفظ محمد بوقزاحة 3 39 أمس, 03:45 PM
آخر رد: مساعدة
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 57 25-02-17, 06:31 PM
آخر رد: khodor1985
  طريقه ربط السيكول بي البرنامج IBCompany 1 38 24-02-17, 03:07 PM
آخر رد: thevirus
Thumbs Up [سؤال] كود تخطي فتح رابط معين لتشغيل البرنامج Mk 22353 2 78 24-02-17, 12:56 PM
آخر رد: Master Hacker
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 60 21-02-17, 10:58 AM
آخر رد: boofa2015
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 108 18-02-17, 02:19 PM
آخر رد: Amrjamil
  البرنامج لايحفظ التغيرات عبدالرحمن المكاوي 4 79 18-02-17, 10:03 AM
آخر رد: وائل القطاوي
  [سؤال] حمايه البرنامج moshax 3 133 09-02-17, 03:34 PM
آخر رد: مساعدة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 156 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 2 97 01-02-17, 07:05 PM
آخر رد: محمد بوقزاحة

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


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