Pessoal tem como inserir um novo campo numa tabela já existente (a tabela contem varios dados). tem como?

'na declaração:

Dim db As Database
Dim td As TableDef

'exemplo da  função:

'AQUI NO fields(2), 2 É A QUANTIDADE DE CAMPOS.
 Dim fields(2) As Field
 Set db = DBEngine.Workspaces(0).OpenDatabase("CAMINHO DE SEU BD", False, False, "SUA SENHA")
'AQUI DIGA QUAL É A TABELA.
Set td = db.TableDefs("SUA TABELA")
    
'CRIA OS CAMPOS NA TABELA EXISTENTE SEM MUDAR OS DADOS QUE CONTEM .
    Set fields(0) = td.CreateField("CAMPO1", dbText)
    Set fields(1) = td.CreateField("CAMPO2", dbText)
    td.fields.Append fields(0)
    td.fields.Append fields(1)
   

'ESPERO TER AJUDADO...

tem sim diversas formas

1. Visdata do VB6

clique com o botão direito sobre a tabela que você quer, selecione design, crie com o nome desejado e quando sair na parte de sql do próprio vistada

update suatabela set seucampo=valordeseja (se for texto colocar entre aspas simples) e selecione depois execute

 

2. Via sql

pelo programa ficaria algo assim

Vai dependender de como você programa para chamar o banco, pois existe diferença entre ADO e DAO, más o comando ficaria parecido com isso

EM ADO

dim DB as database

set db=opendatabase(app.path & "/seubanco.mdb")

db.execute "alter table suatabela add column(senão me engano) seucampo tipodocampo"

 

Eu particulamente programo em DAO, más sempre utilizo a opção 1

Obrigado rdeletric era isso mesmo que eu procurava...