Zo ik ben nog even verder aan het testen geweest.
Code:
begin
DatumTijd := Trunc(DateTimePicker1.DateTime) + Frac(DateTimePicker2.DateTime);
Panel1.Caption := DateTimeToStr(DatumTijd);
ADOQWerk := TADOQuery.Create(nil);
try
with ADOQWerk do begin
if TButton(Sender).Name = 'ButtonJet' then Connection := ADOConnection1
else Connection := ADOConnection2;
SQL.Clear;
SQL.Add('INSERT INTO TestTabel (DatumTijd, Naam)');
SQL.Add('VALUES (:DatumTijd, :Naam)');
Parameters.Items[0].Value := DatumTijd;
Parameters.Items[1].Value := Edit1.Text;
ExecSQL;
end;
finally
ADOQWerk.Free;
end;
ADOTable1.Close;
ADOTable2.Close;
ADOTable1.Open;
ADOTable2.Open;
end;
En dit is de bijbehorende DFM.
Code:
//.... Plenty andere stuff
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Projecten\TallyH' +
'o\Testen\test.mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
//.... nog meer stuff
object ADOConnection2: TADOConnection
ConnectionString = 'Provider=MSDASQL.1;Persist Security Info=Fal'+
'se;Data Source=Test'
LoginPrompt = False
Provider = 'MSDASQL.1'
//.... en fin , de rest.
Nu mogen jullie raden :)
Als de boel via Jet gepost wordt, werkt een en andere feilloos. Wordt het via een ODBC-gegevens bron (een System DSN) dan raakt onderweg de tijd informatie pleitte.
Bookmarks