Compatibilidad sql server visual fox pro

Pues me urge saber como podría insertar y actualizar una base de datos creada en sql server desde visual fox pro...
Si se puede hacer, con cuales comando podría crear la conexión a sql server..

2 respuestas

Respuesta
1
Disculpa que te responda tarde tenia problemas con mi usuario primero tienes que realizar la conexión a través de ODBC o de las conexiones internas del VFP, segundo tienes que crear una Vista Remota, tienes que tomar en cuenta que cuando vallas a realizar la conexión a odbc la base de datos al abrirla en el proyecto tienes que abrirla con el comando al final de la sentencia con Shared, después tienes que verificar que la clave principal o el Field Keys se haga actualizable igual que la vista, los comando son los Siguientes DBSETPROP() para ser actualizable los datos de la llave principal, CURSORSETPROP() para abrir la vista remota en modo buffering ya sea en modo tabla o registro optimista... la información es algo larga si quieres mandame tu correo y te lo mando mejor...
Te remito un pequeño código para realizar las actualizaciones a través de código...
En el Procedimiento INIT del Form ejecuta las siguientes lineas
set talk off
set echo off
set bell off
Set Date To french
Set Dele On
Set Multilocks On &&Habilita el Buffer de memoria.
CURSORSETPROP("Buffering", Nº, "NombredeTabla o Vista")
OPEN DATABASE Path o Ruta Shared
DBSETPROP('visFamiliares','View','SendUpdates',.T.) Este comando tiene que colocarlo para hacer la vista Actualizable
Nº = Depende de el modo de cursor que desees en El Buffer en Memoria
3 = Modo Registro Optimista
5= Modo Tabla Optimista
Son los más utilizados
y para guardar tienes que realizar lo siguiente y depende de que modo lo hagas
Replace NombreVista o Tabla.Campo with Campo en el Form
tableupdate(.t.)
Recuerda que la base de Datos tiene que deshabilitar en el Menu Opciones la Opción de Abrir la Base de Datos en Modo Exclusivo o Programarlo en el Init del Form
Set Exclusive Off
Cualquier Cosa me Avisas este mi correo te habilite en el Messenger para cualquier duda
Respuesta

Una alternativa es conectarte primeramente a la base de datos mediante esta consulta en el init de tu formulario..

PUBLIC cnRam
cnRam=SQLCONNECT('sisvent','sa','12345',.t.)

seguido en tu evento click de tu boton guardar le cargas esto

PRIVATE xv1,xv2,xv3,xv4,xv5
xv1=this.Parent.txtnombre.Value
xv2=this.Parent.txtruc.Value
xv3=this.Parent.txtci.Value
xv4=this.Parent.txttelefono.Value
xv5=this.Parent.txtdireccion.Value

xr=SQLEXEC(cnRam,'insert into cliente(nombre_razon_social,ruc,ci,telefono,direccion) values(?xv1,?xv2,?xv3,?xv4,?xv5)')
IF xr<0
=MESSAGEBOX('no se posible...',16,'Error:')
ELSE
=MESSAGEBOX('Cliente Registrado !',70,'Mensaje:')
=MESSAGEBOX("Cliente Registrado correctamente.",64+0,"Información")
*!* *Actualizar Grid*
*!* PUBLIC cnRam
*!* cnRam=SQLCONNECT('sisvent','sa','12345',.t.)
*!* sqlconsulta=("select * from usuarios where iduser > 0" )
*!* SQLEXEC(cnRam ,sqlconsulta,'cu')
*!* *thisform.grdGusuarios.RecordSource='cu'
*!* thisform.grid1.RecordSource='cu'

*Limpiar form

this.Parent.txtnombre.Value=''
this.Parent.txtci.Value=''
this.Parent.txtruc.Value=''
this.Parent.txttelefono.Value=''
this.Parent.txtdireccion.Value=''
ENDIF

