تقييم الموضوع :
  • 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 
وشكرا

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في حل مشكلة المشروع المرفق لانواع بحث مختلفة khaled12345 6 45 اليوم, 04:54 AM
آخر رد: khaled12345
  كيفية تحديث المعلومات في المشروع بمفتاح Refresh khaled12345 2 30 أمس, 11:49 PM
آخر رد: khaled12345
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 272 أمس, 05:21 PM
آخر رد: alma2
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 5,005 25-05-17, 08:04 AM
آخر رد: hatem555
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 71 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  ارجو المساعدة لو تكرمتم rabeh.ram 4 93 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 95 19-05-17, 03:50 PM
آخر رد: khaled12345
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 59 17-05-17, 05:14 PM
آخر رد: 0theghost0
  ارجو المساعدة حفظكم الله rabeh.ram 2 94 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 97 16-05-17, 12:54 PM
آخر رد: عامر الجبوري

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


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