FoxPro/Visual FoxPro - Ejemplo de Manto. con SQL

 
Vista:

Ejemplo de Manto. con SQL

Publicado por Carlos Lara (2 intervenciones) el 10/03/2006 22:27:34
Hola Compañeros, la mayoria de los programas que he hecho han sido con las bases de datos de V.Fox ahora estoy empezando a manejar un poco de sql, ya tengo mis conexiones y mis estruturas creadas pero aun no decifro como puedo manipularlo desde un formulario.
Alguien tiene un ejemplo de algun manto. a un catalogo o algo por el estilo para ver como hacen la conexion y las altas bajas y modificaciones.

de antemano Gracias
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:Ejemplo de Manto. con SQL

Publicado por saul (362 intervenciones) el 11/03/2006 00:09:09
Hola Amigo

Te cuento como lo hago yo..

*** PROGRAMITA PRG
**********************************************
Local conecta_sql

SET ENGINEBEHAVIOR 70

*** esto hacelo en tu programa principal para hacer la conexcion
Conecta_SQL = Sqlstringconnect("Driver={SQL Server};Server=(local);Database=sistemas_sde")

*CLOSE DATABASES all

IF Conecta_sql < 1
Messagebox("No se Tiene conexion con SQL Server",0+64,"Alerta")
ENDIF

*** esto hacelo para llamar la tabla de Proveedores y usarla como vista
** remota..

=sqlexec(Conecta_SQL,"SELECT * FROM Proveedo WHERE empresa = ?xempresa","Proveedo")

y para guardar esto

xString = "EXEC sp_UpdProveedo ?EMPRESA,?CODIGO,?NOMBRE,?DIRECCION,?NIT,?TELEFONO,?DOLAR,?CALLE ,?CASA ,?APTO,?ZONA, ";
+"?COLONIA,?DEPTO,?MUNICIPIO,?FAX,?APDO,?E_MAIL,?DIAS,?OBSERVA,?LIMITE_CR,?CH_PAGO,?CUENTAXP "

=sqlexec(Conecta_SQL,xString)

Asi lo hago yo en Fox
****************************************************************************

y en SQL HAGO ESTO

en STORED PROCEDURES
****************************************************************************

CREATE PROCEDURE sp_InsProveedo
@EMPRESA Character(2),
@CODIGO Character(15),
@NOMBRE Character(60),
@DIRECCION Character(60),
@NIT Character(15),
@TELEFONO Character(20),
@DOLAR bit,
@CALLE Character(15),
@CASA Character(5),
@APTO Character(10),
@ZONA Character(2),
@COLONIA Character(15),
@DEPTO Character(15),
@MUNICIPIO Character(15),
@FAX Character(8),
@APDO Character(10),
@E_MAIL Character(30),
@DIAS Numeric(3),
@OBSERVA Character(30),
@LIMITE_CR Numeric(10,2),
@CH_PAGO bit,
@CUENTAXP Character(14)
AS
Begin tran
INSERT proveedo
SELECT
@EMPRESA,@CODIGO,@NOMBRE,@DIRECCION,@NIT,@TELEFONO,@DOLAR,@CALLE ,@CASA ,@APTO,@ZONA,
@COLONIA,@DEPTO,@MUNICIPIO,@FAX,@APDO,@E_MAIL,@DIAS,@OBSERVA,@LIMITE_CR,@CH_PAGO,@CUENTAXP
IF @@rowcount=0
Begin
Rollback tran
End
Commit tran
GO


Espero esto te aclare algo de lo que quieres

Suerte
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:Ejemplo de Manto. con SQL

Publicado por carlos lara (2 intervenciones) el 11/03/2006 16:42:52
hombre muchas gracias vamos a checar e intentar hacerlo de todas maneras cualquier cosa ahi te informo.

de antemano muchas gracias
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:Ejemplo de Manto. con SQL

Publicado por Hubert Casimiro (13 intervenciones) el 11/03/2006 19:29:40
Hola.
Que Version de VFP estas Utilizando.

Si es superior a 8.o existe un nuevo objeto CursorAdapter que hace el trabajo por ti.

La mejor forma de interactuar con las bases de datos es Mediante ADO

Y llevarlo al ambiente que conocemos con:
Sentencias del mismo ADO
y con un utilitario VFPCOM.DLL que lo hace por nosotros

Yo Utilizo desde VFP ADO para conectarme a cualquier Base de Datos
Y en el Servidor DLL en COM+ tambien creadas en VFP.

Saludos.
Hubert.
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:Ejemplo de Manto. con SQL

Publicado por Carlos Lara (31 intervenciones) el 13/03/2006 19:36:02
ya hice el otro ejemplo que me enviaron pero me marca el error de que los tipos no coinciden en los datos de fecha y campo memo, mi declaracion es la siguiente:

CREATE PROCEDURE sp_Insfuga
@FOLIO Character(6),
@FECHA Datetime(8),
@HORACAPT Character(8),
@CLIENTE Character(6),
@RECIBIO Character(4),
@HCAPT Character(8),
@FECCOM DateTIME(8),
@FECINIUSO DateTime(8),
@NVENTA Character(9) ,
@CAPTANQUE Character(6),
@OBSERVA Text(16),
@HRECRADIO Character(8),
@TRANSMITIO Character(4),
@HTRANSMITIO Character(8),
@COPIADOPOR Character(4),
@TIPOSOL Character(2),
@CONFIRMADO Character(4),
@HCONFIRMADO Character(8),
@CONFIRMA Character(4),
@HCONFIRMA Character(8)
AS
Begin tran
INSERT TBLfugas
SELECT
@FOLIO, @FECHA, @HORACAPT, @CLIENTE, @RECIBIO, @HCAPT, @FECCOM, @FECINIUSO,
@NVENTA, @CAPTANQUE, @OBSERVA, @HRECRADIO, @TRANSMITIO, @HTRANSMITIO, @COPIADOPOR,
@TIPOSOL, @CONFIRMADO, @HCONFIRMADO, @CONFIRMA, @HCONFIRMA
IF @@rowcount=0
Begin
Rollback tran
End
Commit tran
GO

y lamentablemente estoy trabajando visual fox 8.

gracias
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:Ejemplo de Manto. con SQL

Publicado por saul (362 intervenciones) el 14/03/2006 17:52:37
@FECHA_C DateTime,
@TASA Numeric(7,4),
@DESCRIP Character(50),
@NOTA Text,
@PROCESADO bit,

Asi se declara eso..

y lo del CursorAdaptar.. me interesa donde puedo conseguir mas informacion, ejemplos y todo eso..

Gracias..
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