如何利用delphi7.0与SQL server进行库连接及对库的操作!最好有个小程序供小弟学习!请各位高手帮忙!小弟一定给分!
解决方案 »
- delphi语法求助
- 在adoquery的sql属性里添加了sql语句。然后修改active的属性为true时出现“不正常的定义对象。提供了不一致或不完整的信息”这是什么原因?
- 如何利用api显示窗口(高难)
- ***关于delphi5与delphi6中的区别。
- 一个比较简单的问题!是关于ADOQuery的!
- 急问题,关于第三方控件安装的问题
- delphi2009-关于摄像头保存图片问题
- 一个需要思考的问题!关于StringGrid和ComboBox
- 真诚寻找程序员一起创业!
- 9.11 you know this!!!
- oracle中创建作业的一个问题 万分紧急
- 如何利用delphi7.0与SQL server进行库连接及对库的操作!最好有个小程序供小弟学习!请各位高手帮忙!小弟一定给分!
TADOConnection
TADOQuery
TADOCommand
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
adoQuery1.ConnectionString :='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=GLINK';
//test是数据库名称,glink是服务器名称。end;procedure TForm1.Button1Click(Sender: TObject);
begin
with adoQuery1 do begin
close;
sql.Clear ;
sql.add('select 日期,人员,项目,具体项目,金额 from out');
sql.add('group by 日期,人员,项目,具体项目,金额');
open;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
with adoQuery1 do begin
close;
sql.Clear ;
sql.add('select 日期,人员,项目,具体项目,金额 from out');
sql.Add('order by 日期,人员,项目,具体项目,金额');
open;
end;
end;end.