سوال عن كود بروسيجر

السيد الهاشمي كتب:

السلام عليكم ورحمة الله وبركاته

اخواني اعضاء ومشرفين المنتدى .. تحية طيبة وبعد ..

عندي كود اضافة منتج .. استخدم الاستور بروسيجر .. واستدعيته في الكود بكل نجاح .. لكن اريد ان اعرف كيف اعمل function and sub واعمل واستخدم فيها البروسيجر وثم استدعي الدالة .. في البوتون .. هذه هو الكود

 Dim filepath As String = Server.MapPath("images")
        Dim filename As String = ""
        If FileUpload1.HasFile Then
            filename = FileUpload1.PostedFile.FileName
            filepath = filepath + "//" + filename
            FileUpload1.SaveAs(filepath)
            Dim x As Integer = 1
            Dim xx As Integer = 0
            cm = New SqlCommand("goods1", con)
            cm.CommandType = CommandType.StoredProcedure

            con.Open()
            cm.Parameters.AddWithValue("@gname", TextBox1.Text)
            cm.Parameters.AddWithValue("@gcount", TextBox2.Text)
            cm.Parameters.AddWithValue("@gimg", filename)
            cm.Parameters.AddWithValue("@flag1", 1)
            cm.Parameters.AddWithValue("@flag2", 1)
            cm.Parameters.AddWithValue("@uname", TextBox3.Text)
            cm.ExecuteNonQuery()
            con.Close()

        End If

ياليت الي عنده خببره بهذه الشي يكتب لي كيف اعمل دالة او سب واستخدم فيها البروسيجر الذي عملته .. وثم كيف اقوم باستدعاء هذه الدالة في البتوتون ..

عشرين مشاهده ولا في اي رد ؟

السلام عليكم ..

هل هذا هو المطلوب ...

Private Sub Save()
 Dim filepath As String = Server.MapPath("images")
    	Dim filename As String = ""
    	If FileUpload1.HasFile Then
        	filename = FileUpload1.PostedFile.FileName
        	filepath = filepath + "//" + filename
        	FileUpload1.SaveAs(filepath)
        	Dim x As Integer = 1
        	Dim xx As Integer = 0
        	cm = New SqlCommand("goods1", con)
        	cm.CommandType = CommandType.StoredProcedure

        	con.Open()
        	cm.Parameters.AddWithValue("@gname", TextBox1.Text)
        	cm.Parameters.AddWithValue("@gcount", TextBox2.Text)
        	cm.Parameters.AddWithValue("@gimg", filename)
        	cm.Parameters.AddWithValue("@flag1", 1)
        	cm.Parameters.AddWithValue("@flag2", 1)
        	cm.Parameters.AddWithValue("@uname", TextBox3.Text)
        	cm.ExecuteNonQuery()
        	con.Close()

    	End If

	End Sub

ثم نستدعي الــ Sub بالــ Button ..

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Save()
   End Sub

houssam11350_11350 كتب:

السلام عليكم ..

هل هذا هو المطلوب ...

Private Sub Save()
 Dim filepath As String = Server.MapPath("images")
    	Dim filename As String = ""
    	If FileUpload1.HasFile Then
        	filename = FileUpload1.PostedFile.FileName
        	filepath = filepath + "//" + filename
        	FileUpload1.SaveAs(filepath)
        	Dim x As Integer = 1
        	Dim xx As Integer = 0
        	cm = New SqlCommand("goods1", con)
        	cm.CommandType = CommandType.StoredProcedure

        	con.Open()
        	cm.Parameters.AddWithValue("@gname", TextBox1.Text)
        	cm.Parameters.AddWithValue("@gcount", TextBox2.Text)
        	cm.Parameters.AddWithValue("@gimg", filename)
        	cm.Parameters.AddWithValue("@flag1", 1)
        	cm.Parameters.AddWithValue("@flag2", 1)
        	cm.Parameters.AddWithValue("@uname", TextBox3.Text)
        	cm.ExecuteNonQuery()
        	con.Close()

    	End If

	End Sub

ثم نستدعي الــ Sub بالــ Button ..

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Save()
   End Sub

-------------------------------

مشكور اخي العزيز على ردك والله يجعله في ميزان حسناتك . بس كان عندي استفسار . طيب لو ان استخدمة function والدالة ترجع لي قيمة ... والقيمة ارسلها انا لدالة .. فكيف سوف استدعي الــ function وارسلها القيمة

ياليت اخي العزيز تفيدني بهذه الشي والله يجعله في ميزان حسناتك ولك جزيل الشكر

السلام عليكم ...

سأعلمك الصيد .. بدلا من أن أعطيك السمكة ...

في هذا الرابط ..http://www.kutub.inf...ary/category/18 العديد من الكتب عن VB6 .. اختر أحد الكتب للمبتدئين ...و ابدأ ..

و هنا كتب عن VB.NET .... في الرابط http://www.kutub.inf...ary/category/19

أما كتابة دالة في الــ vb.net فهو بالشكل :

Public Function nameOfFun(theParameters ) as resultTyple
كود الدالة
End Function

حيث nameOfFun هو اسم الدالة و theParameters هي بارمترات الدالة و هي عبارة عن اسم متحولات و نوعها و بينها فاصلة , أما resultTyple فهو نوع البيانات المعادة من الدلة ..

ويتم ارجاع قيمة الدالة من خلال الــ return

مثال :

Public Function add_ab(a As Integer,b As Integer) As Integer
Return (a + b)
End Function

و الاستدعاء :

Dim x AS Integer
x=add_ab(2,1)
MsgBox("The total is " & x)

منقول من هنا

اقتباس

فكيف سوف استدعي الــ function وارسلها القيمة

لم أعرف ما هي البارمترات المطلوبة و ما هو القيمة المطلوب إعادتها ..

houssam11350_11350 كتب:

السلام عليكم ...

سأعلمك الصيد .. بدلا من أن أعطيك السمكة ...

في هذا الرابط ..http://www.kutub.inf...ary/category/18 العديد من الكتب عن VB6 .. اختر أحد الكتب للمبتدئين ...و ابدأ ..

و هنا كتب عن VB.NET .... في الرابط http://www.kutub.inf...ary/category/19

أما كتابة دالة في الــ vb.net فهو بالشكل :

Public Function nameOfFun(theParameters ) as resultTyple
كود الدالة
End Function

حيث nameOfFun هو اسم الدالة و theParameters هي بارمترات الدالة و هي عبارة عن اسم متحولات و نوعها و بينها فاصلة , أما resultTyple فهو نوع البيانات المعادة من الدلة ..

ويتم ارجاع قيمة الدالة من خلال الــ return

مثال :

Public Function add_ab(a As Integer,b As Integer) As Integer
Return (a + b)
End Function

و الاستدعاء :

Dim x AS Integer
x=add_ab(2,1)
MsgBox("The total is " & x)

منقول من هنا

لم أعرف ما هي البارمترات المطلوبة و ما هو القيمة المطلوب إعادتها ..

=====================

مشكور اخي العزيز على ردك علي . والله يجعله في ميزان حسناتك