Autor Tema: Datawindows Seleccion (Leído 5993 veces)

jorge2007 · « **en:** Miércoles 20 de Junio de 2007, 22:08 »

Hola como estan necesito que me ayuden necesito pasar todos los datos ingresados en dw_1 a dw_2 .
y luego de copiar todo el dw_1 limpiarlos para seguir ingresando datos.

Muchas gracias por su ayuda.

Jorge.

Jhois

Hola, talvés intentaste con un for next? para co piar los datos?

no sé si te pueda ayudar esto, no sé si haya otra manera más corta, pero pon primero variables a cada columna

Código: Text

 
string nombre, apellido, ciudad
decimal sueldo
long nRow
 
nRow=dw_1.rowcount()
 
for i=1 to nRow
nombre = dw_1.getitemstring(i, &#34;nombre&#34;)
dw_2.setitem(i,&#34;nombre1&#34;,nombre)
 
apellido = dw_1.getitemstring(i, &#34;apellido&#34;)
dw_2.setitem(i,&#34;apellido1&#34;,apellido)
 
ciudad = dw_1.getitemstring(i, &#34;ciudad&#34;)
dw_2.setitem(i,&#34;ciudad1&#34;,ciudad)
 
sueldo = dw_1.getitemdecimal(i, &#34;sueldo&#34;)
dw_2.setitem(i,&#34;sueldo1&#34;,sueldo)
next
 
//borro todas las filas de 'dw_1'
 
for i=0 to nRow
   dw_1.deleteRow(i)
next  
 
// ACTUALIZO TODAS LAS TABLAS
 
//actualizamos dw_1
dw_1.SetTransObject(SQLCA)
dw_1.update()
commit;
 
//actualizamos dw_2
dw_2.SetTransObject(SQLCA)
dw_2.update()
commit;
 
//actualizar listas
close(w_cliente)
open(w_cliente)
 
 

Prueba, y me dices si así te funciona. Talvés haya otra manera..

Hazmela saber

achafio

Long ll_fila
for i=1 to dw_1.RowCount()
ll_fila = dw_2.InsertRow(0)
dw_2.SetItem(ll_fila,"campo_1",dw_1.GetItemString(i,"campo_1")
dw_2.SetItem(ll_fila,"campo_2",dw_1.GetItemString(i,"campo_2")
dw_2.SetItem(ll_fila,"campo_3",dw_1.GetItemString(i,"campo_3")
next

dw_1.RowsMove(1, dw_1.DeletedCount(), Delete!,dw_1, 1, Primary!)

Con eso es suficiente, espero te sirva.

F_Tanori

Tambien puedes usar RowsCopy

http://manuals.sybase.com/onlinebooks/grou...3015;pt=63898/*

y para 'limpiar' puedes usar

Reset

Código: Text

dw.reset()
 

Saludos

Jhois

Hola, talvés aquí me haga caso F-Tanori o alguien que sepa...

Me puedes responder a mi pregunta?

Cómo inserto una fila entre filas de una tabla que ya está llena?

Por favor... Sí hay cómo pero no sé cómo!

Gracias

F_Tanori

Hola tengo una pregunta para ti, la tabla que estas actualizando tiene un campo autonumerico?

Saludos

Jhois

Hola F-Tanori!!

Bueno pues, no. Lo único que tengo son campos correspondientes a un libro diario..

Es decir, fecha(texto), detalle(texto), debe(decimal) y haber(decimal).

Y no me deja ingresar!!!

gracias

F_Tanori

Hola

(

)

¿que version PB estas utilizando?

¿que base de datos estas utilizando?

¿que tipo de conexion estas utilizando?

¿Puedes colocar tu codigo, y la estructura de tu tabla?

Saludos

Jhois

Hola

Citar

¿que version PB estas utilizando?

Bueno, yo abri una discusión explicandole a ud, casi todo, incluso le envié un mail, no se me regreso, pero no sé si le llegaría. Bueno, utilizo PB 9.0 Build 5507

Citar

¿que base de datos estas utilizando?

Bueno ahora sólo estoy utilizando Access, porque es un programa de prueba, pero luego utilizaré SQL

Citar

¿que tipo de conexion estas utilizando?

La default para access, talvés te refieras a eso

Citar

¿Puedes colocar tu codigo, y la estructura de tu tabla?

Bueno en un botón que se llama insertar estoy poniendo esto:

Código: Text

 
Integer i
 
//controlo que exista registros
if dw_libro.RowCount()=0 then return
 
if dw_libro.enabled = true  then
// confirmo
if messagebox(&#34;Insertar&#34;,&#34;Desea insertar comentario sobre la fila &#34; + String(dw_libro.GetRow()) + &#34; del libro diario?&#34;,question!, YesNo!,1)=2 then return
// inserto 
gb_comen.visible=true
cb_3.visible=true
em_comen.visible=true
em_comen.setfocus( )
else
  return
end if
 
 

entonces se me habilita un cuadro de texto para escribir un comentario, y al hacer clic en otro boton ingresar:

Código: Text

 
long nrow,rowss
decimal valor
valor = 0
 
rowss = dw_libro.find(&#34;detalles=''&#34;,1,dw_libro.RowCount())  
  nRow=dw_libro.insertrow(dw_libro.GetRow())
  dw_libro.setitem(nRow, &#34;Detalles&#34;, em_comen.text)
  dw_libro.setitem(nRow, &#34;debe&#34;, valor)
  dw_libro.setitem(nRow, &#34;haber&#34;, valor)
  gb_comen.visible=false
  cb_3.visible=false
  em_comen.visible=false
 
 

ahi se me inserta en donde quiero, pero al grabar:

Código: Text

 
Integer i
 
//controlo que exista registros
if dw_libro.RowCount()=0 then return
 
if dw_libro.enabled = true  then
// confirmo
if messagebox(&#34;Grabar&#34;,&#34;Desea grabar con este comentario?&#34;,question!, YesNo!,1)=2 then
  close(w_libro_diario)
  open(w_libro_diario)
  return
else 
//actualizo
dw_libro.settransobject(sqlca)
dw_libro.update()
 
//actualizo listas
close(w_libro_diario)
open(w_libro_diario)
end if
end if
 
 

se me ubica al final de la tabla, y no quiero eso, quiero que se me quede ahi...

como dije, la fecha y detalles es tipo texto, debe y haber como double...
no se, estoy aprendiendo aun, pero no puedo insertar...Ayudame

Saludos

F_Tanori

Cita de: "Jhois"

Hola

Citar
¿que version PB estas utilizando?

Bueno, yo abri una discusión explicandole a ud, casi todo, incluso le envié un mail, no se me regreso, pero no sé si le llegaría. Bueno, utilizo PB 9.0 Build 5507

, no se a que te refieres, yo no recibi ningun correo, estoy seguro que ese es el motivo del porque no recibiste respuesta

por lo del problema pues, resulta bastante logico, lo que hace el dw es insertar un nuevo registro visualmente esta en la posicion que tu lo indicas pero al ejecutar el metodo update() como es un nuevo registro pues no hace un UPDATE sino un INSERT y lo hace pues donde debe de ir al final de la tabla

tendrias que "mover" todos los registros que deban quedar debajo del nuevo lo cual serian muchas transacciones pues yo nunca he visto una instruccion para Insertar en determinada posicion de la tabla

mi sugerencia seria lo siguiente crear un campo para dar el orden de las filas

ejemplo

en access creando el campo orden que servira para establecer la prioridad y posicion en el DW

Citar

fecha, debe,haber,orden

y el dw lo ordenas asc por el campo orden para que el retrieve te los traiga ordenados

a la hora de insertar un nuevo registro reenumeras las filas para que te actualice el campo orden

espero haberme explicado

Saludos

Jhois

Hola, sabes que muchas gracias, no lo había pensado de esa manera...

Lo voy a hacer ahora, y cualquier cosa te aviso, yo sé que sí vale porque en otros tabla si reenumero, pero no me lo imaginé hacer en esta tabla, la verdad.

Muchas gracias...

Eres joven y sabes mucho, te felicito....

Ojalá te pueda seguir pidiendo ayuda...

Espero no molestarte mucho, talvés son tontería y pequeñeces,

pero no se me ocurren... GRacias otra vez..

Quiero aprender muchas más cosas...

Cuidate y chau

Jhois

SoloCodigo