CONSULTA A SQL

JUAN PABLO
26 de Junio del 2004
ALGUIEN SABE COMO SE CONSULTA A SQL SERVER DESDE VISUAL BASIC SI EXISTE UNA TABLA DENTRO DE UNA BASE DE SATOS.
GRACIAS

Victor Licea
26 de Junio del 2004
una manera:
private sub ExisteTabla()
On Local Error GoTo SQL_error
Dim adoaux As ADODB.Recordset
Set adoaux = New ADODB.Recordset
adoaux.Open "sp_help mitablita", cn, adOpenDynamic, adLockReadOnly
If adoaux.BOF Then
MsgBox "No existe"
Else
MsgBox "Existe"
End If
adoaux.close
set adoaux=nothing
exit sub

SQL_error:
Dim er As ADODB.Error
dim st as string
st= "Error #" & Err.Number & vbCrLf & _
"En: " & strEn & vbCrLf & _
Err.Description & vbCrLf & _
"Fuente:" & Err.Source
end sub

Victor Licea
26 de Junio del 2004
Faltó:
msgbox st

en la rutina de error