boa tardi amigos...

 

eu to usando esse codigo pra criar um determinado campo, ate ai blz

so q ta dando erro quando esse campo ja existe, alguem ai tem uma dica d como eu ferificar se uma determinada TABELA existe, ou se tambem um determinado CAMPO existe....

 

CRIAR TABELA:

BancoGeral.Execute "CREATE TABLE CadPrior(priorid text(250), ord number, seq AUTOINCREMENT);"

 

 

CRIAR CAMPO:

        BancoGeral.Execute "ALTER TABLE CadExames ADD COLUMN Valor integer;"

 

entao, quero saber se ja existe....

 

no aguardo, agradeço!!!

Da uma olhada nessa dica

essa dica é legal,.. mas serve pra olhar se existe uma determinada tabela

 

 

eu to querendo saber se existe um determinado campo na tabela

consegui resolver o problema... vejam:

 

Public Function CampoExisteMer(NomeCampo As String, Tabela As String) As Boolean
    Dim i As Integer
    Dim TabMerenda As New adodb.Recordset
    Set TabMerenda = New adodb.Recordset
    CampoExisteMer = False
    TabMerenda.Open "Select top 1 * from " & Tabela, BancoMerenda
    For i = 0 To TabMerenda.Fields.Count - 1
        If TabMerenda.Fields(i).Name = NomeCampo Then
           CampoExisteMer = True
        End If
    Next i
    TabMerenda.Close
    Set TabMerenda = Nothing
End Function

 

 

num botao:

        If CampoExisteMer("QtdeSaida", "CadEntMerenda") = False Then
            BancoMerenda.Execute "ALTER TABLE CadEntMerenda ADD COLUMN QtdeSaida number;"
         End If

t+