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

Comparing ibx/trunk/fbintf/testsuite/Test1.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 117 by tony, Mon Jan 22 13:58:11 2018 UTC

# Line 80 | Line 80 | begin
80      Attachment.DropDatabase;
81  
82    writeln(OutFile,'Creating a Database using an SQL Statement');
83 <  createSQL := Format('CREATE DATABASE ''%s'' USER ''%s'' PASSWORD ''%s'' DEFAULT CHARACTER SET %s',
83 >  createSQL := Format('create database ''%s'' USER ''%s'' PASSWORD ''%s'' DEFAULT CHARACTER SET %s',
84                        [Owner.GetNewDatabaseName, Owner.GetUserName, Owner.GetPassword, CharSet]);
85    Attachment := FirebirdAPI.CreateDatabase(createSQL,SQLDialect);
86    WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_db_SQL_Dialect]));
87 +  writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
88 +  writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
89 +  writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
90 +  writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
91 +  writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
92 +  writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
93 +  PrintDPB(Attachment.getDPB);
94 +
95 +  {Demonstrate reconnect when database created with SQL Statement}
96 +  Attachment.Disconnect;
97 +  Attachment.Connect;
98  
99    writeln(OutFile,'Dropping Database');
100    if Attachment <> nil then
# Line 98 | Line 109 | begin
109  
110    Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
111  
112 +  writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
113 +  writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
114 +  writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
115 +  writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
116 +  writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
117 +  writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
118 +
119    writeln(OutFile,'Dropping Database');
120    if Attachment <> nil then
121      Attachment.DropDatabase;
# Line 113 | Line 131 | begin
131      Exit;
132    end;
133    WriteDBInfo(Attachment.GetDBInformation([isc_info_db_id,isc_info_ods_version,isc_info_ods_minor_version]));
134 +  writeln(outfile,'DB Connect String = ',Attachment.GetConnectString);
135 +  writeln(outfile,'DB Charset ID = ',Attachment.GetDefaultCharSetID);
136 +  writeln(outfile,'DB SQL Dialect = ',Attachment.GetSQLDialect);
137 +  writeln(outfile,'DB Remote Protocol = ', Attachment.GetRemoteProtocol);
138 +  writeln(outfile,'DB ODS Major Version = ',Attachment.GetODSMajorVersion);
139 +  writeln(outfile,'DB ODS Minor Version = ',Attachment.GetODSMinorVersion);
140  
141    {Querying Database}
142    DoQuery(Attachment);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines