5 replies to this topic

[rmax209]

Estou criando tabelas e campos no Access via programação com o comando CREATE TABLE

CREATE TABLE nome_da_tabela (id AutoIncrement, campo1 CHAR(100), campo2 CHAR(250), data DATETIME, Primary Key(id) )

agora só naun sei como definir as propriedades dos campos principalmente no data/hora para q ele registre a data automaticamente a cada registro e tb a mascara...

se alguem tiver uma relação desses comandos de definição de campo e puder m passar fico muito agradecido!

vlw galera!!

[Camarão]

Olha aqui se te ajuda
http://www.w3schools.../sql_create.asp
flow

[siola]

Cara essa semana mesmo eu estava procurando uma maneira de mudar a propriedade "Permitir Comprimento Zero" em um campo do access, e vi que não da pra mudar essa propriedade na instrução SQL direto, o melhor que achei foi isso aqui:

set cnn = server.createobject("ADODB.Connection")
set cat = server.CreateObject("ADOX.Catalog")

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=c:\northwind.mdb;"
set cat.ActiveConnection = cnn
set tbl = cat.Tables("Employees")

tbl.Columns("LastName").Properties("Jet OLEDB:Allow Zero Length") = true

set tbl = nothing
set cat = nothing
set cnn = nothing

para as propriedades que você quer eu não sei se dá pra por com o Alter Table, mas não custa nada ir tentando.

[]s

[rmax209]

Oq eu preciso mesmo é só de definir a propriedade data();

Tipo para colocar a data de hoje automaticamente no campo DATA no db, no access é só colocar data() no "modo design" como "valor padrão" só preciso saber como fazer isso via programação ou seja no CREATE TABLE só q ainda naun achei em lugar nenhum na internet


ja tentei colocar no codigo

campo_data = data() e de outras maneiras mais sempre da erro de sintaxe...

[siola]

Achei

set cnn = server.createobject("ADODB.Connection")
set cat = server.CreateObject("ADOX.Catalog")

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=c:\Inetpub\wwwroot\tags\dados.mdb;"
set cat.ActiveConnection = cnn
set tbl = cat.Tables("tabela")

tbl.Columns("campo").Properties("Default") = "Date()"

set tbl = nothing
set cat = nothing
set cnn = nothing

[]s

[rmax209]

hmm vlw vou testar aqui...