Hola, simplemente sale la ventana para informar el error al proveedor(Microsoft Visual FoxPro)
mas o menos este es el código.
INSERT INTO cProceso values('', 'Conectándose al servidor...', 1,1)
*****codigo de un metodoi en el form********
IF This.conectarse('master') = 0
UPDATE cProceso SET flg = 2 WHERE orden = 1
RETURN 0
ENDIF
UPDATE cProceso SET descri = 'Conexión al servidor OK', flg = 3 WHERE orden = 1
* Crear base de datos seteo
INSERT INTO cProceso values('', 'Creando base de datos de configuración...', 2,1)
&& ES AQUÍ DONDE OCURRE EL ERROR Y SE CIERRA EL VFP.
&& PS NI SIQUIERA INGRESA AL METODO. LO CURIOSO ES QUE ESTABA &&FUNCINANDO
&& BIEN PERO DE PRONTO TODOS LOS METODOS AL PARECER SE HAN DAÑADO.
IF This.create_database_seteo1() = 0 && lINEA DE ERROR <-------
UPDATE cProceso SET descri = 'Error creando base de datos de configuración', flg = 2 WHERE orden = 2
RETURN 0
ENDIF
********************* este es el metodo create_database_seteo1()*******************
* Ver si existe
TEXT TO cSql TEXTMERGE NOSHOW PRETEXT 2
select rtrim(name) as nombre
from sysdatabases
where name = 'prueba'
ENDTEXT
IF SQLEXEC(vCon, cSql, 'cBase') < 0
RETURN 0
ENDIF
SELECT cBase
GO TOP
IF !EOF()
RETURN 1
ENDIF
TEXT TO cSql TEXTMERGE NOSHOW PRETEXT 2
-- Crear base de datos.
USE [master]
--GO
/****** Objeto: Database [prueba] Fecha de la secuencia de comandos: 06/09/2008 19:21:07 ******/
CREATE DATABASE [prueba] ON PRIMARY
( NAME = N'prueba', FILENAME = N'C:Archivos de programaMicrosoft SQL ServerMSSQL.1MSSQLDATAprueba.mdf' , SIZE = 3000KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB )
LOG ON
( NAME = N'prueba_log', FILENAME = N'C:Archivos de programaMicrosoft SQL ServerMSSQL.1MSSQLDATAprueba_log.ldf' , SIZE = 1024KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)
COLLATE Modern_Spanish_CI_AS
--GO
EXEC dbo.sp_dbcmptlevel @dbname=N'prueba', @new_cmptlevel=90
--GO
IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))
begin
EXEC [prueba].[dbo].[sp_fulltext_database] @action = 'disable'
end
--GO
ALTER DATABASE [prueba] SET ANSI_NULL_DEFAULT OFF
--GO
ALTER DATABASE [prueba] SET ANSI_NULLS OFF
--GO
ALTER DATABASE [prueba] SET ANSI_PADDING OFF
--GO
ALTER DATABASE [prueba] SET ANSI_WARNINGS OFF
--GO
ALTER DATABASE [prueba] SET ARITHABORT OFF
--GO
ALTER DATABASE [prueba] SET AUTO_CLOSE OFF
--GO
ALTER DATABASE [prueba] SET AUTO_CREATE_STATISTICS ON
--GO
ALTER DATABASE [prueba] SET AUTO_SHRINK OFF
--GO
ALTER DATABASE [prueba] SET AUTO_UPDATE_STATISTICS ON
--GO
ALTER DATABASE [prueba] SET CURSOR_CLOSE_ON_COMMIT OFF
--GO
ALTER DATABASE [prueba] SET CURSOR_DEFAULT GLOBAL
--GO
ALTER DATABASE [prueba] SET CONCAT_NULL_YIELDS_NULL OFF
--GO
ALTER DATABASE [prueba] SET NUMERIC_ROUNDABORT OFF
--GO
ALTER DATABASE [prueba] SET QUOTED_IDENTIFIER OFF
--GO
ALTER DATABASE [prueba] SET RECURSIVE_TRIGGERS OFF
--GO
ALTER DATABASE [prueba] SET ENABLE_BROKER
--GO
ALTER DATABASE [prueba] SET AUTO_UPDATE_STATISTICS_ASYNC OFF
--GO
ALTER DATABASE [prueba] SET DATE_CORRELATION_OPTIMIZATION OFF
--GO
ALTER DATABASE [prueba] SET TRUSTWORTHY OFF
--GO
ALTER DATABASE [prueba] SET ALLOW_SNAPSHOT_ISOLATION OFF
--GO
ALTER DATABASE [prueba] SET PARAMETERIZATION SIMPLE
--GO
ALTER DATABASE [prueba] SET READ_WRITE
--GO
ALTER DATABASE [prueba] SET RECOVERY FULL
--GO
ALTER DATABASE [prueba] SET MULTI_USER
--GO
ALTER DATABASE [prueba] SET PAGE_VERIFY CHECKSUM
--GO
ALTER DATABASE [prueba] SET DB_CHAINING OFF
ENDTEXT
IF SQLEXEC(vCon, cSql) < 0
WAIT CLEAR
RETURN 0
ENDIF
RETURN 1
*******************
Como te decia ni siquiera entra al metodo, el error ocurre a penas lee la linea(LINEA DE ERROR)
Espero me puedan ayudar.