Hi Allz, 
 
ich habe hier ja schon vorgestellt, wie man mit PB eine Datenbank erstellt - _
  rein über die Datenzugriffsobjekte DAO. Man sah, dass man sich fast Einen _
  abbricht, wenn man Tabellen mit vielen Feldern zu definieren hat - aber, _
  jetzt was elegantes gefunden . Im Anschluß mal eine Tabelle: Person, die die _
  Felder: 
 
Nummer (als Autoincrement-Feld mit primärem Index) 
Name als Text mit 50 Bytes 
Vorname Asl Text mit 50 Bytes 
Geburtsdatum als dbDate 
Bemerkung als Memo beinhaltet. 
 
 
 
%dbEncrypt = &H2
$dbLanggeneral = ";LANGID=0x0409;CP=1252;COUNTRY=0"
 
Sub CreateNewDB(Byval sDBName As String)
     Dim DBEngine As Dispatch
     Dim DB As Dispatch
     Local vDBName As Variant
     Local  vDB As Variant
     Local  vLng As Variant
     Local  vEncr As Variant
     Local  vSQL As Variant
     Local  sSQL As String
 
     Set DBEngine = New Dispatch In "DAO.DBENGINE.35"
     Set DB = New DISPATCH IN DAODATABASE
 
     vLng = &dbLanggeneral
     vEncr = %dbEncrypt
     vDBName = sDBName
     OBJECT CALL DBEngine.CreateDatabase(vDBName,vLng, vEncr) TO vDB 
     Set DB = vDB
 
      sSQL = "CREATE TABLE Person (Nummer COUNTER"
      sSQL = sSQL + ", Name TEXT (50)"
      sSQL = sSQL + ", Vorname TEXT (50)"
      sSQL = sSQL + ", Geburtsdatum DATETIME"
      sSQL = sSQL + ", Bemerkung LONGTEXT, "
      ' jetzt primärer Index auf Nummer
      sSQL = sSQL + " CONSTRAIN PRIMARY KEY (Nummer))"
      vSQL = sSQL
      Object CALL DB.EXECUTE(vSQL)
      Object CALL DB.Close
End Sub
 
Na also, noch schlanker als DAO in VB