|
|
Postada em 07/02/2006 07:55 hs
eu uso a conexão via dao. acontece que as vezes preciso criar algum campo novo na tabela. alguem tem algum exemplo, de como pode ser feita a verificação se o campo já existe e se não existir ser criado? abraços a todos vanderlei |
|
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 07/02/2006 10:00 hs
Para criar use: BaseDeDados.Execute "ALTER TABLE TABELA ADD CAMPO TIPO TAMANHO" Para verificar, faça um select * from tabela e faça um for next de 0 até rs.fields.count -1 E verifique a propriedade rs.fields(contador).name
Se não tiver no fim, vc executa o código que te enviei... T+
|
|
|
|
|
|
Postada em 07/02/2006 10:04 hs
percorrer campos das tabelas ... Dim intI As Integer
Dim intX As Integer
For intI = 0 To vgdb.TableDefs.Count - 1
For intX = 0 To vgdb.TableDefs(intI).Fields.Count - 1
List1.AddItem vgdb.TableDefs(intI).Name + " - " + vgdb.TableDefs(intI).Fields(intX).Name
Next
Next
|
|
|
|
VACA
|
LIMEIRA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/02/2006 11:05 hs
Dim tabeladef As TableDef
Dim campo As Field
On Error Resume Next
'pra tabela Set tabeladef = db.TableDefs!tabela if err.description<>"" then naum tem a tabela end if
'pra campos Set tabeladef = db.TableDefs!tabela set campo = tabeladef!campo if err.description<>"" then naum tem o campo end if
"Quando estou fraco, aí então é que sou Poderoso"
|
|
|
|
