[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 


وشكرا

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