RECORDSET
Estou criando um RecordSet temporário, mas não sei como acrescentar um campo auto incremento, quem puder ajudar.
Valews
Valews
para o campo número vc não coloca NUMBER...
para o campo AUTO-INCREMENTO basta vc colocar
[txt-color=#ff0000]autoincrement[/txt-color]
Entendeu?
para o campo AUTO-INCREMENTO basta vc colocar
[txt-color=#ff0000]autoincrement[/txt-color]
Entendeu?
Ex:
Se quiser colocar chave primária
Inserir Colunas em Tabela existente
Sacou?
Não se esqueça dúvida sanada, tópico encerrado
sql = "create table tbl_produto_foto (cd_empresa [txt-color=#ff0000]autoincrement[/txt-color] , cd_item_estoque number , ds_nome_item text,im_foto LongBinary)"
cnn.execute(sql)
Se quiser colocar chave primária
sql = ""ALTER TABLE Tab_Produtos ADD PRIMARY KEY (cd_empresa)"
cnn.execute(sql)
Inserir Colunas em Tabela existente
Sql = "ALTER TABLE Tab_Clientes ADD ICMS Float Null, IPI Float null"
cnn.execute(sql)
Sacou?
Não se esqueça dúvida sanada, tópico encerrado
você não entendeu a pergunta, estou criando um RecordSet temporário então quando faço isso:
RsTmp .Fields.Append "Codigo", adNumeric, 4, adFldKeyColumn
Gostaria de saber como fazer este campo que estou criando ser AutoIncremento
Obrigao!
RsTmp .Fields.Append "Codigo", adNumeric, 4, adFldKeyColumn
Gostaria de saber como fazer este campo que estou criando ser AutoIncremento
Obrigao!
Usa-se para Tabelas, não sei se funciona para Recordsets, mas não custa tentar, não?
RsTemp.Fields.Append "ContactId", adInteger
' Tornar o campo autoinrementavel
RsTemp.Fields.Item("ContactId").Properties("AutoIncrement") = True
RsTemp.Fields.Append "ContactId", adInteger
' Tornar o campo autoinrementavel
RsTemp.Fields.Item("ContactId").Properties("AutoIncrement") = True
Você tentou:
Tente isso:
Achei algo que possa te ajudar:
Espero que isso te ajude
Tente isso:
Achei algo que possa te ajudar:
Dim col As New ADOX.Column
With col
.Name = "Codigo"
.Type = adNumeric
Set .ParentCatalog = objConn
.Properties("AutoIncrement") = True
End With
Onde objConn é sua conexão
objConn.Tables("SuaTabela").Columns.Append col
Espero que isso te ajude
Estes exemplos, utiliza uma tabela no meu caso não ocore isso, eu adicione os campos do RecordSet, por isso que não funcionou.
Mas obrigado pelo ajuda.
Mas obrigado pelo ajuda.
"Lusitanamente", faça um contador para o carregamento desse recordset... (caso você o carregue em loop - registro a registro)
Isso já tinha feitor, mas achei que existia uma maneira mas vejo que não.
Tópico encerrado , respostas não são mais permitidas