Tilføje oplysninger til access database

ADOCommand.etEllerAndet-String :=
'INSERT INTO minTabel (Tekst1, tekst2,tekst3) VALUES ('+Edit1.Text+','+Edit2.Text+','+Edit3.Text+')';
ADOCommand.Execute;

Jeg kan ikke huske StringNavnet men det kan du se på objectInspectoren for ADOCommand.

Du skal ikke bruge '+Edit1.Text+','+Edit2.Text+','+Edit3.Text+'. Det giver problemer hvis eks. Edit1.Text = '''Hej'' sagde manden'; Apostrofferne får sql'en til at fejle.

Brug parametre i stedet (komponenten er en TQuery):

Query.SQL.Text :=
  'INSERT INTO minTabel'+
  '  (Tekst1, tekst2,tekst3)'+
  '  VALUES (:Edit1,:Edit2,:Edit3)'+

Query.ParamByName('Edit1').AsString := Edit1.Tekst;
Query.ParamByName('Edit2').AsString := Edit2.Tekst;
Query.ParamByName('Edit3').AsString := Edit3.Tekst;

Query.ExecSQL;

Jeg får følgende besked:

[Error] Unit2.pas(96): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

ved denne linje:

Query1.ParamByName('Edit1').AsString := Edit1.Tekst;

Nå ja. Skal måske lige siges at jeg bruger en Access database så selvom jeg fik løst ovenstående fejl kan SQL Queryen ikke få adgang til den.
Jeg har prøvet at bytte SQL Queryen ud med en ADO Query men kan ikke få koden tl at virke så.
Nogen forslag?

Så har jeg næstem fået en kode til at virke:

ADOCommand1.CommandText := 'INSERT INTO Alarm (Dato, Tidspunkt, AlarmOptionLyd, AlarmOptionProgram, AlarmOptionBesked, AlarmOptionLås, AlarmOptionLogOff, AlarmOptionLuk, AlarmOptionGenstart, AlarmOptionForce, AlarmLyd, AlarmProgram, AlarmBesked) VALUES ('+Dato+','+Tidspunkt+','+Option1+','+Option2+','+Option3+','+Option4+','+Option5+','+Option6+','+Option7+','+Option8+','+AlarmLyd+','+AlarmProgram+','+AlarmBesked+')';

ADOCommand1.Execute;

Den kan sagtens køre programmet men når man når til det sted hvor denne kode køres kommer den med en syntaksfejl og siger noget med at der er en fejl i INSERT INTO- sætningen.

Du mangler et ')' til sidst og antal VALUES skal være lig antal felter

ADOCommand1.CommandText := 'INSERT INTO Alarm (Dato, Tidspunkt, AlarmOptionLyd, AlarmOptionProgram, AlarmOptionBesked, AlarmOptionLås, AlarmOptionLogOff, AlarmOptionLuk, AlarmOptionGenstart, AlarmOptionForce, AlarmLyd, AlarmProgram, AlarmBesked) VALUES ('+Dato+','+Tidspunkt+','+Option1+','+Option2+','+Option3+','+Option4+','+Option5+','+Option6+','+Option7+','+Option8+','+mangler(alarmlyd)+','+mangler(alarmprogram)+','+mangler(alarmbesked)+')';

Grunden til at mine ParamByName ikke duede er rigtignok fordi du kører Access via ADO-komponenterne. Syntaksen er her:

ADOQuery.Parameters.ParamByName('').Value

hvor value er en variant der snupper alle typer. Hvordan man angiver en null-værdi sådan som man kan i BDE, ved jeg ikke.

Hestetoftens eksempel ser hermed sådan ud (for en ADOQuery):

ADOQuery.SQL.Text :=
  'INSERT INTO Alarm (Dato, Tidspunkt, AlarmOptionLyd, AlarmOptionProgram,'+
  '                  AlarmOptionBesked, AlarmOptionLås, AlarmOptionLogOff,'+
  '                  AlarmOptionLuk, AlarmOptionGenstart, AlarmOptionForce,'+
  '                  AlarmLyd, AlarmProgram, AlarmBesked)'+
  '  VALUES'+
  ' (:Dato,:Tidspunkt,:Option1,:Option2,:Option3,:Option4,:Option5,'+
  '  :Option6,:Option7,:Opton8,:AlarmLyd,:AlarmProgram,:Alarmbesked)';

ADOQuery.Parameters.ParamByName('Dato').Value := now;
ADOQuery.Parameters.ParamByName('Tidspunkt').Value := now;
ADOQuery.Parameters.ParamByName('Option1').Value := 'Jep, det er en option';
...

ADOQyery.ExecSQL();

Får en fejl om at den ikke kan finde parameteret Dato. Hvis jeg fjerner linjen med
ADOQuery.Parameters.ParamByName('Dato').Value
så får jeg bar een fejl ved næste linje osv.

Du starter din linie således "('+Dato+','+..."

prøv med "(Dato+','+"

og slut med "+alarmbesked)';"

altså fjern "'+" i starten og fjern "+'" til sidst

Husk det er den sidste nye kode jeg bruger ;) alts den fra hrc

Så det du siger hestehoftenhjælper ikke meget i den kode.

har fået det til at virke. Så tak til jer begge :)