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