Ik had het ADO gedeelte inderdaad bewust weg gelaten uit het artikel. Het ging een beetje buiten de scope van het artikel en bovendien is de instelling bij iedereen anders. ADO is prachtig als het goed is geïnstalleerd en werkt, maar het is nogal een zoekpartij als het niet werkt.
PartsData is de query (een TDataSet eindigt bij mij standaard op Data), deze ziet er als volgt uit:
Code:
object PartsData: TADOQuery
Connection = ADOConnection
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select PartNo, '
' VendorNo, '
' Description, '
' OnHand, '
' OnOrder, '
' Cost, '
' ListPrice '
'from parts'
'order by Description')
Left = 152
Top = 164
object PartsDataPartNo: TFloatField
DisplayLabel = 'ArtikelNr'
FieldName = 'PartNo'
end
object PartsDataVendorNo: TFloatField
DisplayLabel = 'Leverancier'
FieldName = 'VendorNo'
end
object PartsDataDescription: TWideStringField
DisplayLabel = 'Omschrijving'
FieldName = 'Description'
Size = 30
end
object PartsDataOnHand: TFloatField
DisplayLabel = 'Voorraad'
FieldName = 'OnHand'
end
object PartsDataOnOrder: TFloatField
DisplayLabel = 'Besteld'
FieldName = 'OnOrder'
end
object PartsDataCost: TFloatField
DisplayLabel = 'Inkoopprijs'
FieldName = 'Cost'
DisplayFormat = '###,##0.00'
end
object PartsDataListPrice: TFloatField
DisplayLabel = 'Verkoopprijs'
FieldName = 'ListPrice'
DisplayFormat = '###,##0.00'
end
end
AdoConnection is dan de verbinding naar ADO, die ziet er als volgt uit:
Code:
object ADOConnection: TADOConnection
ConnectionString =
'DBQ=<DATABASEPATH>\dbdemos.mdb;DRIVER={Microsoft A' +
'ccess Driver (*.mdb)}'
LoginPrompt = False
Provider = 'MSDASQL.1'
Left = 56
Top = 164
end
Je ziet dat ik m'n ConnectionString vrij kaal heb gelaten, alleen maar DBQ=<DATABASEPATH>\dbdemos.mdb;DRIVER={Microsoft A' +
'ccess Driver (*.mdb)}, waar je <DATABASEPATH> vervangt door je eigen path. Hierdoor laat je alle overige instellingen aan ADO over. Probeer eens op deze manier of je je dataset kunt openen.
Bookmarks