Private Sub GetMachineDetails(s_machnr As String) As MachineDetail
Dim query As StringBuilder
Dim mymachinedetail As MachineDetail
mymachinedetail.Initialize
query.Initialize
query.Append("SELECT * FROM tblmachine WHERE MachNr = ?")
SQLMachines = MachinesConnectionPool.GetConnection
s_machnr = s_machnr.SubString(1)
Dim rs As ResultSet
rs = SQLMachines.ExecQuery2(query,Array(s_machnr))
Do While rs.NextRow
mymachinedetail.id = 0'rs.GetInt("idNummer")
mymachinedetail.munt = rs.GetDouble("Munt")
mymachinedetail.naam = rs.GetString("MachNaam")
mymachinedetail.nr = rs.GetInt("MachNr")
mymachinedetail.aantal = 0
mymachinedetail.bedrag = 0
Loop
rs.Close
Return mymachinedetail
SQLMachines.Close
End Sub