Problema!!! ayudarme please!! novatillo.. jaajja

[kye_z]

buenas!!

os contare mi pequeño problema pero que para mi es de lo mas grande de momento, (he empezado con delphi i todo su mundo desde hace menos de 24horas... asi k imaginar lo perdido k voy).
tengo un formulario con 3 campos TEdit de nombres (nomClub, direccioClub i mailClub), a parte tengo una base de datos de la cual ya tengo hecha la conexion con un ADOConnect i tambien tengo preparado el ADOQuerry(esto en principio no tendiria que petar porque ayer consegui que funcionase en una prueba).

la idea es hacer un boton que lo unico que haga es recoger los campos Text de los Tedit i me haga un insert en la tabla Club que tengo creada en la base de datos( las columnas a rellenar serian nom_club, direccio i mail_club)

os pongo el procedimiento del botoncillo que tengo hecho i en principio me faltaria la parte del medio:
procedure TcrearClub.BcrearClubClick(Sender: TObject);
var
sentencia: TStrings;

begin
sentencia.Create

ESTO ES LO QUE ME FALTA.

conexio.Open
sqlCrearClub.Active:=True
sentencia.Free;
end;
end.

Tengo mas o menos la idea de lo que tengo que hacer pero no se pk no me va.. os escrivo lo k tengo hecho a ver si me veeis los fallos... me da errores pero como soy NOVATO NOVATO pues no se por donde empezar!!

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

muchissimas gracias a quien pueda solusionarme este pekeñoGRANDE problema...

algun dia ya no tendre que preguntar cosillas asi.. pero de momento no tengo otra eleccion...

o0 CarloS 0o

[Investment]

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:

  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;

[Investment]

Acabo de leer que tienes una Query.... en ese caso:

  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;

[kye_z]

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...

[kye_z]

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...

[Investment]

Empezado por kye_z

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!!

//   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;

Empezado por kye_z

estoy abierto a criticas i lo que se os ocurra!! muchas gracias por vuestra desinteresada ayuda i espero ir mejorando...

Solo quieres grabar el valor del campo nom_club?? Si es así, tu código está bien.

[Investment]

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

Empezado por kye_z

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.

Por supuesto que los foros estan para ayudarnos entre todos... eso no admite discusion

[kye_z]

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

[kye_z]

Buenas!!

al final lo ice asi!! despues de varias modificaciones...

begin
  if Trim(nomClub.Text) <> '' then
	begin
	  sqlCrearClub.Sql.Clear;
	  sqlCrearClub.Sql.Add(' INSERT INTO Club (nom_club');
	  values:= ') VALUES ("'+ nomClub.Text;
	  if Trim(direccioClub.Text) <> '' then
		begin
		  sqlCrearClub.Sql.add(',adreca_club');
		  values:= values+ '","' + direccioClub.Text;
		end;
		
	  if Trim(mailClub.Text) <> '' then
		begin
		  sqlCrearClub.Sql.add(',mail_club');
		  values:= values+ '","' + mailClub.Text;
		end;
	  sqlCrearClub.SQL.Add(values + '")') ;

	  // aqui es conecta a la bdd i executa la SQL
	  sqlCrearClub.ExecSQL;
	  close;
	end
  else
	  ShowMessage('Es obligatori omplir el cam Nom del club!!');
	  EXIT;
  end;

de esta manera creo que queda algo mas claro.

enga muchas gracias por la ayuda!!

i la proxima vez ya intentare no poner ese topik... (las lei algo despues de colgar mi primer post!)