Autor Beitrag
Andreas30GT
Hält's aus hier
Beiträge: 5



BeitragVerfasst: Mi 27.08.03 08:27 
Hallo ich wollte mal fragen ob mir jemand helfen kann ein Programm zum einlesen von SQL Daten helfen kann. Wenn ja dann schreibe ich Euch gerne mehr drüber

Liebe Grüsse Andreas
Udontknow
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2596

Win7
D2006 WIN32, .NET (C#)
BeitragVerfasst: Mi 27.08.03 09:01 
Hi!

Dafür ist ja ein Forum da: Damit man sich gegenseitig bei Problemen hilft. Vielleicht schreibst du erst mal, was genau du denn machen willst/musst.
Welcher DB-Typ ist denn gefordert? Was für eine Delphi-Version hast du?
Daten einlesen, und dann? Sollen Sie einfach nur dem Benutzer angezeigt werden?

Cu, :)
Udontknow
Andreas30GT Threadstarter
Hält's aus hier
Beiträge: 5



BeitragVerfasst: Mi 27.08.03 09:22 
Titel: SQL Tabelle einlesen
Hallo Udontknow!

Danke für Dein ANgebot mir zu helfen.

Es ist ein Programm dass ich als Hausarbeit schreiben sol. Wenn Du Interesse hast maile ich Dir die Aufgabe gern rüber.

Ich komme da leider absolut nicht mir klar.
Udontknow
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2596

Win7
D2006 WIN32, .NET (C#)
BeitragVerfasst: Mi 27.08.03 09:39 
Poste die Aufgabe doch hier. Dann können alle anderen auch helfen.
Andreas30GT Threadstarter
Hält's aus hier
Beiträge: 5



BeitragVerfasst: Mi 27.08.03 09:50 
Titel: SQol Tabelle in Delphi darstellen
Wer kann mir bei dem Programm helfen?

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.
ausblenden Quelltext
1:
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.
ausblenden volle Höhe Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
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;
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');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (3,'ALR','','','','','','Gotthardstr. 52','8002','Zürich','Schweiz');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (4,'Bootdata Schiffmeßtechnik GmbH','','','','','','Hermann-Blenk Strasse 36','38108','Braunschweig','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (5,'EADS Deutschland GmbH','','','','','','Rechlinerstraße','85077','Manching','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (6,'IABG','','','','','','Einsteinstr. 20','85521','Ottobrunn','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (7,'ALENIA','Dept. INPT','','','','','Corso Marche 41','10146','Roma','Italien');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (8,'Meteor Costruzioni Aeronautiche ed Elettroniche SpA','','','','','Zona Industriale di Soleschiano','Via Mario Stoppani 21','34077','Ronchi dei Legionari','Italien');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (9,'MOD','Naval Acquisition Directorate','','','Private Bag X910','','','0001','Pretoria','South Africa');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (10,'FAIRCHILD/DORNIER','','','','Postfach 11 03','','','82230','Müssling','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (11,'FAIRCHILD/DORNIER','','','','Postfach 11 03','','','82230','Müssling','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (12,'FAIRCHILD/DORNIER','','','','Postfach 11 03','','','82230','Müssling','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (13,'','','','','','','Topfstr. 33','86938','Schondorf/A.','Austria');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (14,'Frankonia','','','','','','','6370','Stans','Schweiz');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (15,'','','','','','','Müllalde 5/1','88074','Meckenbeuren-Liebenau','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (16,'','','','','','','Zweisteinstr. 48','82152','Planegg-Martinsried','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (17,'','','','','','','Am Dorfanger 13','88690','Uhldingen-Mühlhofen','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (18,'','','','','','','34 Langstone Walk','Fareham Hampshire  PO14 3AB','','United Kingdom');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (19,'DLR Flugversuchstechnik','','','','','','Lilienthalplatz 7','38108','Braunschweig','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (20,'Oerlikon Contraves AG','','','','P.O. Box','','Birchstrasse 155','','Zürich','Schweiz');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (21,'EADS Deutschland GmbH','MB3','','','Postfach 80 11 60','','','81663','München','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (22,'EADS Deutschland GmbH','','','','Postfach 80 11 60','','','81663','München','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (23,'EADS Deutschland GmbH','','','','Postfach 80 11 60','','','81663','München','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (24,'Atelier für Computergrafik und Dokumentation GmbH','','','','','','Werkstraße Gebäude 35','15890','Eisenhüttenstadt','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (25,'Aircraft Electronic Engineering GmbH','','','','','','Starnberger Str. 1','82229','Seefeld/Drössling','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (26,'Aircraft Electronic Engineering GmbH','','','','','','Starnberger Str. 1','82229','Seefeld/Drössling','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (27,'Aerodata Flugmeßtechnik GmbH','','','','','','Hermann-Blenk-Str. 36','38108','Braunschweig','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (28,'Aerodata Flugmeßtechnik GmbH','','','','','','Hermann-Blenk-Str. 36','38108','Braunschweig','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (29,'Aerodata Flugmeßtechnik GmbH','','','','','','Hermann-Blenk Strasse 36','38108','Braunschweig','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (30,'EADS Deutschland GmbH','','','','Postfach 80 11 60','','','81663','München','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (31,'EADS Deutschland GmbH','LFK Lenkflugzeuge GmbH','','','Postfach 80 11 49','','','81663','München','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (32,'EADS Deutschland GmbH','','','','Postfach 80 11 60','','','81663','München','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (33,'Aircraft Services Lemwerder GmbH','','','','','','Flughafenstr. 5','27809','Lemwerder','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (34,'Aircraft Services Lemwerder GmbH','','','','','','Flughafenstr. 5','27809','Lemwerder','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (35,'Aircraft Services Lemwerder GmbH','','','','','','Flughafenstr. 5','27809','Lemwerder','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (36,'British Aerospace Deutschland GmbH','','Supervisor','Promotor','','','Viktoriastraße 1','53173','Bad-Godesberg','');
INSERT INTO CONTACTs (p_id,firma,abt,uabt,funct,pobox,housename,steet,zip,ci_town,country) Values (37,'Bundesverband der Deutschen Industrie e.V.','','','','','','Heinrich-Lübke-Ufer 14-16','50968','Köln','');


Moderiert von user profile iconTino: Code-Tags hinzugefügt.
UGrohne
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Veteran
Beiträge: 5502
Erhaltene Danke: 220

Windows 8 , Server 2012
D7 Pro, VS.NET 2012 (C#)
BeitragVerfasst: Mi 27.08.03 10:50 
Sorry, aber so gehts ja wohl nicht, das ist jetzt das 3.!!! Mal, das Du das fragst, damals wars ein Doppelposting und jetzt dasselbe schon wieder? lemming hat Dir damals einen Lösungsvorschlag gepostet, was war denn damit?

Da gehts weiter --> www.delphi-forum.de/...15037&highlight=

Ich wusste doch, dass ich diese Menge an INSERTs schonmal gesehen hab.

Topic wird gesperrt
Dieses Thema ist gesperrt, Du kannst keine Beiträge editieren oder beantworten.

Das Thema wurde von einem Team-Mitglied geschlossen. Wenn du mit der Schließung des Themas nicht einverstanden bist, kontaktiere bitte das Team.