如何利用delphi7.0与SQL server进行库连接及对库的操作!最好有个小程序供小弟学习!请各位高手帮忙!小弟一定给分!
解决方案 »
- 让listview控件显示checkbox后,我想中进行单一选择,即只能选择一个checkbox像radiobutton一样,怎样实现?
- 多条件查询,怎样加入日期范围查询!
- 读取unicode类型的txt文件
- 晕,这是什么编译错误?
- ado连接到access、SQL的字符串 急!
- 多个EDIT都换成DBEDIT?
- 把dbedit中写入的数据添加到表中怎样用sql实现
- 请如何给一个程序发送组合键消息(如:Ctrl+X)
- 这个问题已折磨我多天,那位高手帮我解决!!!
- 关于smtp的supper莱鸟级问题~~~~~~~~~~~~~~~~
- 如何利用delphi7.0与SQL server进行库连接及对库的操作!回答后立即给分100
- 呵呵!一個簡單問題,為什麼我動態改變panel的大小后,它里面的東西看不見了?
unit Unit1;interfaceuses
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.
就是ADOQuery 用他的 connectionString属性
楼上的代码也有说明了