Mam's WebSite

Mamの覚書Q&A検索


大項目:「 Delphi 」 - 中項目:「 いろいろ 」

「 ODBCの設定を行う 」

ODBCの設定を行う


回答

ソース

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 

function SQLConfigDataSource(
  hwndParent:HWND;
  fRequest:Word;
  IpszDriver:PAnsiChar;OpszAttributes:PAnsiChar):Boolean
    ;stdcall;external 'ODBCCP32.DLL';
 
type
  TForm_SettingODBC = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
 
var
  Form_SettingODBC: TForm_SettingODBC;
 
const
  ODBC_ADD_DSN        = 1;  //for user DNS
  ODBC_CONFIG_DSN     = 2;
  ODBC_REMOVE_DSN     = 3;
  ODBC_ADD_SYS_DSN    = 4; //for system DSN
  ODBC_CONFIG_SYS_DSN = 5; //Configure (edit) data source
  ODBC_REMOVE_SYS_DSN = 6;
 
implementation
 
{$R *.dfm}
 
procedure TForm_SettingODBC.Button1Click(Sender: TObject);
var
  str2:PAnsiChar;
  str:AnsiString;
  ret:Boolean;
begin
 
  str:='DSN=接続文字列'+#0+
       'SERVER=サーバー名'+#0+
       'DATABASE=データベース名'+#0;
 
  str2:=PAnsiChar(str);
 
  ret:=SQLConfigDataSource(
    HWnd(nil),ODBC_ADD_DSN, 'SQL Server', str2
  );
 
  if ret then
    showmessage('成功')
  else
    showmessage('失敗');
 

end;
 
end.

Copyright 2019 Mam