162 respuestas en este tema

[enecumene]

¡Pues claro que sí!, Con ADO lo puedes enlazar, usando los componentes ADOConnection y ADOTable.

Saludos.

[Caral]

Hola
Veamos el uso del ejemplo:
Tenemos una base de datos; Datos.mdb, si la abres podras ver los datos, modificarlos etc.
Tenemos un form.
1-Cuando arranca el programa te trae todos los datos.
2-Tienes un combobox, en este haces la busqueda.
La puedes hacer por cualquier campo.
3- en el edit colocas el dato a buscar y presionas el boton de busqueda.
4- Tienes un dbgrid, en este se visualizan los datos.
5- tienes un dbnavigator, con este puedes editar, borrar, recorrer, etc.
6- Hay un dbmemo, este muestra el contenido de los comentarios.
Si le das Click al dbmemo, se ampliara para ver el contenido completo, si le das doble click regresara a su tamaño original.
Cualquier duda, me dices.
Saludos


[archivo adjunto borrado por el administrador]

[Caral]

Hola
Para evitar cambiar el paht de la base de datos yo uso un archivo ini.
Se modifica en este y ya, es mas sencillo.
Saludos

[Caral]

Hola
Vamos a usar un archivo INI, descarga el que esta en el zip.
Abrelo y veras esto:

[BD]
Path="C:\Program Files\Borland\Delphi6\Projects\Datos.MDB"
[Logon]
Auto="No"
Login=""
Pass=""

El path es la dirrecion que tiene la base de datos y el Nombre de esta.
Cambias la direccion a donde tengas la base de datos y lo guardas.
Ahora podras poner la BD donde gustes (en la direccion que pusiste en el ini).
(ojo el archivo INI tiene que estar donde este el programa para que lo pueda leer)

Ponemos en el uses del form IniFiles
Quedaria asi:

delphi

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, DB, Grids, DBGrids, ExtCtrls, ADODB, IniFiles;

Ahora pondremos en el evento OnCreate del form esto:

delphi

procedure TFCamas.FormCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
    // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Direccion.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB:Database Password=admin';
   ADOConnection1.ConnectionString := ConStr;
   ADOConnection1.Open;
   ADOQuery1.Open; // esto es lo que ya tenia
end;

Listo, corre el programa y el ini buscara la bd en la direccion que le diste.
Saludos

[archivo adjunto borrado por el administrador]

[Caral]

Hola
La tabla tiene un indice que es el numeroCama, hay que quitarlo, espera te doy otra vez el programa con los cambios.
Saludos

[enecumene]

El problema lo indica en el error, estas registrando datos en un campo donde no se permite valores duplicados como campos primarios o indice unicos, verifica eso.

Saludos.

[Caral]

Hola
He Hecho varios cambios, entre ellos:
Puse el ini.
Quite el indice de la tabla.
Puse un boton ver todos.
Puse en el dbgrid el numero de cama, asi podras aumentarlo desde este.
Recuerda que el paht estara en el ini.
Saludos


[archivo adjunto borrado por el administrador]

[Caral]

Hola
Claro que se puede.
Tienes que abrir la base de datos.
En la tabla ponle un campo fecha.
Pones un label
y pones este codigo:

delphi

var fechaV: TDate;
begin
FechaV:= now;
Label1.caption:= Adoquery1.Filebyname('fecha').Value;
If FechaV.Date <= StrToDate(Label1.Caption) then
Label1.Font.Color:= Clred;

Saludos

[Caral]

Hola
Me gusta mas buscar las camas que se vencieron por fecha.
Esto se hace directamnete desde el combobox.
Cosas nuevas:
Se puso la opcion de busqueda por cama vencida (cambia el color).
Se puso la opcion de actualizar la fecha.
Se puso el campo fecha.
Saludos


[archivo adjunto borrado por el administrador]