ADO Y DELPHI (varias dudas)

[Neftali [Germán.Estévez]]

Empezado por aquosoft

Mis principales dudas al respecto son:
(1)-Existe algo similar al begin y al commit?
(2)-Se que para encerrar strings delphi usa la comilla simple, pero esta es caracter especial en sqlserver, por tanto para pasar parametros yo los tengo que encerrar entre comillas simples por ejemplo "'" & varNOMBRE & "'"
(3)-el caracter de concatenacion es el "+" en delphi no?
(calculo ke mi sentencia seria algo como
delete from mi tabla where nombre ='" + varnombre + "'"
pero tengo dudas hacerca de las comillas dobles y simples.. aparte por supuesto de las dudas que tengo de la manera en que se ejecutan estas sentencias...
si me facilitan algun ejemplo como el de recien... se los voy a agradecer muchisimo!!!

(1) Sí, revisa los métodos de ADOConnection; Encontrarás el Begin, Commit, Rollback y InTransaction (para saber si estás dentro de una).
(2)(3) Revidsa en la ayuda QuotedStr; Esta funcion te añade las comillas y te puedes olvidar de ellas:

Código Delphi [-]
   ...  'SELECT * FROM TABLA WHERE Nombre = ' + QuotedStr(StrNombre);

[aquosoft]

millon de gracias.. andubo todo re bien!!!
una ultima por hoy...
alguno sabe si hay algo que me inserte en el codigo alguna linea o algo para separar los procedimientos uno de otro???
alguna propiedad o en view.. o algo??
tipo algo asi: (pero ke sea propio de pascal y ke no tenga ke separar yo a mano...
gracias y no jodo mas por hoy...

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

// ===================================================

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      edit1.Enabled := false;
      button1.Enabled := true;
      button1.SetFocus;
    end;
  if key = #27 then
    begin
      edit1.Text := '';
      edit1.SetFocus;
    end;
end;

// ===================================================

[Neftali [Germán.Estévez]]

"A mano" puedes programártelo en el "Code Insight" del IDE de Delphi; Accedes por "Tools/Editor Options/Cede Insight".
Defines una abreviatura y su sustitución....

Otra opción es instalar por ejemplo los GExperts (muy recomentables no sólo por esto, sino por muchas otras fucnciones).
A parte de que tienen una utilidad llamada "Code Profreeder" similar a la anterior, pero más configurable.

[aquosoft]

nooo..... a mano ni loco.. algo ke agregue una linea.. separando procedimientos o funciones o lo que sea.. pero ke las separe... como ke me diga ke ahi termina un procedimiento y empieza otros.. algo visual...

[Neftali [Germán.Estévez]]

Empezado por Neftali

"A mano" puedes programártelo en el "Code Insight"...

Me refería a que en el "Code Insight" le puedes decir que sustituya una cadena por otra;
Le dices que esto:
"================================================="
equivales a esto:
Sep1

Y cuando en el código escribes el Sep1, el IDE de Delphi te lo sustituye automáticamente.
A eso me refería, pero tal vez no te entendí.

[Rayku]

tengo esta funcion, bueno la coneccion no es mucho problema xq ya te la dieron arriba.

Function ListarSeries(cn: TADOConnection;var Error:String):TADODataSet;
var ADO:TADODataset;
begin
try
ADO := TADODataSet.Create(nil);
ADO.Connection := cn;
ADO.Close;
ADO.CommandType := cmdText;
ADO.CommandText := ' select distinct SerieNotaVenta from TNotaVenta order by SerieNotaVenta ';
ADO.Open;
result := ADO;
except
on E : Exception do
begin
Error:=E.Message;
result := nil;
end;
end;
end;

AQUI HAGO LA LLAMADA Y CARGO EN UN COMBO

// cargar las diferentes series
ADO := TADODataSet.Create(nil);
ADO.Connection := dmConeccion.ADOConection;
ADO.Clone(CVenta.ListarSeries(dmConeccion.ADOConection,Error));
ADO.First;
while not ADO.Eof do
begin
cbSerie.Items.Add(ADO.Fields[0].AsString);
ADO.Next;
end;

[[Lepe]]

En la línea que habla Neftali, existe un macro llamado procedure, es decir, en el código tú escribes procedure + CTRL + J y aparece:

Código Delphi [-]
procedure |
begin

end;

El cursor se queda esperando donde está la barra vertical (tubería).

Podrías sustituirlo, o crear uno nuevo que sustituya además añada los separadores que pides. Yo al menos tengo 2 definidos
cos (comentario simple) que se sustituye por:
{ ----------------------------- | ---------------------------------}

cod (comentario doble)
{ -----------------------------------------------------------------
|
----------------------------------------------------------------}

por cierto, las www.GExperts.com amplían un poco el tema de macros
pudiendo insertar automáticamente la fecha, hora, usuario y algunas
otras variables.

Por supuesto todo esto funciona cuando creas a mano un procedimiento, cuando usas el object Inspector, no se hace automáticamente.

Quizás puedas hacer algo con el Jcf (Jedi Code Formatter), un programa open source y gratuito. No te lo puedo asegurar, pero algo es algo.

Saludos