Hmm woll immer noch nicht so richtig...
hier mal meinen gesamten Code:
Delphi-Quellcode:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
DB, ADODB, Mask, DBCtrls;
type
TVocabEingabe =
class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Vok_Deutschnn: TDBEdit;
Vok_Englischnn: TDBEdit;
ADOConnection1: TADOConnection;
QRY_InsertVocab: TADOQuery;
Vok_Deutsch: TEdit;
Vok_Englisch: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
// TVokabel = record
// Vok_Deutsch: string;
// Vok_Englisch: string;
// end;
var
VocabEingabe: TVocabEingabe;
implementation
{$R *.dfm}
procedure TVocabEingabe.Button1Click(Sender: TObject);
begin
// QRY_InsertVocab.SQL.Add('INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ('+quotedstr(Vok_Deutsch2.Text)+', '+quotedstr(Vok_Englisch2.Text)+');');
//QRY_InsertVocab.Parameters.ParamByName( 'Vok_Deutsch').Value := Vok_Deutsch2.Text;
//QRY_InsertVocab.Parameters.ParamByName( 'Vok_Deutsch').Value := Vok_Deutsch2.Text;
//QRY_InsertVocab.ExecSQL;
QRY_InsertVocab.Parameters.ParamByName('
Vok_Deutsch').Value := Vok_Deutsch.Text;
QRY_InsertVocab.Parameters.ParamByName('
Vok_Englisch').Value := Vok_Englisch.Text;
QRY_InsertVocab.ExecSQL;
QRY_InsertVocab.SQL.Text := '
INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES (:Vok_Deutsch, :Vok_Englisch);';
end;
end.
jetzt kommt noch ne Fehlermeldung - siehe Anhang:
was muss ich denn jetzt verändern wenn ich werte die ich in die
DB eintragen will direkt in den code eingebe - bloß um zu sehen ob überhaupt werte eingetragen werden können?
Hier mal infos über meine tabelle:
Tabellenname: TabVokabeln
Spalten: ID_Vokabeln
Vok_Deutsch
Vok_Englisch
Kategorie
Datum
Das kann noch nicht so schwer sein einfach mal daten in eine Tabelle zu bringen... oder? Ich verstehs nich...
