|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: |
SAMPLE 1 - SELECT
Dim SprocCommand As New SqlClient.SqlCommand
Dim SprocConn As String = WebConfigurationManager.ConnectionStrings("RCD").ConnectionString
Dim dcPlan As New SqlClient.SqlConnection(SprocConn)
Dim daPlan As New SqlClient.SqlDataAdapter()
Dim dsPlan As New DataSet
Try
SprocCommand.CommandType = CommandType.StoredProcedure
SprocCommand.Connection = dcPlan
SprocCommand.CommandText = "usp_plan_find_pin"
Call SprocCommand.Parameters.Clear()
'Create and append the parameters for the SELECT command
Dim parmSSN As New SqlClient.SqlParameter("@SSN", Trim(txtSSN.Text))
SprocCommand.Parameters.Add(parmSSN)
Dim parmHPHONE As New SqlClient.SqlParameter("@HPHONE", Trim(txtHTelephone.Text))
SprocCommand.Parameters.Add(parmHPHONE)
Dim parmHZIP As New SqlClient.SqlParameter("@CERTNUM", Trim(txtCertNum.Text))
SprocCommand.Parameters.Add(parmHZIP)
If dcPlan.State <> ConnectionState.Open Then
dcPlan.Open()
End If
daPlan.SelectCommand = SprocCommand
dsPlan.Clear()
daPlan.Fill(dsPlan)
dcPlan.Close()
SAMPLE 2 - INSERT, UPDATE OR DELETE
Dim SprocCommand2 As New SqlClient.SqlCommand
Dim SprocConn2 As String = WebConfigurationManager.ConnectionStrings("RCD").ConnectionString
Dim dcPlan2 As New SqlClient.SqlConnection(SprocConn2)
Dim daPlan2 As New SqlClient.SqlDataAdapter()
' get the info. needed to display the test
SprocCommand2.CommandType = CommandType.StoredProcedure
SprocCommand2.Connection = dcPlan2
SprocCommand2.CommandText = "usp_plan_save"
SprocCommand2.Parameters.Clear()
'Create and append the parameters for the SELECT command
Dim parmPIN2 As New SqlClient.SqlParameter("@PIN", Trim(Session("pr_pin")))
SprocCommand2.Parameters.Add(parmPIN2)
Dim parmID2 As New SqlClient.SqlParameter("@TESTID", Trim(Session("pr_TestID")))
SprocCommand2.Parameters.Add(parmID2)
Dim parmQuesID2 As New SqlClient.SqlParameter("@DISPLAYNUM", questionID)
SprocCommand2.Parameters.Add(parmQuesID2)
Dim parmChoiceID As New SqlClient.SqlParameter("@CHOICEID", choiceID)
SprocCommand2.Parameters.Add(parmChoiceID)
If dcPlan2.State <> ConnectionState.Open Then
dcPlan2.Open()
End If
SprocCommand2.ExecuteNonQuery()
dcPlan2.Close()
|
Advertisement
| Hall of Fame |