Manejo de Fechas de vencimiento en delphi 7

[[Caral]]

Hola
Si te lo hago no aprendes.
Usa la lógica:
1- Para guardar datos se necesita que la tabla este abierta (correcto)?.
2- Para ver si existe algún dato o si es igual también se necesita que la tabla este abierta (correcto)?.
3- Para guardar (con un table) se hace un post con la tabla abierta (correcto) ?.
Es necesario cerrar la tabla en algún momento de estos tres puntos ??????????????.
Necesitas cerrar la Tabla
Saludos

[luisraad]

haber moderador si pregunto eso es porque en el manejo de la fecha de la aplicacion que le made a caral ayer esta lo que pregunto hoy pero no hay problema yo abro otro hilo... por eso no hay problema soy novato no entiendo casi el manejo delos foros... si tan solo hubiese una guia yo no cometiera errores

[[Caral]]

Hola
Aqui
Saludos

[Casimiro Noteví]

Empezado por luisraad

haber moderador si pregunto eso es porque en el manejo de la fecha de la aplicacion que le made a caral ayer esta lo que pregunto hoy pero no hay problema yo abro otro hilo... por eso no hay problema soy novato no entiendo casi el manejo delos foros... si tan solo hubiese una guia yo no cometiera errores

Empezado por Caral

Hola
Aqui
Saludos

¿Si hubiese una guía? , indicártelo, es lo primero que hice al ver tu mensaje en un hilo cualquiera donde pusiste tu pregunta la primera vez.
Y al principio de este hilo volví a recordártelo

[[Caral]]

Hola
Pero ya que estamos en este no me hagáis ir a otro hilo.
Ya coloque el sofá, tengo la mesita de la tele, me traje un bocata, venga, que ya estoy cómodo......
Saludos

[luisraad]

jajajajajaj caral

mira quedo asi y ya no me da error...

Código Delphi [-]
 
procedure TForm1.Button4Click(Sender: TObject);
var
  c:string;
begin
  if not adotable1.locate('COD',c,[])then
  ADOTable1.Open;
  begin
   if (LabeledEdit2.text <> '') then
   begin
   adotable1.Insert;
   ADOTable1.FieldByName('COD').AsString:=(LabeledEdit1.Text);
   ADOTable1.FieldByName('NOMBRE').AsString:=(LabeledEdit2.Text);
   ADOTable1.FieldByName('F_CADUCIDAD').AsDateTime:=strtodate(LabeledEdit3.text);
   ADOTable1.Post;
   Application.MessageBox('Todos Los Datos Han Sido Almacenados Correctamente','FarmaSoft',MB_OK);
   LabeledEdit1.clear;
   LabeledEdit2.clear;
   LabeledEdit3.clear;
   LabeledEdit1.setfocus;
   end;
   end;
end;

gracias caral

[[Caral]]

Hola
Que bien, me alegro.
Saludos

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

Hola Luisraad, he movido tu pregunta aquí.
Por favor no mezcles diferentes temas. Revisa la Guia de estilo.

[Casimiro Noteví]

¿Estás de broma amigo?, si en este hilo hasta te han hecho el programa
Lee la guía de estilo, y si la has leído, ponla en práctica. Gracias.
Voy a unir este tema al otro, es el mismo.

[Casimiro Noteví]

Acabo de ver el mensaje de Neftalí, no sé dónde habías puesto el mensaje, ya me tienes confundido luisraad.
Si todavía no lo has comprendido, entonces simplemente sigue preguntando, hasta que lo entiendas.

Vaya, ahora veo que alguien ha borrado la pregunta :s

[alej.villa]

Empezado por Caral

La conexion del adoconnetcion se tendria que hacer por codigo, asi se evitaria tener que poner el programa en una carpeta determinada.

Hola Caral la verdad es que me interesa saber como puedo hacer eso que tu propones en ese texto.
seguire investigando a ver que consigo

[[Delphius]]

Busca sobre archivos .ini
Y revisa el tutorial de la autoría de Caral que expone justamente ese ejemplo: Utiliza un archivo ini para leer los datos y generar la cadena de conexión para conectar a la base de datos.

Its Simple.

Saludos,

[Casimiro Noteví]

Empezado por jltf2308

..

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración