Dim
connstr As
String
= "provider=VFPOLEDB.1;"_

       
"data source='c:Archivos de
programa"_

       
"Microsoft Visual FoxPro 7SamplesTastrade"_

       
"Data astrade.dbc';password='';user
id=''"

Dim
conn As
New
System.Data.OleDb.OleDbConnection

conn.ConnectionString =
connstr

Dim
cmd As
New
System.Data.OleDb.OleDbCommand


cmd.CommandType = CommandType.Text

cmd.CommandText = "UPDATE customer SET company_name
= ?,"_

                   
" contact_name = ?, contact_title = ?
"_

                   
" WHERE customer_id = [ALFKI]"

cmd.Connection = conn

Dim
p1 As
New
System.Data.OleDb.OleDbParameter


p1.Value = "VFP"

cmd.Parameters.Add(p1)

Dim
p2 As
New
System.Data.OleDb.OleDbParameter


p2.Value = "OLEDB"

cmd.Parameters.Add(p2)

Dim
tally As

Integer

Try


    conn.Open()

    tally = cmd.ExecuteNonQuery()

    conn.Close()


Catch
ex As
Exception

    Debug.Write(ex.Message)


End

Try

MsgBox(tally)

oZip = CreateObject("WScript.Shell")
oZip.Run("Winzip -a -r -p -ex c:\archivo.zip c:\Dir_a_Comprimir\*.*", 0,.T.)

Release oZip
oZip = Null

Puede probarlo desde el analizador de consultas de SQL Server

Ejemplo utilizando tablas libres de VFP

sp_addlinkedserver @server = "VFPoledbDbf",
   @srvproduct = "VFP",

   @provider = "VFPOLEDB.1",
   @datasrc = "C:RutaTablas"

GO
SELECT * FROM VFPoledbDbf...products

GO
sp_dropserver @server = "VFPoledbDbf"
GO

Ejemplo utilizando tablas contenidas en una Base de datos de VFP

sp_addlinkedserver @server = "VFPoledbDBC2,
   @srvproduct = "VFP",
   @provider = "VFPOLEDB.1",
   @datasrc = "C:RutaTablas estdata.dbc"

GO
SELECT * FROM
VFPoledbDBC...Products
GO
sp_dropserver @server = "VFPoledbDBC"
GO
 


 



 

Esta
API también nos permite configurar como deseamos que sea la actualización del
formulario y sus objetos

#DEFINE
RDW_INVALIDATE 0x0001

#DEFINE
RDW_INTERNALPAINT 0x0002

#DEFINE
RDW_ERASE 0x0004

#DEFINE
RDW_VALIDATE 0x0008

#DEFINE
RDW_NOINTERNALPAINT 0x0010

#DEFINE
RDW_NOERASE 0x0020

#DEFINE
RDW_NOCHILDREN 0x0040

#DEFINE
RDW_ALLCHILDREN 0x0080

#DEFINE
RDW_UPDATENOW 0x0100

#DEFINE
RDW_ERASENOW 0x0200

#DEFINE
RDW_FRAME 0x0400

#DEFINE
RDW_NOFRAME 0x0800

 


DECLARE INTEGER RedrawWindow
IN
WIN32API ;

   
INTEGER hWnd,
INTEGER
nUpdateRect, ;

   
INTEGER
nUpdateRegion,
INTEGER
nFlags

RedrawWindow(Thisform.HWnd,0,0,RDW_INTERNALPAINT + RDW_UPDATENOW)