Construir tabela via código VB

[Claudio Neto 3]

Boa tarde e feliz ano novo a todos.

 

Seguinte, estou contruindo um programa que irá fazer tabelas via código no SQLServer.

 

Estou a um bom tempo já brigando com a criação de uma tabela do tipo datetime, que no vb, para fazê-la, preciso declará-la como adDate.

 

Depois de muito brigar, pensei em tentar fazer o mesmo para o Acess e deu certo, então percebi que o erro não está no meu código, e sim em alguma coisa que o SQLServer não está aceitando.

 

ALguém tem alguma noção de qual o problema?

 

Muito obrigado...

[advaldomesquita 93]

Claudio,

poderia postar o codigo sql que seu vb esta gerando?:

 

Abçs

[Claudio Neto 3]

Claudio,

poderia postar o codigo sql que seu vb esta gerando?:

 

Abçs

Bom, vamos lá, estou usando ADO para criar as tabelas com auxílio do ADOX, então declarei duas variáveis, uma tipo catálogo e uma tipo tabela.

 

CODE

Dim tbl As New ADOX.Table

Dim ctl As New ADOX.Catalog

 

ctl.ActiveConnection = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BELLCARD;Data Source=IT03" 'a catálogo recebe minha string de conexão

 

With tbl 'e aqui crio minha tabela

.Name = "tabelaTESTE" 'o nome da tabela

.Columns.Append "cod", adInteger 'coluna do tipo inteiro (funciona)

.Columns.Append "cod_cli", adInteger

.Columns.Append "fone", adVarWChar, 15 'coluna do tipo texto com 15 caracteres (funciona)

.Columns.Append "instante", adDate 'coluna do tipo data e tempo (não funciona)

.Columns.Append "cod_usu", adInteger

.Columns.Append "tentativas", adInteger

.Columns.Append "status", adInteger

End With

 

ctl.Tables.Append tbl 'e aqui anexo a tabela criada no catálogo, que é o momento que ocorre o erro

 

Set tbl = Nothing

Set ctl = Nothing

Valeu...

[eriva_br 7]

outra opção é utilizar o comando CREATE TABLE e dar um execute na conexão

 

 

t+