|
@@ -72,6 +72,7 @@ type
|
|
|
procedure FreeParamBuffers(ODBCCursor:TODBCCursor);
|
|
|
protected
|
|
|
// Overrides from TSQLConnection
|
|
|
+ function GetConnectionCharSet: string; override;
|
|
|
function GetHandle:pointer; override;
|
|
|
// - Connect/disconnect
|
|
|
procedure DoInternalConnect; override;
|
|
@@ -616,6 +617,13 @@ begin
|
|
|
SetLength(ODBCCursor.FParamBuf,0);
|
|
|
end;
|
|
|
|
|
|
+function TODBCConnection.GetConnectionCharSet: string;
|
|
|
+begin
|
|
|
+ Result := inherited GetConnectionCharSet;
|
|
|
+ if Result='' then
|
|
|
+ Result := TEncoding.ANSI.EncodingName; // by default, ODBC talks in ANSI, which can be different from CP_ACP (DefaultSystemCodePage)
|
|
|
+end;
|
|
|
+
|
|
|
function TODBCConnection.GetHandle: pointer;
|
|
|
begin
|
|
|
// I'm not sure whether this is correct; perhaps we should return nil
|