Update Masivo...

[[BlueSteel]]

Hola amigos

tanto tiempo...

estaba modificando unas sentencias de un programa, en donde tengo una serie de registros... (aprox.. 50).. que cumplen una condición.. una vez que se procesan tengo k cambiar el estado.. por lo cual quiero hacer un update masivo.. si realizo la consulta sql desde SQL Server 2000 me funciona bien.. pero al traspasarla desde el delphi.. no me pesca... que podra hacer

miren las consutlas que estoy haciendo

la siguiente consulta realiza un filtro de los registros... que esten con el estado 'OK'... esto lo realiza bien.

Código Delphi [-]
     Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add('Select * From Personal, Proceso');
Datos.AQ_Select.SQL.Add('Where (Personal.Per_Nro=Proceso.Per_Nro) And (Proceso.Pro_Tipo=:Var1)');
Datos.AQ_Select.SQL.Add('And (Proceso.Pro_Fecha=:Var2) And (Proceso.Pro_Internet=:Var3)');
Datos.AQ_Select.SQL.Add('Order By Personal.Per_Rut');
Datos.AQ_Select.Parameters[0].Value := Copy(Proceso.Text,1,1);
Datos.AQ_Select.Parameters[1].Value := Concat(FormatDateTime('mm',Fecha.Date),'-',FormatDateTime('yyyy', Fecha.Date));
Datos.AQ_Select.Parameters[2].Value := 'OK';
Datos.AQ_Select.Open;

despues realizo una consuta que debe actualizar el estado de 'OK' a 'PR'.. lo ejecuta pero no se actualizan los datos en la tabla...

Código Delphi [-]
 
Datos.AQ_Edit.Close;
Datos.AQ_Edit.SQL.Clear;
Datos.AQ_Edit.SQL.Add('Update Proceso Set Pro_Internet=:Var4');
Datos.AQ_Edit.SQL.Add('Where Pro_Tipo=:Var1 And Pro_Fecha=:Var2 And Pro_Internet=:Var3');
Datos.AQ_Edit.Parameters[0].Value := Copy(Proceso.Text,1,1);
Datos.AQ_Edit.Parameters[1].Value := Concat(FormatDateTime('mm',Fecha.Date),'-',FormatDateTime('yyyy', Fecha.Date));
Datos.AQ_Edit.Parameters[2].Value := 'OK';
Datos.AQ_Edit.Parameters[3].Value := 'PR';
Datos.AQ_Edit.ExecSQL;

que podra ser... igual le seguire dando bueltas...

[pcicom]

Porque mejor no intentas crear tu instruccion SQL concatenada, es mas simple sin tando show...

Código Delphi [-]
     

cSql := 'SELECT * FROM Personal, Proceso WHERE ';
cSql := cSql + ' Personasl.Per_Nro=Proceso.Per_Nro AND Proceso.Pro_Tipo='+QuotedStr(cVar1)+'  AND ';
cSql := cSql + ' Proceso.Pro_Fecha='+sqldma(cVar2) + ' AND ';
cSql := cSql + ' Proceso.Pro_Internet='+QuotedStr(cVar3) ;
cSql := cSql + ' Order By Personal.Per_Rut';


Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add(cSql);
Datos.AQ_Select.open;

ACTUALIZACION

Código Delphi [-]
 

cSql := 'UPDATE Proceso  Set Pro_Internet='+QuotedStr('PR');
cSql := cSql + ' WHERE Pro_Tipo='+QuotedStr(cVar1)+'  AND ';
cSql := cSql + ' Pro_Fecha='+sqldma(cVar2) + ' AND ';
cSql := cSql + ' Pro_Internet='+QuotedStr('OK');


Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add(cSql);
Datos.AQ_Select.ExecSQL;

De esta Manera es mas FACIL detectar ERRORES de los comandos SQL..

PUEDES desplegar la variable cSQL y o grabarla en el CLIPBOARD, y probarla con el DBADMIN de tu preferencia...

[[Lepe]]

