|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Criar campos novos em uma tabela já existente em um bd access sem perder os dados já cadastrados.
|
 |
|
|
|
Postada em 22/8/2007 por rdeletric
'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...
|
|
|
|
|
