Visual Basic - Verificar si tabla de access existe y borrarla

Life is soft - evento anual de software empresarial
   
Vista:

Verificar si tabla de access existe y borrarla

Publicado por Guval (6 intervenciones) el 20/10/2007 08:42:07
Verificar si tabla de access existe y borrarla
Con Visual basic 6.0, access 97, y utilizando ADO, como puedo verificar si una tabla existe y borrarla utilizando codigo.
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

RE:Verificar si tabla de access existe y borrarla

Publicado por Leopoldo Antonio (24 intervenciones) el 20/10/2007 09:02:07
Con esta función:

Function ComprobarTabla(cnx As ADODB.Connection, sTabla As String) As Boolean
Dim rst As ADODB.Recordset
Set rst = cnx.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
rst.MoveFirst
Do Until rst.EOF
If rst("TABLE_NAME") = sTabla Then
ComprobarTabla = True
Exit Do
End If
rst.MoveNext
Loop
Set rst = Nothing
End Function
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:Verificar si tabla de access existe y borrarla

Publicado por Leopoldo Antonio (24 intervenciones) el 20/10/2007 09:05:34
Y llamas a la función así:

p.ej. desde un CommandButton

Dim NombreTabla As String
NombreTabla = Text1.Text
If ComprobarTabla(cn, NombreTabla) = True Then
If MsgBox("La tabla " & NombreTabla & " ya existe. ¿La eliminamos?", vbYesNo) = vbYes Then
cn.Execute "DROP TABLE " & NombreTabla
Else
Exit Sub
End If
End If
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:Verificar si tabla de access existe y borrarla

Publicado por Guval (6 intervenciones) el 21/10/2007 04:11:24
Gracias:
Pero no logro hacer que funcione, me da un mensaje error de compilacion:

No se ha definido tipo definido por el usuario.

Intente agregando referencias a distintas librerias pero no logre hacer que funcionara.
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