Com o código abaixo, e vários outros parecidos que existem, podemos criar tabelas definindo o tipo de campo.
Mas eu pergunto, além disso dá pra usar mais comandos como de propriedades, como por exemplo,
Tipo de dados: Número (INTEGER)
Caption: outroNome

e ainda as propriedades de Pesquisa: Origem da Linha?

Set objConnection = CreateObject("ADOX.Catalog")

objConnection.Create _
    "Provider = Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source = Teste de Criação de bd.mdb"
	
Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open _
    "Provider= Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=Teste de Criação de bd.mdb" 

objConnection.Execute "CREATE TABLE tblProduto(" & _
    "codProduto COUNTER ," & _
    "Produto TEXT(50))" 

objConnection.Execute "CREATE TABLE tblFuncionario(" & _
    "codFuncionario COUNTER ," & _
    "Funcionario TEXT(50))" 

objConnection.Execute "CREATE TABLE tblCaixa(" & _
    "codCaixa COUNTER ," & _
    "DataCaixa DATE ," & _
    "codFunc INTEGER)"

objConnection.Execute "CREATE TABLE tblDetCaixa(" & _
    "codDetCaixa COUNTER ," & _
    "codCaixa INTEGER ," & _
    "codProduto INTEGER ," & _
    "Preço CURRENCY)"

objConnection.Close

Grato

Régis
Access 2K - win XP

Nesta página, no AtivoAccess tenho três artigos sobre SQL e Access. Dê uma olhada.

valeu pelas dicas.
vou dar uma olhada.

Eu consegui criar o banco de dados, criar as tabelas e fazer os relacionamentos, tudo em código.
Só nao consegui mudar a Origem da Linha nos campos que se relacionam onde eu usaria Exibir controle como Caixa de Combinação e definiria a Origem da Linha.
Eu ja tentei usando uma instrução SQL com o comando ALTER TABLE ... ALTER COLUMN.
Mas eu sei...
Eu precisava alterar as propriedades:
DISPLAYCONTROL = "Caixa de combinação"
COLUMNCOUNT = 2
ROWSOURCETYPE = "Tabela/Consulta"
ROWSOURCE = "SELECT codProduto, Produto FROM tblProduto ORDER BY Produto;"
Como eu alteraria a tabela via código? Pode ser dentro do VBA mesmo. Com recursos do Access.
Eu falo isso porque estou usando VBScript. Porém pode ser em qualquer modo.
Estou usando ADODB 2.1 e Access 2000.


Régis
Access 2k - win XP

Você não altera diretamente um campo. São quatro passos: 1) criar um campo com formato desejado, 2) copiar os dados para este novo campo, 3) excluir o campo anterior e 4) renomear o novo campo.

Nao entendi.
Quer dizer, a lógica eu sei, mas vc nao respondeu minha pergunta.
O problema é quando criamos o campo que eu quero via código ele só retorna o tipo, que é INTEGER, mas será que não dá pra via código eu mexer nas opções de transformar o campo em combobox e editar a origem do registro? Estou falando do relacionamento que é feito com o Assitente de Pesquisa do campo, sabe?

Régis

Dê uma olhada em JOINs (Junções).

Osmar nao estou conseguindo.
Me ajude, por favor.
Acho que vou precisar de algo mais debulhado.
Por favor.

Grato
Régis

Tá dificil, nao estou conseguindo de jeito nenhum.
Régis

Eu vi que talvez eu possa usar o comando SOURCEFIELD mas nao estou conseguindo adaptar ao meu codigo de VBScript.

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "Arquivos de dados|*.mdb|All Files|*.*"
objDialog.FilterIndex = 1
'Alterar o local em cada máquina que for usada.
objDialog.InitialDir = "C:\Documents and Settings\Régis\Meus documentos"
intResult = objDialog.ShowOpen
 
If intResult = 0 Then
    Wscript.Quit
Else
    strArquivo = objDialog.FileName & ".mdb"
End If

Set objConnection = CreateObject("ADOX.Catalog")

objConnection.Create _
    "Provider = Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source = " & strArquivo
	
Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open _
    "Provider= Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source = " & strArquivo

objConnection.Execute "CREATE TABLE tblProduto" & _
    "(codProduto COUNTER CONSTRAINT PrimaryKey PRIMARY KEY," & _
    " Produto TEXT(50)," & _
    " Preço CURRENCY)"

objConnection.Execute "CREATE TABLE tblFuncionario" & _
    "(codFunc COUNTER CONSTRAINT PrimaryKey PRIMARY KEY," & _
    "Funcionario TEXT(50))" 

'Cria as tabelas de detalhe e os relacionamentos.
objConnection.Execute "CREATE TABLE tblCaixa" & _
    "(codCaixa COUNTER CONSTRAINT PrimaryKey PRIMARY KEY," & _
    " codFunc INTEGER CONSTRAINT codFuncPrimaryKey" & _
    " REFERENCES tblFuncionario (codFunc)," & _
    " DataCaixa DATETIME)"

'Cria o relacionamento definindo Atualização e Exclusão em Cascata.
objConnection.Execute "CREATE TABLE tblDetCaixa" & _
    "(codDetCaixa COUNTER CONSTRAINT PrimaryKey PRIMARY KEY," & _
    " codCaixa INTEGER CONSTRAINT myPrimaryKey" & _
    " REFERENCES tblCaixa (codCaixa)" & _
    " ON UPDATE CASCADE" & _
    " ON DELETE CASCADE," & _
    " codProduto INTEGER CONSTRAINT codProdutoPrimaryKey" & _
    " REFERENCES tblProduto (codProduto)," & _
    " Quant INTEGER," & _
    " Preço CURRENCY)"

objConnection.Close

Set objDialog = Nothing
Set objConnection = Nothing

MsgBox "Arquivo criado com sucesso!"
'Só falta alterar a Origem da Linha da Caixa de Combinação 'codFunc' em 'tblCaixa' e 'codProduto' em 'tblDetCaixa'.

Grato

Régis
Access 2K - win XP