FiveTech Support Forums

IF EXISTS (SELECT * FROM sysobjects WHERE type = 'U' AND name = 'Nombre de tu tabla')
    BEGIN
        PRINT 'Existe'
        
    END
ELSE
    BEGIN
        PRINT 'no existe'
    END

cCmdSql:= " IF OBJECT_ID('dbo."+Alltrim(::Tabla)+"', 'U') IS NULL"+; 
            "   CREATE TABLE "+::Tabla+"( ROW_ID INTEGER    NOT NULL ,"+;
                                       "  CODIGO CHAR(5)    NOT NULL,"+;
                                       "  NOMBRE CHAR(30)   NOT NULL,"+;
                                       "  ACTIVO BIT        NOT NULL,"+;
                                       "  PRIMARY KEY(ROW_ID) )" 
                                                               
::oCon:Execute( cCmdSql )

// look for New table Bin

cSay := "Looking for New Table BIN"
oSay:ReFresh()
SysReFresh()

lOk := .t.

oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType     := 1        // opendkeyset
oRs:CursorLocation := 3        // local cache
oRs:LockType       := 3        // lockoportunistic

cSql := "Select * from [Bin] where 1 = 2"

TRY
  oRs:Open(cSQL,xCONNECT )
CATCH oErr
  lOk := .f.
END TRY

If lOk = .t.
   oRs:Close()
Endif

If lOk = .f.

   Try
     oCn  := CREATEOBJECT( "ADODB.Connection" )
   Catch
     Saying := "Could not create the ADO object for connection"+chr(10)
     Saying += "to Create the Table BIN"+chr(10)
     MsgInfo( Saying )
     oDlg:End()
     Return(.f.)
   End Try

   TRY
     oCn:Open( xCONNECT )
   CATCH oErr
     MsgInfo( "Could not open Connection to Database "+xSource )
     oDlg:End()
     RETURN(.F.)
   END TRY

   cSQL := "CREATE TABLE Bin"
   cSQL += "( "
   cSQL += "[BIN]       char(50) NOT NULL, "
   cSQL += "CONSTRAINT PK_BIN PRIMARY KEY ( BIN )"
   cSQL += " )"

   // create the table Bin
   // with primary key

   Try
      oCn:Execute( cSQL )
   Catch
      MsgInfo( "Table Create BIN Failed" )
      oDlg:End()
      Return(.f.)
   End try

   oCn:Close()
   oCn := nil