FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 para mostrar correctamente el código y hacerlo más legible. Gracias y un saludo. |
#3
|
||||
|
||||
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 |
#4
|
||||
|
||||
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 |
#5
|
||||
|
||||
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 |
|
|
|