ارجو المساعده

كيف يمكن لي ان اقوم بعمليه استدعاء sup proceduer من خلال

button

Public Sub getsql(ByVal sender As Object, ByVal e As System.EventArgs)

If Not IsPostBack Then

Dim jockeyconnection As New SqlConnection()

jockeyconnection = New SqlConnection("server = '" & server_name & "'; Initial Catalog=Jockey;" & _

"integrated security = SSPI")

Dim jockeydataadapter As New SqlDataAdapter()

jockeydataadapter = New SqlDataAdapter(" SELECT TrackingEntity.TrackingEntityName,TrackingEntity.LastPositionLat,TrackingEntity.LastPositionLong,SIMS.MobileNo,TrackingEntity.LastPositionTime FROM TrackingEntity,SIMS where TrackingEntityName= '" & droplist.Text & "' and TrackingEntity.simID = SIMS.SIMID ", jockeyconnection)

Dim jockeydataset As New DataSet()

jockeydataadapter.Fill(jockeydataset, "TrackingEntity")

Dim jockeydataview As New DataView()

jockeydataview = jockeydataset.Tables("TrackingEntity").DefaultView

Dim lat_x As String = jockeydataset.Tables(0).Rows(0).Item(1)

Dim lon_y As String = jockeydataset.Tables(0).Rows(0).Item(2)

'Dim mobile As String = jockeydataset.Tables(0).Rows(0).Item(3)

'Dim lastposition As String = jockeydataset.Tables(0).Rows(0).Item(4)

TextBox1.Text = lat_x * 60

TextBox2.Text = lon_y * 60

'lblsim.Text = mobile

'Label2.Text = lastposition

' GridView1.DataSource = jockeydataview

'GridView1.DataBind()

jockeydataadapter = Nothing

jockeydataset = Nothing

jockeydataview = Nothing

jockeyconnection.Close()

End If

End Sub