Hola a todos llevaba tiempo que no entraba en el forum, ya que el programa funcionaba de maravilla, con acceso a mysql mediante ado, pero ahora nos han cambiado la base de datos por sql server, y me estoy volviendo loco me da error en el recordset, os paso como lo hago a ver si a alguien se le ocurre el porqu茅:
oApp:oCon:ConnectionString:= "Provider=SQLOLEDB;Password=xxxx3;Persist Security Info=True;User ID=XXXX;Initial Catalog=ERP6_base;Data Source=185.80.87.6\SQLEXPRESS2019"
TRY
oApp:oCon:Open()
CATCH oError
MsgInfo("No se pudo lograr la conexi贸n"+OAPP:OCON:CONNECTIONsTRING,oApp:cAplicacion)
ShowError(oError)
RETURN(.F.)
END
aqui me llega osea que abre la conexi贸n sin problema
// ahora procedo a abrir el recorset
TRY
orsPed := TOleAuto():New("adodb.recordset")
// orsPed:= CreateObject("ADODB.Recordset")
CATCH oError
MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion)
ShowError(oError)
orsPed := NIL
lret:=.f.
CLOSE_DBF(ODTEMP)
RETURN(lret)
END
orsPed:CursorLocation := adUseClient
orsPed:LockType := adLockOptimistic
orsPed:CursorType := adOpenDynamic
orsped:source:="SELECT * FROM ERP6_base" // ENVIAMOS QUERY DE PRUEBA PARA COMPROBAR CONEXI脫N
orsPed:ActiveConnection( oApp:oCon )
TRY
orsped:open()
CATCH oError
MsgStop( "No se ha podido abrir el RECORDSET de Pedido 386s !", oApp:cAplicacion)
ShowError(oError)
CLOSE_DBF(ODTEMP)
RETURN(.F.)
END
Y AQU脥 ME DICE ERROR 1001 OPEN() UNKNOW -----
He cambiado la forma de conectar varias veces, atacando directamente al DSN siempre conecta pero cuando le paso el open del recorset es cuando me da error que puede pasar.
uso FW709 con xharbour - no puedo cambiar de versi贸n ya que todo lo dem谩s funciona a la perfecci贸n.
gracias por vuestra colaboraci贸n