mhaeri
شنبه 11 مهر 1388, 16:06 عصر
با سلام
يك سئوال دارم
من يك وب سرويس دارم كه كاربر در برنامه اش اون رو رجيستر مي كنه و يكسري پارامتر به اين وب سرويس مي فرسته و در داخل وب سرويس اين پارامترها به عنوان وروديهاي يك استور پروسيجر باعث ميشه كه يك ركورد به بانك اضافه بشه
حالا من مي خوام يك كد رهگيري يا شناسه به برنامه كاربر برگشت داده بشه:
يعني در داخل برنامه كاربر:
Dim ws1 As New org.khodro.Service
Dim a As Integer
a = wskhodro.WebServiceTransfer(Me.txtn1.Text, Me.drpvehicleseri.SelectedValue, Me.drpcity.SelectedValue, Me.txtn2.Text, Me.txtn3.Text, Me.txtn4.Text, Me.txtn5.Text, Me.txtn6.Text, Me.txtn7.Text)
Me.lblMessage.Text = a.ToString
كه در متن برچسب اون شماره پي گيري قرار مي گيره:
اينم براي مثال كد وب سرويس :
Dim cmd As New SqlCommand()
cmd.CommandType = CommandType.StoredProcedure
Dim cmd As New SqlCommand()
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "CallWebService"
cmd.Parameters.Add("@p1", SqlDbType.NVarChar, 40).Value = ""
cmd.Parameters.Add("@p2", SqlDbType.NVarChar, 10).Value = ""
cmd.Parameters.Add("@p3", SqlDbType.Char, 10).Value = ""
cmd.Parameters.Add("@Ip4", SqlDbType.NVarChar, 10).Value = ""
cmd.Parameters.Add("@p5", SqlDbType.NVarChar, 30).Value = strFirstname
cmd.Parameters.Add("@p6", SqlDbType.NVarChar, 50).Value = strLastname
cmd.Connection = connection
Try
connection.Open()
Dim output As Integer = cmd.ExecuteScalar
output = CIIWebServiceTransfer
Return output
در حقيقت اينجا كه Return مي كنه اون مقدار فيلد Identity به برنامه فراخواننده برگردانده بشه
تو اينجا يك مقدار گير كردم و مقدار صفر برگردونده ميشه
لطفا راهنمايي كنيد
ممنون
يك سئوال دارم
من يك وب سرويس دارم كه كاربر در برنامه اش اون رو رجيستر مي كنه و يكسري پارامتر به اين وب سرويس مي فرسته و در داخل وب سرويس اين پارامترها به عنوان وروديهاي يك استور پروسيجر باعث ميشه كه يك ركورد به بانك اضافه بشه
حالا من مي خوام يك كد رهگيري يا شناسه به برنامه كاربر برگشت داده بشه:
يعني در داخل برنامه كاربر:
Dim ws1 As New org.khodro.Service
Dim a As Integer
a = wskhodro.WebServiceTransfer(Me.txtn1.Text, Me.drpvehicleseri.SelectedValue, Me.drpcity.SelectedValue, Me.txtn2.Text, Me.txtn3.Text, Me.txtn4.Text, Me.txtn5.Text, Me.txtn6.Text, Me.txtn7.Text)
Me.lblMessage.Text = a.ToString
كه در متن برچسب اون شماره پي گيري قرار مي گيره:
اينم براي مثال كد وب سرويس :
Dim cmd As New SqlCommand()
cmd.CommandType = CommandType.StoredProcedure
Dim cmd As New SqlCommand()
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "CallWebService"
cmd.Parameters.Add("@p1", SqlDbType.NVarChar, 40).Value = ""
cmd.Parameters.Add("@p2", SqlDbType.NVarChar, 10).Value = ""
cmd.Parameters.Add("@p3", SqlDbType.Char, 10).Value = ""
cmd.Parameters.Add("@Ip4", SqlDbType.NVarChar, 10).Value = ""
cmd.Parameters.Add("@p5", SqlDbType.NVarChar, 30).Value = strFirstname
cmd.Parameters.Add("@p6", SqlDbType.NVarChar, 50).Value = strLastname
cmd.Connection = connection
Try
connection.Open()
Dim output As Integer = cmd.ExecuteScalar
output = CIIWebServiceTransfer
Return output
در حقيقت اينجا كه Return مي كنه اون مقدار فيلد Identity به برنامه فراخواننده برگردانده بشه
تو اينجا يك مقدار گير كردم و مقدار صفر برگردونده ميشه
لطفا راهنمايي كنيد
ممنون