' (c) Fernando Perez Rios - Santander (SPAIN) - Enero 2006
' CreateTable.bas == Crear una tabla
' Table create
' Créer une table

$INCLUDE "qDataBase_v1.inc"
'changer le chemin en fonction de votre config

CONST cr = CHR$(13)
DIM i AS INTEGER

DIM TBStruct(9, 3) AS STRING

   tbStruct(1,1) = "Dossier"
   tbStruct(1,2) = "Texto"
   tbStruct(1,3) = "8"
 
   tbStruct(2,1) = "Cni"
   tbStruct(2,2) = "Texto"
   tbStruct(2,3) = "12"
 
   tbStruct(3,1) = "Nom"
   tbStruct(3,2) = "Texto"
   tbStruct(3,3) = "50"
 
   tbStruct(4,1) = "Domicile"
   tbStruct(4,2) = "Texto"
   tbStruct(4,3) = "50"
 
   tbStruct(5,1) = "Postal"
   tbStruct(5,2) = "Texto"
   tbStruct(5,3) = "5"
 
   tbStruct(6,1) = "Localite"
   tbStruct(6,2) = "Texto"
   tbStruct(6,3) = "50"

   tbStruct(7,1) = "Compte"
   tbStruct(7,2) = "Texto"
   tbStruct(7,3) = "20"
 
   tbStruct(8,1) = "Montant"
   tbStruct(8,2) = "Numero"
   tbStruct(8,3) = "Doble"

   tbStruct(9,1) = "Id"
   tbStruct(9,2) = "Clave"

   DIM db AS qDatabase
   db.OpenDatabase("Test.mdb")
   db.CreateTable("Sample", tbStruct())

   db.GetTables
   IF db.tableCount <> 0 THEN
      For i = 1 TO db.tableCount
		   ShowMessage "Table " & STR$(i) & " = " & db.Table(i)
      Next
   END IF
 
   DIM rs AS qRecordset
   rs.OpenRecordset("Sample")

   FOR i = 1 TO rs.fieldCount
      ShowMessage "Field #" & STR$(i) & " of table [" & _
         rs.tableSelect & "]" & cr & cr & _
         "Name =     " & rs.fieldName(i) & cr & _
         "Type# =  " & STR$(rs.fieldTypeNum(i)) & cr & _
         "Type =     " & rs.fieldTypeName(i) & cr & _
         "Lenght =   " & STR$(rs.fieldSize(i))
   NEXT i
   
   db.Close

END