BDE.CreateDatabase

Applies to TestComplete 14.10, last modified on June 5, 2019

The following code demonstrates how you can work with IAQADatabase objects in your scripts. This example requires that the local InterBase Server be running.

JavaScript, JScript

function TestProc()
{
  var d, w;
  d = BDE.CreateDatabase();
  d.DatabaseName = "MyDatabase";
  d.AliasName = "IBLOCAL";
  d.LoginPrompt = 0;
  d.Params = "USER NAME = SYSDBA" + "\r\n" + "PASSWORD=masterkey";
  d.Connected = 1;
  w = BDE.CreateTable();
  w.DatabaseName = "MyDatabase";
  w.TableType = 0;
  w.TableName = "EMPLOYEE";
  w.Open();
  w.First();
  while (!w.EOF)
  {
    Log.Message(w.FieldByName("First_Name").AsString);
    w.Next();
  }
}

Python

def TestProc():
  d = BDE.CreateDatabase()
  d.DatabaseName = "MyDatabase"
  d.AliasName = "IBLOCAL"
  d.LoginPrompt = 0
  d.Params = "USER NAME = SYSDBA" + "\r\n" + "PASSWORD=masterkey"
  d.Connected = 1
  w = BDE.CreateTable()
  w.DatabaseName = "MyDatabase"
  w.TableType = 0
  w.TableName = "EMPLOYEE"
  w.Open()
  w.First()
  while not w.EOF:
    Log.Message(w.FieldByName("First_Name").AsString)
    w.Next()

VBScript

Sub TestProc
  Set d = BDE.CreateDatabase
  d.DatabaseName = "MyDatabase"
  d.AliasName = "IBLOCAL"
  d.LoginPrompt = 0
  d.Params = "USER NAME = SYSDBA" + Chr(13) + Chr(10) + "PASSWORD=masterkey"
  d.Connected = True
  Set w = BDE.CreateTable
  w.DatabaseName = "MyDatabase"
  w.TableType = 0
  w.TableName = "EMPLOYEE"
  w.Open
  w.First
  While Not w.EOF
    Log.Message w.FieldByName("First_Name").AsString
    w.Next()
  WEnd
End Sub

DelphiScript

procedure TestProc;
var
  d, w: OleVariant;
begin
  d := BDE.CreateDatabase;
  d.DatabaseName := 'MyDatabase';
  d.AliasName := 'IBLOCAL';
  d.LoginPrompt := False;
  d.Params := 'USER NAME = SYSDBA' + #13#10 + 'PASSWORD=masterkey';
  d.Connected := True;
  w := BDE.CreateTable;
  with w do
  begin
    DatabaseName := 'MyDatabase';
    TableType := ttDefault;
    Tablename := 'EMPLOYEE'
  end;
  w.Open;
  w.First;
  while not aqConvert.VarToBool(w.EOF) do
  begin
   Log.Message(w.FieldByName('First_Name').AsString);
   w.Next;
  end;
end;

C++Script, C#Script

function TestProc()
{
  var d, w;
  d = BDE["CreateDatabase"]();
  d["DatabaseName"] = "MyDatabase";
  d["AliasName"] = "IBLOCAL";
  d["LoginPrompt"] = 0;
  d["Params"] = "USER NAME = SYSDBA" + "\r\n" + "PASSWORD=masterkey";
  d["Connected"] = 1;
  w = BDE["CreateTable"]();
  w["DatabaseName"] = "MyDatabase";
  w["TableType"] = 0;
  w["TableName"] = "EMPLOYEE";
  w["Open"]();
  w["First"]();
  while (!w["EOF"])
  {
    Log["Message"](w["FieldByName"]("First_Name")["AsString"]);
    w["Next"]();
  };
}

Highlight search results