sqlserver在delphi中的查询设置

sqlserver查询顺序如下:

 var
  ADOConnection: TADOConnection;
  ADOQuery: TADOQuery;
  DataSource: TDataSource;
  DBGrid: TDBGrid;
 
begin
  // 创建数据库连接
  ADOConnection := TADOConnection.Create(nil);
  ADOConnection.ConnectionString := 'Provider=SQLOLEDB.1;Password=your_password;Persist Security Info=True;User ID=your_username;Initial Catalog=your_database;Data Source=your_server';
  ADOConnection.LoginPrompt := False;
  ADOConnection.Open;
 
  // 创建查询组件
  ADOQuery := TADOQuery.Create(nil);
  ADOQuery.Connection := ADOConnection;
  ADOQuery.SQL.Text := 'SELECT * FROM your_table'; // 替换为你的查询
  ADOQuery.Open;
 
  // 创建数据源组件
  DataSource := TDataSource.Create(nil);
  DataSource.DataSet := ADOQuery; 
 
  // 创建DBGrid组件
  DBGrid := TDBGrid.Create(nil);
  DBGrid.Parent := Self; // 设置DBGrid的父容器
  DBGrid.DataSource := DataSource;
  DBGrid.Align := alClient; // 使DBGrid填满容器
 
  // 布局DBGrid
  DBGrid.Columns[0].Title.Caption := '列标题1'; // 自定义列标题
  // ... 可以添加更多列标题
 
  // 显示窗体
  Self.Show;
end;


打赏
关键词: sqlserver

14 评论

发表评论