[squenda]

Hola, otra duda, en los ejemplos del inno setup viene uno para conexion con bases de datos y este es el codigo:

_______________________________________________________________

[code]

{--- SQLDMO ---}

const
SQLServerName = 'localhost';
SQLDMOGrowth_MB = 0;

procedure SQLDMOButtonOnClick(Sender: TObject);
var
SQLServer, Database, DBFile, LogFile: Variant;
IDColumn, NameColumn, Table: Variant;
begin
if MsgBox('Setup will now connect to Microsoft SQL Server ''' + SQLServerName + ''' via a trusted connection and create a database. Do you want to continue?', mbInformation, mb_YesNo) = idNo then
Exit;

{ Create the main SQLDMO COM Automation object }

try
SQLServer := CreateOleObject('SQLDMO.SQLServer');
except
RaiseException(ExceptionType, 'Please install Microsoft SQL server connectivity tools first.'#13#13'(Error '''+ExceptionParam+''' occured)');
end;

{ Connect to the Microsoft SQL Server }

SQLServer.LoginSecure := True;
SQLServer.Connect(SQLServerName);

MsgBox('Connected to Microsoft SQL Server ''' + SQLServerName + '''.', mbInformation, mb_Ok);

{ Setup a database }

Database := CreateOleObject('SQLDMO.Database');
Database.Name := 'Inno Setup';

DBFile := CreateOleObject('SQLDMO.DBFile');
DBFile.Name := 'ISData1';
DBFile.PhysicalName := 'c:\program files\microsoft sql server\mssql\data\IS.mdf';
DBFile.PrimaryFile := True;
DBFile.FileGrowthType := SQLDMOGrowth_MB;
DBFile.FileGrowth := 1;

Database.FileGroups.Item('PRIMARY').DBFiles.Add(DBFile);

LogFile := CreateOleObject('SQLDMO.LogFile');
LogFile.Name := 'ISLog1';
LogFile.PhysicalName := 'c:\program files\microsoft sql server\mssql\data\IS.ldf';

Database.TransactionLog.LogFiles.Add(LogFile);

{ Add the database }

SQLServer.Databases.Add(Database);

MsgBox('Added database ''' + Database.Name + '''.', mbInformation, mb_Ok);

{ Setup some columns }

IDColumn := CreateOleObject('SQLDMO.Column');
IDColumn.Name := 'id';
IDColumn.Datatype := 'int';
IDColumn.Identity := True;
IDColumn.IdentityIncrement := 1;
IDColumn.IdentitySeed := 1;
IDColumn.AllowNulls := False;

NameColumn := CreateOleObject('SQLDMO.Column');
NameColumn.Name := 'name';
NameColumn.Datatype := 'varchar';
NameColumn.Length := '64';
NameColumn.AllowNulls := False;

{ Setup a table }

Table := CreateOleObject('SQLDMO.Table');
Table.Name := 'authors';
Table.FileGroup := 'PRIMARY';

{ Add the columns and the table }

Table.Columns.Add(IDColumn);
Table.Columns.Add(NameColumn);

Database.Tables.Add(Table);

MsgBox('Added table ''' + Table.Name + '''.', mbInformation, mb_Ok);
end;


____________________________________________________

me gustaria saber que tengo que modificar para que trabaje con interbase, me imagino que de esta manera se puede registrar la gdb de interbase sin tener que hacerlo manualmente con cada uno de mis clientes. ???????


Gracias otra vez!!

Saludos