31 replies to this topic

[lsedr]

saludos

estoy siguiendo el tutorial de caral para aprender a crear aplicaciones con firebird y delphi 7
entonces en la pantalla Database Registration, qué se coloca en donde dice

Server Name

??

veo que caral no lo explica en el tutorial

en donde dice: server version yo puse firebird 2.1 que es la que instalé

[mightydragon_lord]

se coloca la IP. si es local, ps localhost

[lsedr]

se coloca la IP. si es local, ps localhost

entonces cual ip se coloca y para qué

[Caral]

Hola
Ahi escribe localhost.
Saludos

[mightydragon_lord]

se coloca la IP. si es local, ps localhost

entonces cual ip se coloca y para qué

La ip del servidor firebird, si está en la misma máquina solo pones localhost

[Delphius]

Hola,


A ver pongamos orden.... ¡Yo quiero una milanesa a la napolitana! 


Primeramente hay que aclarar que cuando uno registra la base de datos tiene dos modos de indicar la conexión:
1) Local, ó
2) Remota


Si en Server se le indica local no hace falta indicar el nombre del servidor y/o ip. Simplemente se asume que el motor de Firebird está en el mismo equipo en donde estamos trabajando.


En cambio si se elije la opción Remote se habilita Server Name y Protocol. En Server Name se ha de colocar el nombre o IP del equipo en donde está instalado el servidor.
Aquí puede utilizarse una conexión remota como si fuera local mediante el uso del alias Localhost, o IP 127.0.0.1. Que justamente apunta al propio equipo.
En caso de que efectivamente el servidor del motor esté en otro equipo se ha establecer allí el nombre del equipo o su IP correspondiente. Hagamos de cuenta por ejemplo que se llamase EQUIPOSERVER y tenga la IP 192.198.0.0 entonces en Server Name se coloca ya sea EQUIPOSERVER o 192.198.0.0.
Creería que no hace falta indicar como se ha obtener el nombre del equipo o su IP.


En Protocol no hay demasiada ciencia, habitualmente y en su grandísima mayoría es TCP/IP.


Isedr... antes que avances yo te sugiero enormemente que te documentes. En la página oficial tiene un apartado con la documentación. Leelo, por favor, para evitarte futuros mayores problemas. ¡Evitemos tirar palos a lo ciego! En particular, como primera lectura está el Release Notes... y dentro de éste documento justamente el capítulo INSTALATION NOTES que tiene los temas con títulos bien en grandes... READ THIS FIRST! y READ THIS NEXT!.


Saludos,

[lsedr]

Hola
Empecemos con IBExpert:
Una vez que arranca veremos una serie de opciones en la parte alta.
Para crear una BD nueva seguimos estos pasos:
En el menu, Database, buscamos y presionamos en Register Database.
Nos saldra una pantalla en la que colocaremos los datos de la BD que vamos a crear, asi:



En Database File pondremos la ruta que tendra la nueva BD asi como el nombre que le vallamos a poner,
en este caso le pusimos MIDB.FDB, acordaros de ponerle FDB (firebird database).
En Database Alias colocamos el nombre que queramos, este sera el nombre que aparecera en la lista del IBExpert.
En User Name escribimos SYSDBA, siempre sera este.
En Password escribimos masterkey, la clave se podra cambiar posteriormente.
Por ahora Role, Charset y lo demas lo dejamos como esta y presionamos en el boton register.
Ya la tenemos registrada, pero no tenemos ninguna BD, tendremos que crearla, para eso seguimos:

En el mismo menu Database, buscamos: Create Database y lo presionamos.
Nos mostrara la pantalla de creacion de database, asi:



Escribimos practicamente los mismos datos incluyendo usuario, password, etc y presionemos OK.
Nota: Es posible que os salga la pantalla de registro otra vez, simplemente cerradla.
Si buscamos la carpeta donde la colocamos veremos que ya se creo.
Si le damos doble click (en el programa IBExpert) al alias que creamos, se conectara con todo lo necesario para funcionar nuestra BD.



Bien, en el proximo paso crearemos la Tabla que necesitamos para nuestro programa.
Saludos
Continua.......

Saludos Caral

Qué se pone en ''Server name'' ???

[Caral]

Hola
Si la BD esta en el mismo ordenador bastara con poner LocalHost.
Independientemente de que diga remote en server.
Saludos

[Delphius]

Isedr,


¿Que no es que ya te lo hemos dicho? Lee el último post del hilo.
Yo me pregunto si en realidad pones atención a lo que te decimos. 


Saludos,

[lsedr]

Saludos compas

Disculpa delphius fue que no habia leido el otro hilo ...

bueno, ahora me da este error, 

qué estaré haciendo mal ?

Attached Files

•  2771_87f430c6cf14841247d7525fc941afcd06057d83.png   61.37KB   6 downloads

[Caral]

Hola
Si colocas la BD y el programa aqui (quitale el exe), lo podremos ver.
Saludos

[lsedr]

Hola
Si colocas la BD y el programa aqui (quitale el exe), lo podremos ver.
Saludos

Te refieres a mi caral ?
saludos

[Caral]

Hola
Si amigo, a ti.
Saludos

[lsedr]

Hola
Si amigo, a ti.
Saludos

Esto tengo en el form:

delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, IBCustomDataSet, IBQuery, StdCtrls;
 
type
  TFLogin = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    IBQuery1: TIBQuery;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FLogin: TFLogin;
  cuenta: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TFLogin.FormCreate(Sender: TObject);
begin
cuenta:=0;
end;
 
procedure TFLogin.Button1Click(Sender: TObject);
begin
   IBQuery1.Params.ParamByName('Cod').Value:= Edit1.Text;
   IBQuery1.Active:= True;
If IBQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
       IBQuery1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If IBQuery1Clave.AsString = Edit2.Text then
        Begin
          Form1.Show;
          IBQuery1.Active := False;
          FLogin.Visible:= False;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           Edit2.Text := '';
           IBQuery1.Active := False;
           If Cuenta = 3 then Close;
         end;
end;
 
procedure TFLogin.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

Me da esre otro error:

Attached Files

•  2773_e0753c3c73b02ecff23e1052eab4d19a495d62d8.png   51.28KB   4 downloads

[Caral]

Hola
Dale doble click al componente IBQuery1.
Te saldra una pantalla, dale click derecho y ADD.
Ahi coloca todos los campos.
Listo, por lo menos en esto.
Saludos

[egostar]

Los componentes IBX requieren del componente IBTransaction, colócalo y lígalo a la base de datos.

Salud OS

[lsedr]

Hola
Dale doble click al componente IBQuery1.
Te saldra una pantalla, dale click derecho y ADD.
Ahi coloca todos los campos.
Listo, por lo menos en esto.
Saludos

lo hice y me da error:

dice:
Transaction not assigned

[Caral]

Hola
En el post anterior te explico mi amigo Egostar como hacerlo.
También sigo esperando a que subas el programa en un ZIP aqui en el foro para verlo.
Saludos

[Caral]

Hola
En la respuesta 6 de este tutorial se muestra como se conecta el IBTransaction.
Revisala y veras de lo que hablamos.
Saludos

[lsedr]

Hola
En el post anterior te explico mi amigo Egostar como hacerlo.
También sigo esperando a que subas el programa en un ZIP aqui en el foro para verlo.
Saludos

bueno aqui te va el programa que tiene la BD adentro tambien