[Asmaa adel]

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

[ممدوح]

وعليكم السلام

الاسلوب المتبع ليس .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()

[WAEL ABED]

اتفضلى تعديل الكود بالشكل التالي 

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 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 " & i & FirstName & LastName & Email & Mobile

        rs1.Open(X, cn)

        MsgBox(rs1("Message").Value, MsgBoxStyle.Information, "update")

        rs1.Close()
    End Sub 


وشكرا

[Asmaa adel]

(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 Object, e As EventArgs) Handles 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 " & i & FirstName & LastName & Email & Mobile

        rs1.Open(X, cn)

        MsgBox(rs1("Message").Value, MsgBoxStyle.Information, "update")

        rs1.Close()
    End Sub 


وشكرا

شكرا جزيلا تم التنفيذ بطريقة صحيحة