URL:
http://develop.fauapps.fau.edu/jewis...searchNEW.aspx
Why do I get this error?
Object variable or With block variable not set
Private Sub SBIND()
'*
'Code for Oracle 9i
'*
Dim MyConnection As System.Data.OracleClient.OracleConnection
Dim MyCommand As System.Data.OracleClient.OracleDataAdapter
Dim StudentSelectCMD As System.Data.OracleClient.OracleCommand
Dim sql_students As String
Dim valueForsql_student As String
If Name.Text = "" Then
Response.Redirect("myFAUsearchNEW.aspx")
Else
If rb2.Checked = "True" Then
'VBScript Replace function to allow faculty names with apostrophes.
'valueForsql_student = UCase(Replace(Request.Form("Name"), "'", "''"))
valueForsql_student = Replace(Request.Form("Name"), "'", "''")
'VBscript Replace function to allow student names with apostrophes.
'valueForsql_facstaff = Replace(Request.Form("Name"), "'", "''")
'Original SQL befor Oracle change
'sql_facstaff = "select Fsname As Name,Title,Dept As Department,BldgRoom,Phone,Email from DB2AS.facstaff WHERE FSNAME LIKE '" & valueForsql_facstaff & "%' order by FSNAME"
sql_students = "select StudentName As Student_Name,Email from ZZDIRID.STUDIR WHERE StudentName LIKE '" & valueForsql_student & "%' order by StudentName"
Panel1.Visible = "true"
Panel2.Visible = "false"
'label2.Text = MySQL
Panel3.Visible = "true"
Panel4.Visible = "false"
'Panel5.Visible = "true"
'Panel6.Visible = "true"
'*
'Code for Oracle 9i
'*
'MyConnection = new System.Data.OracleClient.OracleConnection
'MyConnection.ConnectionString = "user id=system;Password=manager9i;data source=myoradb_s221n120;persist security info=False"
MyConnection = New OracleConnection(ConfigurationSettings.AppSettings ("connectStudent"))
'*
'Code for Oracle 9i
'*
'Modification for Oracle Connection
StudentSelectCMD = New System.Data.OracleClient.OracleCommand
StudentSelectCMD.CommandText = sql_students
StudentSelectCMD.Connection = MyConnection
MyCommand = New System.Data.OracleClient.OracleDataAdapter
MyCommand.SelectCommand = StudentSelectCMD
'Dim DS As DataSet
'open database connection
MyConnection.Open()
'Dim DS As New DataSet
'DS = New DataSet
Dim DS As DataSet = New DataSet("MyStuff")
MyCommand.Fill(DS)
Dim lblMessage
'Check to display datagrid if results are returned by query
If DS.Tables(0).Rows.Count > 0 Then
dgStudents.Visible = "true"
'lblMessage.Text = ""
'close database connection
MyConnection.Close()
'*
'Code for Oracle 9i
'*
dgStudents.DataSource = DS.Tables(0).DefaultView
dgStudents.DataBind()
End If
'Check to remove datagrid if no results are returned by query
If DS.Tables(0).Rows.Count <= 0 Then
dgStudents.Visible = "false"
lblMessage.Text = "<b><i>Sorry - no record exist with the last name of: </i></b>" & Name.Text
End If
End If
End If
End Sub