Reiner, You can certainly do this with IBX for Lazarus (http://www.mwasoftware.co.uk). You will also find there some guidelines on using the Firebird embedded library under both Windows and Linux that are more general than just IBX.
If you want to stick with SQLDB then there is a global variable UseEmbeddedFirebird that you need to set to force use of the embedded library. On 03/08/11 06:39, Reinier Olislagers wrote: > When using the Firebird embedded database, it's nice to be able to > create the database using only FreePascal/Lazarus. > > Is there a way to do this, e.g. using the SQLScript component, using > something like this: > const > DatabaseFile = 'DATABASE1.FDB'; > var > CreateScript: TSQLScript; > ScriptText: TStringList; > begin > //Connection to Firebird database > IBConnection1.HostName := ''; //must be empty for embedded Firebird; > must be filled for client/server Firebird > IBConnection1.DatabaseName := DatabaseFile; //Filename of Firebird > database > IBConnection1.Username := 'SYSDBA'; > IBConnection1.Password := 'masterkey'; //default password for SYSDBA > IBConnection1.Charset := 'UTF8'; //Send and receive string data in > UTF8 encoding > IBConnection1.Dialect := 3; //Nobody uses 1 or 2 anymore. > if (FileExists(DatabaseFile)=false) then > begin > CreateScript := TSQLScript.Create(nil); > ScriptText:=TStringList.Create; > try > CreateScript.OnException:=@ExceptionHandler; > IBConnection1.DatabaseName:=''; > CreateScript.DataBase:=IBConnection1; > CreateScript.Transaction:=SQLTransaction1; > IBConnection1.Open; > SQLTransaction1.StartTransaction; > > ScriptText.Text:='CREATE DATABASE ''database1.fdb'' page_size > 16384 user ''SYSDBA'' password ''masterkey'' default character set UTF8;'; > CreateScript.Script:=ScriptText; > CreateScript.ExecuteScript; > SQLTransaction1.Commit; > > SQLTransaction1.StartTransaction; > ScriptText.Text:='CREATE TABLE Table1 (id VARCHAR(255), name > VARCHAR(255));'; > CreateScript.Script:=ScriptText; > CreateScript.ExecuteScript; > SQLTransaction1.Commit; > > IBConnection1.Close; > finally > ScriptText.Free; > CreateScript.Free; > end; > end; > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
