Visual Basic - Como se si la tabla existe

Life is soft - evento anual de software empresarial
 
Vista:

Como se si la tabla existe

Publicado por poncho (1 intervención) el 18/01/2007 17:07:22
Hola quiero hacer una instruccion que me diga si existe una tabla. Por ejemplo:

Abro una Base de datos y luego quiero ver si en esa BDD existe la tabla DATOS, si no existe que envie un mensaje y si existe que continue con las demas instruciones.

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Listo !..por si les sirve....

Publicado por poncho (1 intervención) el 18/01/2007 18:50:31
Ya encontre la forma de hacerlo, se los dejo por si les sirve y si les sirve, espero que alguna ves hagan lo mismo que yo, podria ayudar a otros !!.:

Mediante ADO tengo unos recordsets, asi que mediante la propiedad tabledefs del objeto database me doy cuenta si existe o no, el codigo sigueinte creo que lo explica :

Dim temp As Integer
Dim Resp As Boolean

If BDDRuta = " " Then
MsgBox "No hay una base de datos seleccionada", 16, "Aviso "
Exit Sub
End If

Set miBase = OpenDatabase(BDDRuta)
'ciclo que checa si existe la tabla
For temp = 0 To miBase.TableDefs.Count - 1
If miBase.TableDefs(temp).Name = "Datos" Then
Resp = True
End If
Next temp

If Resp = True Then
Set TablaDatos = miBase.OpenRecordset("Datos")
GRAF1.Show
Else
MsgBox "No existe la tabla", 16, "Error"
TxBox1.Text = ""
Otra1.Text = ""
BDD = ""
End If

la variable boolean TEMP sirve para ver si existe o no y mediante el IF se ejecutan las instrucciones siguientes.

espero sirva en algo a ustedes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Listo !..por si les sirve....

Publicado por carlos pulga (136 intervenciones) el 18/01/2007 20:10:01
Se que no es lo mas viable pero tambien se puede hacer con un "On error goto "
por ejemplo:

private sub
dim tabla as new adodb.recordset
dim sql as string

on error go to OpenTable_miss
sql="select * from Datos"
tabla.open sql, conexion........... (usteds ya saben)
tabla.close
exit sub
OpenTable_miss:
msgbox "la tabla no exite",,""
end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar