Postada em 16/08/2007 16:15 hs
Cara esse é um jeito que uso para poder criar, pois tenho vários campos e fica mais fácil para visualizar, más com isso acho que dá para você ver como que se faz
TX0 = "OBJETO TEXT(50) NOT NULL, FUNCAO_MODULO TEXT(10), sist_name TEXT(10), DEVICE_NAME TEXT(50) NOT NULL, DEVICE_NUMBER INTEGER NOT NULL, DESCRICAO TEXT(30), CANALINICIAL INTEGER NOT NULL, CANALFINAL INTEGER NOT NULL, tipo_termopar INTEGER NOT NULL, "
tx1 = "CANAL0 TEXT(20), UNID0 TEXT(10), LIMITE0 LOGICAL, CANAL1 TEXT(20), UNID1 TEXT(10), LIMITE1 LOGICAL, CANAL2 TEXT(20), UNID2 TEXT(10), LIMITE2 LOGICAL, CANAL3 TEXT(20), UNID3 TEXT(10), LIMITE3 LOGICAL, CANAL4 TEXT(20), UNID4 TEXT(10), LIMITE4 LOGICAL, CANAL5 TEXT(20), UNID5 TEXT(10), LIMITE5 LOGICAL, CANAL6 TEXT(20), UNID6 TEXT(10), LIMITE6 LOGICAL, CANAL7 TEXT(20), UNID7 TEXT(10), LIMITE7 LOGICAL, CANAL8 TEXT(20), UNID8 TEXT(10), LIMITE8 LOGICAL, CANAL9 TEXT(20), UNID9 TEXT(10), LIMITE9 LOGICAL,"
tx2 = "CANAL10 TEXT(20), UNID10 TEXT(10), LIMITE10 LOGICAL, CANAL11 TEXT(20), UNID11 TEXT(10), LIMITE11 LOGICAL, CANAL12 TEXT(20), UNID12 TEXT(10), LIMITE12 LOGICAL, CANAL13 TEXT(20), UNID13 TEXT(10), LIMITE13 LOGICAL, CANAL14 TEXT(20), UNID14 TEXT(10), LIMITE14 LOGICAL, CANAL15 TEXT(20), UNID15 TEXT(10), LIMITE15 LOGICAL, CANAL16 TEXT(20), UNID16 TEXT(10), LIMITE16 LOGICAL, CANAL17 TEXT(20), UNID17 TEXT(10), LIMITE17 LOGICAL, CANAL18 TEXT(20), UNID18 TEXT(10), LIMITE18 LOGICAL, CANAL19 TEXT(20), UNID19 TEXT(10), LIMITE19 LOGICAL,"
tx3 = "CANAL20 TEXT(20), UNID20 TEXT(10), LIMITE20 LOGICAL, CANAL21 TEXT(20), UNID21 TEXT(10), LIMITE21 LOGICAL, CANAL22 TEXT(20), UNID22 TEXT(10), LIMITE22 LOGICAL, CANAL23 TEXT(20), UNID23 TEXT(10), LIMITE23 LOGICAL, CANAL24 TEXT(20), UNID24 TEXT(10), LIMITE24 LOGICAL, CANAL25 TEXT(20), UNID25 TEXT(10), LIMITE25 LOGICAL, CANAL26 TEXT(20), UNID26 TEXT(10), LIMITE26 LOGICAL, CANAL27 TEXT(20), UNID27 TEXT(10), LIMITE27 LOGICAL, CANAL28 TEXT(20), UNID28 TEXT(10), LIMITE28 LOGICAL, CANAL29 TEXT(20), UNID29 TEXT(10), LIMITE29 LOGICAL,"
TX4 = "CANAL30 TEXT(20), UNID30 TEXT(10), LIMITE30 LOGICAL, CANAL31 TEXT(20), UNID31 TEXT(10), LIMITE31 LOGICAL "
dbsNew.Execute "CREATE TABLE DEVICES ( " & TX0 & tx1 & tx2 & tx3 & TX4 & ");"
As variáveis Tx0, Tx1, Tx2, Tx3 e Tx4 não é necessário criar com o dim ou o public, basta colocar assim que o vb as cria sózinho
Obs: Eu prefiro usar o visdata, quando tenho que criar o banco na mão
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
