FiveTech Software tech support forums

Maestro Antonio Lo del puerto numérico eso lo se al hacer un copiar pegar quedó, y ese no es el punto a tratar sino que quiero que al realizar oConexion := mysql_Connect( { "localhost", "rovigo", "root", "1223", 3306 } ) si no consigue la base de datos ...

... provide the latest revised libs. Bug-reports will be attended on top priority. 1) oRcs:Clone(),oRcs:Open() y oRcs:Close() uso directamente oRcs := oConexion:Query("") trabaja perfecto Release version: a) There is no Open() method. Suggested: oRs := oCn:RowSet( cSql/TableName ) or oRs ...

... fivewin 16.05 Experiencia con tMySql nuevo y comparando con ADO Para un oRcs 1) oRcs:Clone(),oRcs:Open() y oRcs:Close() uso directamente oRcs := oConexion:Query("") trabaja perfecto 2) oRcs:Update() uso oRcs:Save() trabaja bien, sin embargo cada tabla debe tener un indice principal ...

... oCmd:CommandText :="select count(*) from exi_suc WHERE sto_ok='"+"1'" oCmd:CommandType :=adCmdText oCmd:ActiveConnection:=oConexion oRsCmd:=oCmd:Execute() nCount:=oRsCmd:Fields( 0 ):value cExi_Suc:= tOleAuto():New("ADODB.Recordset") cExi_Suc:CursorLocation(3) ...

Gracias por tu respuesta

Como obtengo el oConexion, significa que antes debería abrir una conexion con ADO? y a que servidor? o solo defino como local "oConexion"?

Gracias por los comentarios

... cImpresora:Open("SELECT * FROM impresora WHERE ma_codi='"+ AllTrim(cPuerto)+ "' ORDER BY ma_codi", oConexion, 1, 3) If (cImpresora:RecordCount) # 0 cPrn:=AllTrim(ADOField(cImpresora,"ma_desc")) Endif ADO Close cImpresora oPrn:=PrintBegin("Impresión ...

ok, revisando, efectivamente, tiene un metodo ping pero ocurre lo siguiente: cuando la oconexion esta ok y se llama a ping, este toma unos pocos segundos. pero si la conexión esta caída, la primera llamada a ping toma su buen tiempo, congelando la aplicacion. aun cuando ...

Hola, Usando MySQL con ADO via ODBC y Fivewin no puedo recuperar más de 1969 registros (añadiendo LIMIT 1969). Si hago oRs := FW_OpenRecordSet( oConexion, "select * from mitabla"), en el oRs objeto obtengo: 0 IAccessor VERDADERO 1 IChapteredRowset VERDADERO 2 IColumnsInfo VERDADERO 3 ...

... MySQL over ADO via ODBC and Fivewin functions I can´t retrieve more tan 1969 records (adding LIMIT 1969). If I issue oRs := FW_OpenRecordSet( oConexion, "select * from mytable"), I get in the oRs object: 0 IAccessor VERDADERO 1 IChapteredRowset VERDADERO 2 IColumnsInfo VERDADERO ...

... la cadena de conexión (cConexion) según la base de datos (MySql, Oracle,Postgres, etc). También tienes la conexión al recordset FW_OpenRecordSet(oConexion, cSQL, Bloqueo) En modo sencillo esta sería una forma de abrir la conexión con la base de MySql en modo local Local cServer := "localhost" ...

... cMa_Func:CursorLocation(3) cMa_Func:Open("SELECT * FROM ma_func WHERE ma_clave='"+ AllTrim(cCodVend) +"' ORDER BY ma_clave", oConexion, 1, 3) //el 2 := cursor dinámico If (cMa_Func:RecordCount) == 0 cNomVend:="No Existe Funcionario" Else cNomVend:=ADOField(cMa_Func,"ma_nomf") ...

... en una clase y trato de utilizar un update o insert desde otra clase no me funciona. antes de hacer el update y el insert miro si el objeto oConexion es del tipo TCONEXION y si lo es. que puede estar pasando? gracias.

... MyConeccion(xConnStr)} ) la funcion: FUNCTION MyConeccion(xConnStr) *------------------------- Local oError,lRet:=.t. Local cCtes,ccProv oConexion := tOleAuto():New("ADODB.Connection") oADOStream := TOLEAUTO():New("ADODB.Stream") oADOCatalog:= TOLEAUTO():New("ADOX.Catalog") ...

... oProducto:CursorLocation:= adUseClient oProducto:Open("SELECT * FROM b_art WHERE cod_art = "+ Alltrim(cArticulo), oConexion,CursorType,LockType) if (oProducto:RecordCount)==0 Msginfo("Existe") Else MsgInfo("No Existe") Endif Return estoy haciendo ...

don Luis el Programa q le envie hace eso FUNCTION CreaTablas(oConexion) *------------------------------ oConexion:Execute("CREATE TABLE IF NOT EXISTS clientes ( " + ; //Verifica si no existe se crea o si no "codigo varchar(13) NOT NULL ," ...