• Sábado 20 de Abril de 2024, 09:47

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Asthar2010

Páginas: [1]
1
Visual FoxPro / Existencia de una tabla en base de datos sql server.
« en: Martes 4 de Mayo de 2010, 06:20 »
Hola, he buscado como lograr saber por codigo si una tabla existe en una base de datos sql server y he llegado hasta esto:



oConexion = CreateObject("ADODB.Connection")
With oConexion
.ConnectionString = "dsn=Profit_a;uid=sa;pwd=051069ds"
.Open
ENDWITH


oTablaAuxiliar = oConexion.Execute ("Select 'InvTemp' from SysObjects where xType='U'",oConexion)



---- hasta acá va bien ya que esa seleccion dentro de SySObjects es correcta, ahora, se me enrolla el trompo cuando trato de saber si oTablaAuxiliar tiene un valor que pueda decirme por ejemplo 0 =no existe, 1=existe....



he probado con los siguientes codigos y no logro dar con un valor que me identifique ello:

aca en el objeto recordcount() siempre me da valor -1 este creada, con registros, o no exista la tabla, donde esta mi error? he probado otros metodos y tampoco me funcionan una pequeña mano me caeria bien....Gracias.

IF (otablaAuxiliar.recordcount()=-1) then


* ** no existe la tabla.... ahora a crearla...


oConexion.Execute("create table InvTemp(Cod char(10),Can char(8),existe char(1))",oConexion)


*** agrego un registro en para evitar errores posteriores del ADO


oConexion.Execute("insert into InvTemp values('2V','2','2')",oConexion)


ELSE


* *existe la tabla, ahora a borrar sus datos...


* oConexion.Execute("delete * ",oConexion)


MESSAGEBOX( "Ya existe la tabla InventarioTemporal ")


endif


oconexion.close

Páginas: [1]