VERIFICAR SE UM CAMPO EXISTE NA TABELA
Gostaria de saber se tem como saber se um campo existe em determinada tabela
Eu uso esse codigo para ver se a tabela existe no Banco:
Eu uso esse codigo para ver se a tabela existe no Banco:
Public Function TabelaExiste(Banco as Dao.Database,TabelaNome as string) as Boolean
Dim Rs as recordset
on error resume next
Set rs = Banco.OpenRecordset(TabelaNome)
TabelaExiste = (err.number=0)
err.clear
end function
amigo tenta o seguinte:
Public Function CampoExiste(NomeDoCampo as String,Banco as Dao.Database, _
Tabela as String)
Dim Rs as recordset
On Error Goto Erro
Set Rs = Banco.OpenRecordset(Tabela)
If rs.RecordCount = 0 then Exit Function
rs.MoveFirst
If rs(NomeDoCampo) = "" or rs(NomeDoCampo) <> "" then
CampoExiste = "Sim"
end if
Erro:
if err.number = 3265 then
err.number = 0
CampoExiste = "Não"
end if
End Function
Vê se isso funciona, faz tempo q num mexo com vb mas creio q dê certo....espero ter ajudado, falow ae
Public Function CampoExiste(NomeDoCampo as String,Banco as Dao.Database, _
Tabela as String)
Dim Rs as recordset
On Error Goto Erro
Set Rs = Banco.OpenRecordset(Tabela)
If rs.RecordCount = 0 then Exit Function
rs.MoveFirst
If rs(NomeDoCampo) = "" or rs(NomeDoCampo) <> "" then
CampoExiste = "Sim"
end if
Erro:
if err.number = 3265 then
err.number = 0
CampoExiste = "Não"
end if
End Function
Vê se isso funciona, faz tempo q num mexo com vb mas creio q dê certo....espero ter ajudado, falow ae
Tópico encerrado , respostas não são mais permitidas