ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/udr/client/2.5/FB25Attachment.pas

Comparing ibx/branches/udr/client/2.5/FB25Attachment.pas (file contents):
Revision 374 by tony, Wed Jan 5 14:59:15 2022 UTC vs.
Revision 375 by tony, Sun Jan 9 23:42:58 2022 UTC

#	Line 144 | Line 144 | begin
144		Disconnect;
145		Connect;
146		end
147	–	else
148	–	GetODSAndConnectionInfo;
147		end;
148
149		constructor TFB25Attachment.CreateDatabase(api: TFB25ClientAPI; sql: AnsiString; aSQLDialect: integer;
#	Line 154 | Line 152 | var tr_handle: TISC_TR_HANDLE;
152		begin
153		inherited Create(api,'',nil,RaiseExceptionOnError);
154		FFirebird25ClientAPI := api;
155	<	FSQLDialect := aSQLDialect;
155	>	SetSQLDialect(aSQLDialect);
156		tr_handle := nil;
157		with FFirebird25ClientAPI do
158		begin
#	Line 163 | Line 161 | begin
161		IBDataBaseError;
162
163		end;
166	–	GetODSAndConnectionInfo;
164		ExtractConnectString(sql,FDatabaseName);
165		DPBFromCreateSQL(sql);
166		end;
#	Line 180 | Line 177 | end;
177
178		procedure TFB25Attachment.Connect;
179		begin
180	<	FSQLDialect := 3;
180	>	SetSQLDialect(3);
181
182		with FFirebird25ClientAPI do
183		if DPB = nil then
#	Line 198 | Line 195 | begin
195		IBDatabaseError;
196
197		end;
201	–	GetODSAndConnectionInfo;
198		end;
199
200		procedure TFB25Attachment.Disconnect(Force: boolean);
#	Line 213 | Line 209 | begin
209		if (isc_detach_database(StatusVector, @FHandle) > 0) and not Force then
210		IBDatabaseError;
211		FHandle := nil;
216	–	FHasDefaultCharSet := false;
217	–	FCodePage := CP_NONE;
218	–	FCharSetID := 0;
212		end;
213
214		function TFB25Attachment.IsConnected: boolean;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines