Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-05-2004
JLedian JLedian is offline
Registrado
 
Registrado: may 2004
Posts: 2
Poder: 0
JLedian Va por buen camino
Unhappy Copiar registro

Hola
Ante mano darles las grasias por disponer de su tiempo para tratar de aclararme la duda. De veras que les estaré muy agradecido.
Les explico ... tengo una tabla en acces con los sgtes campos( Usuario, Clave, a, b, c) todos de tipo cadena; donde a, b, c son accesos que le doy al usuario y lo que necesito es a la hora de registrar un nuevo usuario tener la opcion de duplicar los accesos de otro usuario, digamos por ejemplo que estoy registrando al Usuario jose y quiero darle los mismos accesos que tiene uno ya registrado llamado josé.

procedure TDuplicarForm.FormShow(Sender: TObject);
var
i : integer;
begin
TRY
DM.ADOTblAcc.Open;
for i :=1 to (DM.ADOTblAcc.RecordCount) do
begin
ComboBox1.Items.Add(DM.ADOTblAccUsuario.AsString);
DM.ADOTblAcc.Next;
end;
FINALLY
DM.ADOTblAcc.Close;
END;
end;

procedure TDuplicarForm.Button1Click(Sender: TObject);
begin
{a qui es donde trato de hacer lo que antes les explique per no lo llego a conseguir}
DM.ADOTblAcc.Open;
If DM.ADOTblAcc.Locate('Usuario',ComboBox1.Text,[loCaseInsensitive]) then
begin
DM.ADOTblAcc.Append;
DM.ADOTblAccUsuario.AsString := UsuariosForm.Edit1.Text;
DM.ADOTblAccClave.AsString := UsuariosForm.Edit2.Text;
DM.ADOTblAcca.AsString := DM.ADOTblAcca.AsString;
DM.ADOTblAccb.AsString := DM.ADOTblAccb.AsString;
DM.ADOTblAccc.AsString := DM.ADOTblAccc.AsString;
DM.ADOTblAcc.Post;
end;
end;

Pero a desir verdad no es lo que consivo. me da un error ..
Bueno miles de grasias ...
Ledian
Responder Con Cita
  #2  
Antiguo 11-05-2004
santana santana is offline
No confirmado
 
Registrado: nov 2003
Posts: 1.030
Poder: 0
santana cantidad desconocida en este momento
Hola, JLedian.

¿Cual es el error que te da?

Y por otra parte....

Te estaría particularmente agredecida si dispusieras de unos minutos para leer la guía de estilo de los foros. Y tampoco estaría de más que utilizaras las etiquetas
Código Delphi [-]
...
para mostrar correctamente el código y hacerlo más legible.

Gracias y un saludo.
Responder Con Cita
  #3  
Antiguo 11-05-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
JLedian

Te doy la bienvenida a los foros y te recomiendo algunas cosas para que saques el mayor provecho posible de ellos:

1. Lee la guía de estilo (enlace en la pate superior derecha)
2. Utiliza la etiqueta [ delphi ] para presentar tu código correctamente indentado y coloreado. (Ver aviso que aparece al principio de cada foro)
3. Coloca tus mensajes en los foros apropiados (éste corresponde más al de "Conexión con bases de datos")
4. Sé claro en la exposición de tu problema. Decir simplemente "me da un error" no ayudará a quienes puedan ayudarte. Describe el error con precisión así como lo que esperas. Algo como "a desir verdad no es lo que consivo" no nos ayuda a saber en qué puede consistir e problema.

// Saludos
Responder Con Cita
  #4  
Antiguo 11-05-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 28
jachguate Va por buen camino
Hola JLedian.

en primer lugar bienvenido a los foros. Te recomiendo la lectura de la guia de estilo (vínculo en mi firma) y que aprendas el uso de las etiquetas [ code ] [ delphi ] y [ sql ] para publicar trozos de código correctamente indentados y hasta con la sintaxis resaltada.

Podes editar tu post para conseguir este efecto con los trozos ya publicados, con lo que es mas probable que obtengas respuesta a tus preguntas, pues regularmente los trozos de código publicados como el tuyo se hacen poco legibles y son pocos los que se dan a la tarea de interpretarlos.

Con respectua tu problema, parece que estas tratando de "duplicar" los valores desde la tabla usando el mismo Dataset. Esto es imposible, pues al llamar a Append, se crea un nuevo registro y el DM.ADOTblAcca.AsString simplemente devolverá una cadena vacia, pues está apuntando a un registro nuevo.

Antes de hacer el append podes almacenar los valores en variables y asignarlos desde alli, o bien usar otro DataSet para la misma tabla, y que apunte al registro que queres duplicar.

Hasta luego.



Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #5  
Antiguo 11-05-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 28
jachguate Va por buen camino


Al menos has llamado la atención a varios moderadores al mismo tiempo...
__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:48:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi