![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Bueno kye_z. Lo primero que te recomiendo es que te leas la Guia de estilo y antes o despues de eso, que leas un manual de Delphi
Para hacer lo que quieres basta con lo siguiente: Se supone que tiene un tTable en tu formulario asociado a la tabla en la que quieres insertar. Pues bien: Código:
TuTabla.Insert; TuTabla.fieldByName('NombreCampo1').asString:= edit1.text; TuTabla.fieldByName('NombreCampo'2).asString:= edit2.text; TuTabla.fieldByName('NombreCampo3').asString:= edit3.text; try TuTabla.Post; except ShowMessage('Error insertando registro en la tabla'); end;
__________________
Saludos, Peter Investment |
#2
|
||||
|
||||
Acabo de leer que tienes una Query.... en ese caso:
Código:
TuQuery.Close; TuQuery.Sql.Clear; TuQuery.Sql.Add(' INSERT INTO TuTabla'+ 'Values(:Campo1,:campo2,:campo3)'); Tuquery.ParamByName('Campo1').value:= edit1.text; Tuquery.ParamByName('Campo2').value:= edit2.text; Tuquery.ParamByName('Campo3').value:= edit3.text; try TuQuery.ExceSQL; except ShowMessage('Error insertando registro en la tabla'); end;
__________________
Saludos, Peter Investment |
#3
|
||||
|
||||
muchas gracias.....
intentare solucionar mi problema con tus solusiones de momento toy provando varias cosillas, mmm la guia de estilos ya la he leido ya que me lo recomiendas i luego que sepas que estoy tambien con un par d manuales de delphi pero que si no encuentro la solucion alli o no me aclaro pues.. kreo yo... (i no es para meterme con nadie) que para eso estan los foros no?! para que la gente se ayude ya sea un novato como yo como un experto. enga asias !!! ya os contare como lo he solucionao al final...
__________________
------------------------
Joven Padawan algun dia sere un maestro... ------------------------
|
#4
|
||||
|
||||
Solucion que me funciona!!
buenas,
despues de pelearme unos minutejos mas con las soluciones que me habeis dado, he encontrado esta que de momento me funciona, tengo que mejorarla para que no me pongan el campo nomClub en blanco i le den al boton... asi que en kuanto tenga mi solucion os la propondre para que me la critikeis!! solcion acutal: sqlCrearClub.Sql.Clear; sqlCrearClub.Sql.Add(' INSERT INTO Club (nom_club) VALUES ("'+ nomClub.Text +'")'); conexio.Connected:=True; sqlCrearClub.ExecSQL; conexio.Connected:=False; estoy abierto a criticas i lo que se os ocurra!! muchas gracias por vuestra desinteresada ayuda i espero ir mejorando...
__________________
------------------------
Joven Padawan algun dia sere un maestro... ------------------------
|
#5
|
||||
|
||||
Cita:
Código:
// Con esto evitarás que se intente grabar un registro en blanco if Trim(nomClub.Text)='' then begin ShowMessage('Rellene el campo NumClub'); EXIT; end; Cita:
__________________
Saludos, Peter Investment |
#6
|
||||
|
||||
![]() Mis recomendaciones son solo eso, recomendaciones. En ningun caso te lo he dicho para meterme contigo y si te lo has tomado asi acepta mis disculpas... pero creí que no la habias leido por el título de tu mensaje.
Y respecto a los manuales.... dales cañita que veras como en breve serás tu quien solucione problemas a los demas Cita:
![]()
__________________
Saludos, Peter Investment |
#7
|
||||
|
||||
trankilo no me lo he tomado mal...
lo de que estare solusionano problemas a los demas.. de momento lo veo lejos.. pero voy aprendiendo poko a poko .... ya he comentao en el primer post que llevo apenas 24 horitas en esto.. i toy avanzando a pasos agigantados... jejeje enga nos vemos!! i gracias por la ayuda
__________________
------------------------
Joven Padawan algun dia sere un maestro... ------------------------
|
#8
|
||||
|
||||
otias!! asias por el detallito del Trim() <... yo lo habia puesto sin.. i me he fijado que limpia la cadena de espacios !!
perfecto.. creo que ya empiezo a pillar algunas cosillas!! muchas gracias!! p.d. En principio tengo que contrlolar alguna que otra cosilla... pero para empezar... mejor poko a poko i de una en una.. jejejeje enga muchas gracias de nuevo!! ![]()
__________________
------------------------
Joven Padawan algun dia sere un maestro... ------------------------
|
#9
|
||||
|
||||
Hola,
sólo un comentario: cuando escribas código (Delphi, SQL, PHP...) procura encerrarlo entre las etiquetas adecuadas, para que quede resaltada su sintaxis y se utilice tipografía de ancho fijo. Así es mucho más fácil de leer. Ejemplo (sacado de tus propios mensajes): Tal como tú lo has puesto: sentencia.Add('Insert into Club (nom_club,direccio,mail_club) values (') sentencia.Append(nomClub.SelText); sentencia.Append(','); sentencia.Append(direccioClub.SelText); sentencia.Append(','); sentencia.Append(mailClub.SelText); sentencia.Append(')'); sqlCrearClub.SQL.AddStrings(sentencia); // el sqlCrearClub es el objeto ADOQuerry Tal como quedaría con la etiqueta Delphi
Hace tiempo se publicó (en todos los foros) un mensaje con las instrucciones para el uso de estas etiquetas... http://www.clubdelphi.com/foros/showthread.php?t=9993 Por cierto, si has leído la Guía de estilo, tal como comentas: Cita:
Cita:
Cita:
Última edición por kinobi fecha: 21-10-2004 a las 17:42:24. |
![]() |
|
|
![]() |
|