如何利用delphi7.0与SQL server进行库连接及对库的操作!最好有个小程序供小弟学习!请各位高手帮忙!小弟一定给分!
解决方案 »
- 为什么DELPHI2010中没有IMAGE EDITOR了?
- 我对水波效果算法的一个改进
- 晕了,折腾很久没有搞定,treeView节点图标如何实现想资源管理器那样的效果?
- 没有什么控件可是实现文字和图象并存。想Word一样
- fastreport分栏统计的问题!解决即揭贴!如果有解决方法,分不够还可以加。
- 请问--什么软件里内带有interbase???
- 关于连接远程数据库的问题
- delphi adoquery 动态lookup问题
- 看看怎么办?
- 那位可以个我一份关于Ttreeview控件与数据库表连接并操作(增加,删除)的源代码吗?
- 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.