如何利用delphi7.0与SQL server进行库连接及对库的操作!最好有个小程序供小弟学习!请各位高手帮忙!小弟一定给分!
解决方案 »
- indy10 的 Idtcpserver 使用造成内存泄漏问题
- delphi6+ADO+SQLSEVER2000 的发布
- 冰天雪地赤身裸体求一SQL语句的写法,应该是属于数据更新吧~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 建议Delphi程序员留下MSN号 方便交流
- 如何分发带MySQL数据库的应用程序? 准备打在一包里一个SETUP 文件就行了
- 那里有交通系统方面的资料。
- Quake II已经从被人从C转换到delphi上了,可是我找不到下载,谁英文好帮忙找一下吧。
- 在dbgrid中怎么用enter键代替tab呢??????
- 整个程序可见的公共变量在什么地方定义?如何引用?
- 是否有获得当前运行程序文件名的函数?
- 如何利用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属性
楼上的代码也有说明了