Yo dejaría las sqls con parámetros, son más fiables.

No uses Parameters[0] porque estas dando valores a un parámetro equivocado. Usa Parameters.Parambyname('Var4').Value := lo que sea.

Saludos

[[Lepe]]

Completo un poquito más por si no me expliqué bien, En el Update:
- El parámetro de fechas, se lo estas dando a Pro_tipo.
- A Pro_fechas le estas pasando 'OK'.

Saludos

[[BlueSteel]]

Empezado por pcicom

Porque mejor no intentas crear tu instruccion SQL concatenada, es mas simple sin tando show...

...De esta Manera es mas FACIL detectar ERRORES de los comandos SQL..

PUEDES desplegar la variable cSQL y o grabarla en el CLIPBOARD, y probarla con el DBADMIN de tu preferencia...

Hola.. en realidad mi error no pasa por eso.. la consulta ya la he probado en el editor de consultas del SQL Server 2000 y me lo procesa bien...

el problema pasa que desde delphi no realiza el cambio que yo quiero....

[[BlueSteel]]

Gracias Lepe...

Empezado por Lepe

Completo un poquito más por si no me expliqué bien, En el Update:
- El parámetro de fechas, se lo estas dando a Pro_tipo.
- A Pro_fechas le estas pasando 'OK'.

Saludos

bueno.. realice el cambio que mencionas.. pero sigue igual... no me actualiza el dato...seguire intentanto

[[Lepe]]

El cambio lo tiene que hacer por fuerza si realmente existe registros.

Haz la prueba desde delphi, pero en lugar de un Update, que sea un Select con el mismo where, y ves si retorna registros en un grid. De esta forma te aseguras que no es fallo de parámetros, o de que no existan registros (bien por mayúsculas /minúsculas y campos de fechas).

Al usar Parameters(....).Value quizás tengas previamente que configurar ese parámetro, para decirle de qué tipo es:

Código Delphi [-]
Datos.AQ_Select.Parameters[0].Datatype := (integer, float, string) // revisa la ayuda de Datatype.
Datos.AQ_Select.Parameters[0].Value := Copy(Proceso.Text,1,1);

Ya me quedo sin ideas

Saludos

[ozsWizzard]

Supongo que es una chorrada lo que voy a decir pero por si acaso.

No sé si lo estás metiendo en una transacción o no pero si lo estás haciendo asegúrate de que al final haces commit.

[[BlueSteel]]

Empezado por Lepe

El cambio lo tiene que hacer por fuerza si realmente existe registros.

Haz la prueba desde delphi, pero en lugar de un Update, que sea un Select con el mismo where, y ves si retorna registros en un grid. De esta forma te aseguras que no es fallo de parámetros, o de que no existan registros (bien por mayúsculas /minúsculas y campos de fechas).

Al usar Parameters(....).Value quizás tengas previamente que configurar ese parámetro, para decirle de qué tipo es:

Ya me quedo sin ideas Saludos

Hola Lepe..

en realidad.. la sentencia ya esta más que probada con un select...

Tengo 2 Query's...

uno llamado AQ_Select y otro llamado AQ_Edit

en la AQ_Select, realizo el mismo filtro (y el resultado los devuelvo en un DBStringGrid...

entonces la sentencia (con las variables y todo.. funciona bien)...

a ese resultado (que ya esta en un DBStringGrid,,, tengo que cambiarle el estado de 'PR' a 'OK'

por lo tanto ejecuto la misma sentencia que la anterior, obviamente cambiando el Select por Update más el valor que debe establecer... pero no pasa nada

y la sentencia la he ejecutado en el SQL Server y si me la acepta... ese es el problema...

[[BlueSteel]]

Hola amigos

saben,,, estaba pensando como solucionar mi problema... y se me ocurrio que podria hacer un Procedimiento almacenado... (ya que en el SQL si funciona)...

y ese procedimiento llamarlo desde delphi.. y ejecutarlo

crearé un procedimiento.. y les cuento como me va... salu2