Решение проблемы с SqlConfigDataSource при создании записи в User DSN на Delphi

Delphi , Графика и Игры , Canvas

Если вы пытаетесь создать новую запись в User DSN в ODBC Data Source Administrator с помощью следующего кода, но SqlConfigDataSource не работает, и возвращается непонятный ошибка, вот как это исправить:

procedure TForm1.FormCreate(Sender: TObject);
var
  strAttributes: string;
  wideChars: array[0..1000] of WideChar;
  pfErrorCode: DWORD;
  errMsg: PChar;
begin
  strAttributes := 'DSN=' + 'example_DSN' + Chr(0);
  strAttributes := strAttributes + 'DESCRIPTION=' + 'description' + Chr(0);
  strAttributes := strAttributes + 'SERVER=' + 'testserver,1433' + Chr(0); // Убедитесь, что вы указали порт сервера
  strAttributes := strAttributes + 'DATABASE=' + 'somedatabase' + Chr(0);

  StringToWideChar(strAttributes, wideChars, Length(strAttributes) + 1);
  if not SqlConfigDataSource(0, ODBC_ADD_DSN, 'SQL Server', wideChars) then
  begin
    errMsg := AllocMem(SQL_MAX_MESSAGE_LENGTH);
    SQLInstallerError(1, @pfErrorCode, errMsg, SQL_MAX_MESSAGE_LENGTH, nil);
    MessageBox(0, errMsg, PChar('Add System DSN Error #' + IntToStr(pfErrorCode)), 0);
    FreeMem(errMsg);
  end;
end;

Возможная причина ошибки заключается в неверном переводе заголовков ODBC, которые затем могут быть использованы для не-Unicode или Unicode версии Delphi. Убедитесь, что вы используете правильные функции и типы данных в зависимости от версии Delphi.

Также, важно указать порт сервера в строке 'SERVER', например, 'testserver,1433', чтобы избежать ошибки "ODBC SQL SERVER DRIVER DBNETLIB 'Invalid Connection'".

Этот код должен работать в современных версиях Delphi, таких как XE2 и выше. Если у вас все еще есть проблемы, убедитесь, что у вас установлен ODBC-драйвер для SQL Server и что сервер и база данных существуют и доступны.

Создано по материалам из источника по ссылке.

Решение проблемы с SqlConfigDataSource при создании записи в User DSN на Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Canvas ::