procedure TForm1.Button1Click(Sender: TObject); begin //创建SQL Server 的ODBC DSN数据源 if trim(edit1.Text)<>'' then begin if CreateSQLServerDsn(trim(Edit1.Text), trim(Edit2.Text),trim(edit7.Text),trim(Edit3.Text)) then begin showmessage('ODBC创建成功!'); end else begin showmessage('ODBC创建失败!'); end; end end; 可参考
begin
//创建SQL Server 的ODBC DSN数据源
if trim(edit1.Text)<>'' then
begin
if CreateSQLServerDsn(trim(Edit1.Text), trim(Edit2.Text),trim(edit7.Text),trim(Edit3.Text)) then
begin
showmessage('ODBC创建成功!');
end else
begin
showmessage('ODBC创建失败!');
end;
end
end;
可参考