FiveTech Software tech support forums

Para ingresar un registro en una Tabla SQL hago:

oRecordSet:Addnew()
oRecordSet:Fields("Bill_num"):value := alltrim(Var1)
oRecordSet:Update()

Para borrar:
oRecordSet:Delete()
oRecordSet:Requery()

Como seria para buscar la Variable xRFC ??
oRecordSet:Find( xRfc, If( lContinue, 1, 0 ) ) //Asi marca error

Gracias

Servicomver:

Con ADO puro



CLI_CLI es el campo en el recordset y nIrA es el número a localizar

Por el lContinue supongo que quieres que te muestre todos los iguales,
si es así debes utilizar FILTER

Saludos

Gracias, lo intentare asi, saludos

Generally when you use the oRs:Find ... you have to re-wind the record pointer to the top of the table .. oRs:MoveFirst(), then issue your oRs:Find... there is no need to issue a re-query if you are using the same recordset for your updates and deletions..

Rick Lipkin

Servicomver:

Ya entrados en gastos, te recomiendo que no uses la función oRs:AddNew() + oRs:Update(), mas adelante
te puedes encontrar con pequeños problemas, en su lugar utiliza los comandos INSERT INTO y UPDATE.

Saludos

Gracias por su ayuda, estoy iniciando con la programación con sql, una pregunta:
Lo que intento hacer es buscar en una tabla un Valor de una variable XRFC
Como obtengo el valor de la respuesta ?
Para saber si la encontró o no ?
Si mi variable es de 14 Caracteres y en la tabla de SQL tiene 255 tengo que hacer algun TRIM al campo SQL ?
Gracias, espero haberme explicado

Servicomver:

Como decía Jack el destripador, vamos por partes:

Primero, vamos a diferenciar entre Tabla y RecordSet, la tabla la tienes en el servidor
mientras que el recordset es una copia de la tabla que ya tienes en tu PC.

Para acceder a una tabla (Servidor) necesariamente tienes que usar el comando SELECT
mismo que te deja un RecordSet (copia) en tu PC, en el comando select puedes usar el
método WHERE para filtrar la tabla y que el recordset solo tenga el resultado del filtro.

Ahora si ya tienes el recordset, puedes usar las funciones oRsFind() o oRsFilter() pero
insisto es ya sobre el recordset.

Saludos

Armando, muchisimas gracias por tu tiempo, te mando lo que estoy tratando de hacer...(Si logré conectarme, añadir y eliminar datos )


oCone :=tOleAuto():new("ADODB.connection")
oCone:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"server=" + cServer + ;
";database=" + cDatabase + ;
";uid=" + cUser + ;
";port=" + cPort + ;
";pwd=" + cPass )
xRfc:="XAXX010101XXX"

If Empty(oCone)
MsgAlert(" No se pudo establecer la conexion con la Base de Datos..","Atencion")
Return(Nil)
Else
MsgAlert(" Se establecio la Conexion Con La Base De Datos..","Atencion")
oRecordSet := TOleAuto():New("adodb.recordset")
oRecordSet:ActiveConnection(oCone)
oRecordSet:Source := "Select * from clientes Order by RFC"
oRecordSet:CursorType := 1 // opendkeyset
oRecordSet:CursorLocation := 3 // local cache
oRecordSet:LockType := 3 // lockoportunistic
oRecordSet:Open()
oRecordSet:MoveFirst()
oRecordSet:Find("RFC = " + "'" + xRfc + "'" )
//Aqui es donde necesito saber si encontró xRfc o no
// y Luego tomar el valor encontrado (Nombre, Domicilio, etc)

Endif

Victor:

Ahí la llevas pero vas picando chueco, dame un correo y te envío algo.

Saludos

servicomver@hotmail.com

Te lo agradezco bastante

Safest way to delete and reposition on next record in the sorted order:


If you are browsing the recorset with XBrowse, then simply call

This takes care of all issues.

Armando wrote:Servicomver:

Ya entrados en gastos, te recomiendo que no uses la función oRs:AddNew() + oRs:Update(), mas adelante
te puedes encontrar con pequeños problemas, en su lugar utiliza los comandos INSERT INTO y UPDATE.

Saludos

I have been using ADO from the time it was released by Microsoft. Used with Oracle, MsSql, MySql, Access, Dbf, Foxpro, etc.
I never faced any issues with AddNew().
I can say that Update() and AddNew() methods are as robust as UPDATE and INSERT commands.
In addition, it is advisable to use Update() and AddNew() but not direct UPDATE / INSERT commands to avoid the need to Requery() everytime. Note: Requery() puts lot of strain on server and network traffic. Good programming practice is to avoid requery() unless essential.

One commonly used method is:

Better method is:

In this case we can use normal Harbour values.

Note: Always use these methods within TRY/CATCH.

Mr. Rao:

I mean with DB2 data base there are problems.

Regards

Hola que tal, Aprovechando esta consulta y aplicando los ejemplos del foro, a que se debe que teniendo:
nCuenta:=105874
oRs:Source := "Select * from ejemplo WHERE Socio = + '&nCuenta' Order by Socio"
nFind:=(oRs:RecordCount) //para saber si esta o no el numero de cuenta del socio

Asi me pone como resultado: 1 (si lo encuentra, ya que es código único)


Pero se tomo el dato de un campo de una base de datos SOCIOS ALIAS aSocios
nCuenta:=aSocios->Cuenta
oRs:Source := "Select * from ejemplo WHERE Socio = + '&nCuenta' Order by Socio"
nFind:=(oRs:RecordCount) //para saber si esta o no el numero de cuenta del socio
(Claro, seleccionando el mismo socio con número de cuenta: 105874)
El resultado es: 0 (no lo encuentra)
A que se debe ?