Rodrigo:
Con Clipper 5.x no es posible acceder a ningun motor de base de datos SQL.
Tienes que cambiar tus aplicaciones para que funcionen con xHarbour.
xHarbour es un compilador de 32 bits Open Soruce 100% compatible con Clipper (www.xharbour.org)
xHarbour contiene entre sus componentes acceso nativo a OLE, a partir de ahi, tienes acceso a ADO (Activex DAta Objects) y por medio de ADO directamente a cualquier motor de base de datos SQL, yo lo hago asi para tablas de access, por ejemplo:
oConexion := TOleAuto():New("adodb.connection")
oConexion:Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=taller.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False")
WITH OBJECT oRecordSet := TOleAuto():New("adodb.recordset")
:LockType := adLockOptimistic
:CursorType := adOpenDynamic
:ActiveConnection(oConexion)
:Source := "Select * from Clientes"
:Open()
CLS
cClave := SPACE(5)
cContacto := SPACE(30)
cCargoContacto := SPACE(30)
SET COLOR TO W+/B
@ 1,1 SAY " Clave: " GET cClave
@ 2,1 SAY " Contacto: " GET cContacto
@ 3,1 SAY "Cargo Contacto: " GET cCargoContacto
READ
:AddNew()
:Fields("idCliente"):Value := cClave
:Fields("NombreContacto"):Value := cContacto
:Fields("CargoContacto"):Value := cCargoContacto
:Update()
Wait "Registro añadido"
:MoveFirst()
DO WHILE ! :Eof()
? :Fields(0):Value, :Fields("nombrecontacto"):Value
:MoveNext()
ENDDO
END