PRIVATE xv1,xv2,xv3,xv4,xv5
xv1=this.Parent.txtnombre.Value
xv2=this.Parent.txtruc.Value
xv3=this.Parent.txtci.Value
xv4=this.Parent.txttelefono.Value
xv5=this.Parent.txtdireccion.Value

xr=SQLEXEC(cnRam,'insert into cliente(nombre_razon_social,ruc,ci,telefono,direccion) values(?xv1,?xv2,?xv3,?xv4,?xv5)')
IF xr<0
=MESSAGEBOX('no se posible...',16,'Error:')
ELSE
=MESSAGEBOX('Cliente Registrado !',70,'Mensaje:')
=MESSAGEBOX("Cliente Registrado correctamente.",64+0,"Información")

*Limpiar casillas del  form

this.Parent.txtnombre.Value=''
this.Parent.txtci.Value=''
this.Parent.txtruc.Value=''
this.Parent.txttelefono.Value=''
this.Parent.txtdireccion.Value=''
ENDIF

Eh copiado accidental mente 2 veces el código chaval.. ya te darás cuenta al copiar ..

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buffer

Trabajo actualmente de esta forma: se le 1 use maestro se le 2 Use detalle Es así como abro mis tabla (tablas libres), y luego en las diferentes rutinas solo invoco se le 1 o sele2 o el se le que necesito. Me aconsejan que trabaje con buffer,...
2 respuestas

Page frames y setfocus visual foxpro

Espero que te encuentre bien, la pregunta es: tengo un page frame con 9 pages Todo funciona Pero al usar el comando setfocus para pasar de una page del 2 al 3 y ubicarme dentro de un edit... No establece ese foco (al edit del page 2) sino que sale...
1 respuesta

Config.fpw

¿Cómo se crea un archivo config. Fpw en foxpro 9.0...? Estoy tratando de realizar un ejecutable y me dicen que coloque un código en este archivo pero ni siquiera se que es eso...
2 respuestas

Visual Foxpro + MySQL

Siempre trabaje con Visual FoxPro y DBF Libres, a la hora de grabar sobre mis tablas solo hacia un go bottom y obtenía el ultimo registro +1 y grababa la información. Después cree una tabla de parámetros para lo que era la facturación (Facturas,...
2 respuestas

Denegado el acceso

Tengo una aplicación compartida y a veces al abrir la aplicación desde algunos terminales me sale el error DENEGADO EL ACCESO AL ARCHIVO. Lo más extraño es que las tablas se abren todas compartidas, ademas en el momento del error ninguna tabla ha...
1 respuesta

No se puede actualizar el objeto cursor

No se puede actualizar el objeto cursor Tengo un problema en actualizar un cursor, me sale : NO SE PUEDE ACTUALIZAR EL OBJETO CURSOR Para que me ayuden les doy más datos: Tengo 2 formularios 1principal 2SELE_DETALLES El form 1PRINCIPAL, crea el...
9 respuestas

Acceso a base de datos compartida

Disculpa, porque muchas veces cuando abrimos una base de datos con shared para que sea compartida sale, ¿Acceso denegado a la base de datos dbc? Después cambiando o quizás volviendo a poner lo mismo ese error desaparece y se ejecuta bien.. ¿Cuál es...
1 respuesta

Realizar Copias de Seguridad en Vfp 9.0

Estoy Utilizando el Comando copy file para realizar una copia de seguidad de mi base de datos, dbf, cdx, etc... Pero al realizar la copia me dice El archivo ya está en uso... Y es que están trabajando en Red en otros computadores... En el programa o...
1 respuesta

Problemas con SQLEXEC

Estimado Amigo DavSoft gracias a tu ayuda ya hice que Sql server y Vfp puedan comunicar a través de ODBC pero quiero explicarte como lo estoy trabajando y le me digas si esta bien. 1. En Sql Server ya esta exportada mi Base de datos y tablas con su...
2 respuestas

No mostrar registros marcados

Tengo una tabla y marco algunos registros con delete y en un formulario veo el contenido de los registros, pero no deseo ver los que están marcados, ¿Cómo le hago?
1 respuesta