我已经进行了广泛的研究,以寻求解决方案。我知道此错误不在我的代码中。我只能使用TFDconnection组件尝试连接到新的Access数据库来创建一个新项目,但我仍然会收到和访问冲突错误。我已经重新安装了Rad Studio 10.3,但问题仍然存在。任何帮助解决这个麻烦将不胜感激。
function TODBCConnection.DriverConnect(const AConnString: String;
ADriverCompletion: SQLUSmallint; AParentWnd: SQLHWnd): String;
var
iOutConnStrLen: SQLSmallint;
{$IFDEF FireDAC_MONITOR}
s: String;
i1, i2: Integer;
{$ENDIF}
begin
{$IFDEF FireDAC_MONITOR}
if Tracing then begin
s := AConnString;
i1 := Pos('PWD=', UpperCase(s));
if i1 <> 0 then begin
i2 := Pos(';', s, i1);
if i2 = 0 then
i2 := Length(s) + 1;
Inc(i1, 4);
while i1 < i2 do begin
s[i1] := '*';
Inc(i1);
end;
end;
Trace(ekVendor, esProgress, 'SQLDriverConnect', ['szConnStr', s]);
end;
{$ENDIF}
SetLength(Result, C_RETURNED_STRING_MAXLEN);
FillChar(Result[1], C_RETURNED_STRING_MAXLEN * SizeOf(Char), 0);
iOutConnStrLen := 0;
-> Check(Lib.SQLDriverConnect(FHandle, AParentWnd, PSQLChar(AConnString),
SQL_NTS,
PSQLChar(Result), C_RETURNED_STRING_MAXLEN, iOutConnStrLen,
ADriverCompletion));
FConnected := True;
AfterConnect;
ODBCSetLength(Result, iOutConnStrLen);
end;
此行之后的异常指向行显示->“对不起,我不确定如何正确发布错误行”
我找到了解决方案。问题出在MSAccess驱动程序,在此处可官方下载-> link重新安装后,我可以再次连接,而不会出现错误。