Object reference not set to an instance of an object.

[Martina]

The code below is what I am getting this error message from, can anyone see
why?

<WebMethod()> Public Function PickOnePatientFiles(ByVal name As String) As
DataSet

Dim selstring As String

Dim empid As Int32 = 0

Dim OutputList As New DataSet()

selstring = "SELECT CentralPatientID, Name, MedicareNumber, OtherID FROM
CentralPatientIndex WHERE Name = """ + name + """"

OleDbSelectCommand1.CommandText = selstring

OleDbDataAdapter1.Fill(OutputList, "PatientIndex")

empid =
CType(OutputList.Tables("CentralPatientIndex").Rows(0).Item("OtherID"),
Int32)

selstring = "SELECT * FROM Imaging Request WHERE OtherID = " + CStr(empid)

OleDbSelectCommand1.CommandText = selstring

OleDbDataAdapter1.Fill(OutputList, "Maitland_XRay")

PickOnePatientFiles = OutputList

End Function

 

[Cor Ligthert]

Martina,

Please stay in the original thread all your messages go about the same
problem.
I sand you an answer with a sample however you ignored it without even to
mention why.

Cor

"Martina"> The code below is what I am getting this error message from, can
anyone see

 

[Martina]

This message is about a different database.

I am no longer using Employees, now I am using patients etc.

Sorry, but what you have written did help before but I have now changed this
code for Patients etc.

 

[Cor Ligthert]

This message is about a different database.

I am no longer using Employees, now I am using patients etc.

Sorry, but what you have written did help before but I have now changed
this code for Patients etc.

You can use the same methods from Eployees for Patients, as data there is
not much difference.

Cor

 

[Martina]

Ok thanks, i will try this.

How about my problem where the same field is called OtherID in one table and
PatientID in the other table. Do I have to have a line that says one equals
the other?