|
|
Postada em 12/02/2008 18:49 hs
Pessoal, uso o Access 97 como gerenciado de banco de dados. Como eu faço para atraves de programação, desenvolver uma rotina pra incluir algum campo novo de alguma tabela existente... e até mesmo criar tabelas completas. Abraços Vandelei |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 12/02/2008 18:57 hs
Como você se conecta ao banco de dados, DAO, ADO, ADODB |
|
|
|
|
|
Postada em 12/02/2008 20:29 hs
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/02/2008 20:57 hs
tenta esse código '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)
|
|
|
|
|
|
Postada em 12/02/2008 21:05 hs
valeu pela dica treze.... mas e quando for numero ou data? numero inteiro ou até com duas casas decimais. se tiver msn me passe.. fica mais fácil abraços vadnderlei |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/02/2008 21:11 hs
O vander como assim voce esta falando desta linha Set fields(0) = td.CreateField("CAMPO1", dbText)
onde dbtext cria como texto, par criar como data use dbdate, e numero como dbinteger se for esta sua duvida |
|
|
|
