E-Mail Adresse in die Datenbank hinzufügen !

Jagg · Beiträge: 635

Hallo,Leute !

Ich habe eine CheckBox mit dem Titel "E-Mail Adresse auch an GruppenVersand verschicken" !
Der "GruppenVersand" ist eine ComboBox !
Wenn die CheckBox aktiv ist,soll er die EmpfängerAdresse in die jeweilige Tabelle schreiben,die ich aus der ComboBox ausgewählt habe !

Wie mache ich das ?

Jagg !

PS : Muss ich eine TComboBox oder eine DBComboBox auswählen ?

Renegade · Beiträge: 358 Win XP Pro, Win 7 Beta BDS 2006

Sorry ich verstehe nicht ganz worauf du hinauswillst.

Kannst du dein Problem noch ein wenig genauer Posten (Schritt für Schritt).

_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."

SnergleTheDwarf · Beiträge: 19

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

if ckb.checked then
begin
  table.Active := False;
  table.TableName := ComboBox.Text
  table.Active := True;
  table.edit;
  table.fieldbyname('Email').AsString = edit.text; // enthält die email
  table.post
end; // END OF if (cbk)

und das dürchläufst du für alle notwendigen einträge ...
vielleicht vorher noch checken ob table existiert
(wenn filebasierend dann:

markieren

Quelltext

1:	if exists (<PFAD> + <TableName>) then ...

)
(wenn nicht filebasierend ... kannst du abchecken ob du die DB öffnen konntest, wenn nicht dann ne meldung)

Jagg · Beiträge: 635

Ok,nochmal !

Ich habe 4 Komponenten : 1 Editfeld mit dem Namen "Empfänger",1 ComboBox,1 CheckBox und einen Button mit dem Namen "Versenden"
Wenn ich jetzt die Empfänger Adresse eingebe und dazu noch die CheckBox markiere soll er die EmpfängerAdresse in einen *.dbt Datei eintragen !

Aber er soll immer die EmpfängerAdresse in die jeweilige datenbank schreiben die ich in der ComboBox ausgewählt habe !

Also muss das Programm erkennen welche Datebank (*.dbf) ausgewählt ist und sie dann aktivieren !

Jagg !

Jagg · Beiträge: 635

ich habe das gefühl keiner versteht mein problem oder irre ich mich da !

Ich hab doch schon so gut erklärt wie ich kann !

wwerner · Beiträge: 185

Stimmt keiner versteht dich!
Wieso heißt der Button "Versenden" und nicht "In DB eintragen" ?
Bisher wurde bein Druck auf "versenden" doch die DB geöffnet und an alle in der DB eigetragenen Adressen eine Mail versendet. Was willst du jetzt genau machen? Wie ich dir schon mal gesagt habe: Poste ab und zu mal ein kleines Stück Quellcode. Dann ist es viel leicher dir zu helfen.

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten

Jagg · Beiträge: 635

Hmmm.... !
Naja,der Button kann auch "in DB eintragen heissen",aber das ist doch egal oder ??? :-)

So hier ist mal ein Code :

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if CheckBox1.Checked then
    begin
      Table1.Active := False;
      Table1.TableName := ComboBox1.Text;
      Table1.Active := True;
      Table1.Edit;
      Table1.Open;
      Table1.Fieldbyname('Email').AsString := Edit1.Text;
      Table1.Post;
    end;

Also,der soll beim Druck von dem Button das alles ausführen !
Das Feld wo ich die Empfänger Adresse eintrage muss das ein Editfeld sein oder ein DBEditfeld ???

ich hoffe ihr könnt mir jetzt helfen !

Jagg!

wwerner · Beiträge: 185

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if CheckBox1.Checked then 
    begin 
      Table1.Active := False; 
      Table1.TableName := ComboBox1.Text; 
      //Table1.Active := True; 
      Table1.Open; 
      Table1.Edit;       
      Table1.Fieldbyname('Email').AsString := Edit1.Text; 
      Table1.Post; 
    end;

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten

SnergleTheDwarf · Beiträge: 19

außerdem finde ich es toll daß mein quellcode so oft auftaucht ...
wie soll ich sagen:"hat was ..."

oder ist dein prob bereits gelöst

Jagg · Beiträge: 635

Meine Datenbank heisst Mail.dbf !
Aber er sagt immer die fehlermeldung "Tabelle nicht vorhanden ,Mail.dbf "

wwerner · Beiträge: 185

Fehlt mal wieder der Path?

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten

Jagg · Beiträge: 635

ne alles eingestellt !

wwerner · Beiträge: 185

aber nicht in dem Quelltext den du gepostet hast :!:

_________________
Gruß

Wolfgang

----------
zu hause ist es doch am schönsten

Jagg · Beiträge: 635

Ich habs habe nur einen backslash hinter dem wort "Datenbank" vergessen !

Jagg !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme