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:

procedure TWinForm1.Button3_Click(sender: System.Object; e: System.EventArgs);

function StrToInt(TextBox6 : String) : Integer;

begin

tables:= StrToInt(TextBox6);
jjjj:= ComboBox1.Text;

//tabellen erstellen
 for i := 1 to tables do begin
  i2 := i.ToString;
  MessageBox.Show('sijoijw');
   // Abfrage ob MS-SQL Datenbank
    If jjjj = 'MSSQL 2005 Express Edition' then begin
     sqlCommand1.Connection := sqlConnection1;
     //Tabelle Erstellen
     sqlCommand1.CommandText:= 'CREATE TABLE siatest'+i2
     +'(feld1 int, feld2 int, feld3 varchar(50), feld4 varchar(50), feld5 int)';
     try
      sqlCommand1.ExecuteNonQuery;
      except
       on E: Exception do
         MessageBox.Show(E.Message)
     end;
     // Tabelle füllen
     for j := 1 to dsets do begin
     sqlCommand1.CommandText:= 'INSERT INTO siatest'+i2
     +'(feld1, feld2, feld3, feld4, feld5) VALUES '
     +'(''3213'', ''434324'', ''dsvsfdfdsfds'', ''djdgjudgbu'', ''3213232'')';
     sqlCommand1.ExecuteNonQuery;
     end;
    end;

   //Abgfrage ob Oracle Datenbank
    If jjjj = 'Oracle 10g Express Edition' then begin
       MessageBox.Show('Oracle')
    end;
  end;
end;

procedure TWinForm1.Button2_Click(sender: System.Object; e: System.EventArgs);