Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Erstellen von Tabellen mit CREATE TABLE (https://www.delphipraxis.net/70357-erstellen-von-tabellen-mit-create-table.html)

Berserker 29. Mai 2006 11:05

Datenbank: MySQL • Version: 4 • Zugriff über: CrLAB MyDAC

Erstellen von Tabellen mit CREATE TABLE
 
Hallo.

Ich habe folgendes Problem.
Im Delphi gibt es einen TValueListEditor. Jedoch hat dieser nur 2 Spalten.
Ich benötige jedoch 4 Spalten.

Ich würde es auch mit Arrays machen jedoch stellt sich dabei folgendes Problem.

In den ValueListEditor füge ich Zeilen ein und lese die Werte diese mit ValueListEditor1.Values['SoWieviel'] wieder aus.

Bei Arrays kann man mit Array[0] den Wert bekommen. Jedoch nützen mir die Zahlen nichts.
Bei TListView habe ich nichts gefunden an die Werte einer Zeile mit einem String ranzukommen.

In das Array oder sonstwas müssten Daten rein, aus denen ich dann einen CREATE für die Datenbank erstelle.

Hat von euch jemand eine Idee?

MfG, Ronny

mkinzler 29. Mai 2006 11:13

Re: Erstellen von Tabellen mit CREATE TABLE
 
Was hast du eigentlich vor/was willst du in dem array ablegen?

Berserker 29. Mai 2006 11:53

Re: Erstellen von Tabellen mit CREATE TABLE
 
Ich lese ein Fremdformat ein und muss daraus Tabellen erstellen.

So müsste es aussehen:

Feldname | Typ | ISTNULL | LÄNGE
test1 | VARCHAR | NEIN | 20
test2 | VARCHAR | NEIN | 20
test3 | INT | JA | 5

Wobei ich mit dem Feldname an die Daten rankommen müsste.

mkinzler 29. Mai 2006 12:04

Re: Erstellen von Tabellen mit CREATE TABLE
 
Ich würde das mit einer StringListe lösen (Hiermit kannst du auch das Aufspalten einer zeile in die Teilkomponenten erledigen.
Delphi-Quellcode:
var
  sl: TStrings;
...
begin
  while ... (Über alle Zeilen)
  s := <Zeile lesen>
  sl := TStringList.Create;
  sl.Delimiter := '|';
  sl.DelimitedText := s;
  sl.Items[0] ->Tablename usw.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz