Ich muss eine Hausarbeit mit Delphi schreiben und ich habe keine Ahnung was mein Prof da will Also die Aufgabe:Eine MySql Export-Datei enthält die Tabellendefinition sowie die dazugehörigen INSERT - Befehle
Es soll ein Programm geschrieben werden, das unter Zuhilfenahme dieser Datei eine neue Datei erzeugen kann, die UPDATE - Befehle in SQL Syntax enthält, die wiederum vom MySql verstanden werden. UPDATE CONTACTs set firma='XYZ',abt='wichtige Abteilung' where p_id=pid+1100; der Updatebefehl ist eine Auflistung von Spaltennamen einer Tabelle mit deren Inhalt, wie im Beispiel dargestellt.
Das Programm soll folgende Anforderungen erfüllen:
- Erkennen der 1. INSERT-Zeile
- Erkennen des Tabellennamens
- Erkennen aller Spaltennamen und deren Auflistung auf einem Formular
- Möglichkeit der Eingabe einer Record-Nummer
- Anzeige der Spaltennamen mit dem Inhalt des Records.
- bei Änderung Abspeicherung als UPDATESTRING in der Datei update.txt
Das Auffinden eines Spaltennamens mit dessen Inhalt wird mit einer Prozedur erledigt, die über die lfd. Nr. des Parameters aufgerufen wird.
Zeigen Sie am Ende des Programms an (auch wenn nichts geändert wurde), wieviele Zeichen jede Spalte maximal enthalten hat.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| DROP TABLE IF EXISTS CONTACTs;
CREATE TABLE CONTACTs (
p_id int(11) NOT NULL auto_increment,
firma varchar(70) NOT NULL default '',
abt varchar(40) NOT NULL default '',
uabt varchar(40) NOT NULL default '',
funct varchar(40) NOT NULL default '',
pobox varchar(20) NOT NULL default '',
housename varchar(50) NOT NULL default '',
steet varchar(50) NOT NULL default '',
zip varchar(10) NOT NULL default '',
ci_town varchar(30) NOT NULL default '',
country varchar(20) NOT NULL default '',
PRIMARY KEY (p_id)
) TYPE=MyISAM; |
Folgende Daten sind von der Datenbank gegeben:
Quelltext
1:
2:
3:
| INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (1,'GARA Commando','','','','','','Hertogstraat 300','3001','Heverlee','Belgien');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (2,'Südafrikanische Botschaft','','','','','','Jungfraustrasse 1','3005','Bern','Schweiz');
usw.... |
Moderiert von 
UGrohne: RePosting entfernt, Code-Tags eingefügt und Text gekürzt (Ordnung muss sein!)
