VERIFICA SE A TABELA EXISTE
boa tarde,
Estou precisando saber se uma determinada tabela existe em meu banco de dados estou fazendo assim
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
If rs.State <> 0 Then rs.Close
sql = [Ô]if exists (select * from dbo.sysobjects where id = object_id(N[ô][dbo].[[Ô] & NomeTab & [Ô]][ô]) and OBJECTPROPERTY(id, N[ô]IsUserTable[ô]) = 1) \[Ô]
rs.Open sql, con, adOpenStatic, adLockOptimistic
If rs.EOF = False Then
EncontrolNotaArecuperar = [Ô]SIM[Ô]
Else
EncontrolNotaArecuperar = [Ô]Nao[Ô]
End If
mas nao ta dando certo, o bd é sql serve e vb6, algem teria uma saida?
Abraços a todos
Estou precisando saber se uma determinada tabela existe em meu banco de dados estou fazendo assim
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
If rs.State <> 0 Then rs.Close
sql = [Ô]if exists (select * from dbo.sysobjects where id = object_id(N[ô][dbo].[[Ô] & NomeTab & [Ô]][ô]) and OBJECTPROPERTY(id, N[ô]IsUserTable[ô]) = 1) \[Ô]
rs.Open sql, con, adOpenStatic, adLockOptimistic
If rs.EOF = False Then
EncontrolNotaArecuperar = [Ô]SIM[Ô]
Else
EncontrolNotaArecuperar = [Ô]Nao[Ô]
End If
mas nao ta dando certo, o bd é sql serve e vb6, algem teria uma saida?
Abraços a todos
Olá amigo!
Uso o seguinte codigo para esta necessidade, vê se te ajuda:
Dim Tabela_Temp_Existe As Boolean
[ô]Abre conexão com banco
Set rs = cn.OpenSchema(adSchemaTables)
While Not rs.EOF
If rs!TABLE_NAME = [Ô]NOME DA TABELA QUE PROCURA AQUI[Ô] Then
Tabela_Temp_Existe = True
End If
rs.MoveNext
Wend
[ô]Fecha conexão com banco
Uso o seguinte codigo para esta necessidade, vê se te ajuda:
Dim Tabela_Temp_Existe As Boolean
[ô]Abre conexão com banco
Set rs = cn.OpenSchema(adSchemaTables)
While Not rs.EOF
If rs!TABLE_NAME = [Ô]NOME DA TABELA QUE PROCURA AQUI[Ô] Then
Tabela_Temp_Existe = True
End If
rs.MoveNext
Wend
[ô]Fecha conexão com banco
nao funcionou nao .
SELECT * FROM dbo.SYSOBJECTS WHERE XTYPE = [ô]U[ô] AND NAME = [ô]TABELA[ô]
Não leve para outro lado e sem controvérsia.
Uma [txt-color=#e80000]googlada[/txt-color] resolve isto bem fácil.
Pode ir na do GUIMORAES123 que da certo.
Uma [txt-color=#e80000]googlada[/txt-color] resolve isto bem fácil.
Pode ir na do GUIMORAES123 que da certo.
Citação::
Olá amigo!
Uso o seguinte codigo para esta necessidade, vê se te ajuda:
Dim Tabela_Temp_Existe As Boolean
[ô]Abre conexão com banco
Set rs = cn.OpenSchema(adSchemaTables)
While Not rs.EOF
If rs!TABLE_NAME = [Ô]NOME DA TABELA QUE PROCURA AQUI[Ô] Then
Tabela_Temp_Existe = True
End If
rs.MoveNext
Wend
[ô]Fecha conexão com banco
Qual o erro?
Tópico encerrado , respostas não são mais permitidas