delphi sqlserver导入sql文件代码

下面是使用Delphi与SQL Server导入SQL文件的示例代码：

首先，你需要确定你的Delphi项目中已经连接到了SQL Server数据库。你可以使用TADOConnection组件来建立与数据库的连接。确保使用正确的连接字符串、用户名和密码。

接下来，你可以使用TADOQuery组件来执行SQL语句。在这个例子中，我们将使用LoadFromFile函数从SQL文件中加载SQL脚本，然后执行它。

procedure ImportSQLFile(const FileName: string; ADOQuery: TADOQuery);
var
  SQLScript: TStringList;
begin
  // 加载SQL文件内容
  SQLScript := TStringList.Create;
  try
    SQLScript.LoadFromFile(FileName);

    // 开始执行SQL语句
    ADOQuery.SQL.Clear;
    ADOQuery.SQL.Text := SQLScript.Text;
    ADOQuery.ExecSQL;
  finally
    SQLScript.Free;
  end;
end;

在调用这个函数时，你需要传递SQL文件的文件名和已连接的TADOQuery组件作为参数。确保TADOQuery已经准备好用于执行SQL语句。

使用示例：

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 假设ADOConnection1是已连接到SQL Server的TADOConnection
  ImportSQLFile('C:\path\to\your\file.sql', ADOQuery1);
  ShowMessage('导入完成！');
end;

这段代码将会导入指定的SQL文件，并执行其中的SQL语句。你可以根据自己的需求对SQL文件的路径和已连接的组件进行调整。