ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/nongui/ibxscript.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/ibxscript.pas (file contents):
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

# Line 1494 | Line 1494 | procedure TCustomIBXScript.SetSQLStateme
1494   begin
1495    FSQLReader := SQLStatementReader;
1496    FSQLReader.OnNextLine := @EchoNextLine;
1497 +  FSQLReader.Transaction := FInternalTransaction;
1498   end;
1499  
1500   function TCustomIBXScript.ProcessStatement(stmt: string): boolean;
# Line 1625 | Line 1626 | begin
1626          OnCreateDatabase(self,FileName);
1627        stmt := 'CREATE DATABASE ''' + FileName + '''' + system.copy(stmt,RegexObj.MatchPos[3], RegexObj.MatchLen[3]);
1628        UpdateUserPassword;
1629 <      FDatabase.Connected := false;
1629 >      if FDatabase.Connected then
1630 >        FDatabase.Dropdatabase;
1631        FDatabase.CreateDatabase(stmt);
1630      FDatabase.Connected := false;
1631      ExtractUserInfo;
1632      FDatabase.Connected := true;
1632        Result := true;
1633        Exit;
1634      end;
# Line 1764 | Line 1763 | procedure TCustomIBXScript.SetTransactio
1763   begin
1764    if FTransaction = AValue then Exit;
1765    FTransaction := AValue;
1766 <  FSQLReader.Transaction := AValue;
1766 >  if FTransaction = nil then
1767 >    FSQLReader.Transaction := FInternalTransaction
1768 >  else
1769 >    FSQLReader.Transaction := FTransaction;
1770   end;
1771  
1772   constructor TCustomIBXScript.Create(aOwner: TComponent);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines