如何用ADO连接SQL　SERVER？给段代码！！高分300(300分)

如何用ADO连接SQL　SERVER？给段代码！！高分300

用控件还是原生ado

书上都有
你想要什么，
我给你邮一个

晕，这也要！
给你一个！
adoconnection1.connectionstring:='Provider=SQLOLEDB.1;Password=preprep;Persist Security Info=True;User ID=wwwuser;Initial Catalog=custom;Data Source=139.139.10.54';
adoconnection1.connected:=true;

faint ......
这种问题你也敢问 。。。
你为什么不问如何吃饭??
好像90%的delphi 有关数据库部分的书中都有吧

ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=True;User ID=' + UserId +
';Initial Catalog=' + DBName + ';Data Source=' + Serverip + ';';
ADOConnection1.Open(UserId, UserPass);

大家原谅一下嘛，谁让咱是只吃菜的鸟呢？

但也不用300呀！

真的是是300分吗？不用这么多吧
双击ADOConnection1。
会弹一个对话框出来,单击Build..,在数据库连接属性页选择"Microsoft OLE DB Provider
for SQL Server"
单击下一步
选择服务器名称
输入用户口令和用户
再选择一个数据库，TEST一下，通过
就这样

uses ADODB

ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=localhost';
ADOConnection1.Open;

其中ConnectionString里意思是
Data Source //数据库服务器名 如果是本机可以使用localhost 或机器名
Initial Catalog //数据库名
User ID //用户名
Password //用户密码
Provider //数据驱动

大送分呀，我也要
点击ADOConnection1的属性ConnectionString侧可完成连接
也可如下：
ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;'+
'Persist Security Info=False;User ID=sa;Initial Catalog=yw;'+
'Data Source=YUWEI_SERVER;Use Procedure for Prepare=1;'+
'Auto Translate=True;Packet Size=4096;Workstation ID=KUN'；
adoconnection1.connected:=true;

天上掉下个林妹妹
点击ADOConnection1的属性ConnectionString侧可完成连接
也可如下：
ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;'+
'Persist Security Info=False;User ID=sa;Initial Catalog=yw;'+
'Data Source=YUWEI_SERVER;Use Procedure for Prepare=1;'+
'Auto Translate=True;Packet Size=4096;Workstation ID=KUN'；
adoconnection1.connected:=true;

有点简单，我是刚来的
认识一下大家
望以后多帮助

是不是早连上了

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,IniFiles, DB, ADODB, adoconed,StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
Adocon1: TADOConnection;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Edit5: TEdit;
Label5: TLabel;
AdoTable1: TADOTable;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
begin
if (Edit1.text='') and (Edit2.text='')
and (edit3.Text='')and (edit4.text='')then
EditConnectionString(Adocon1)
else
str1:='Provider=SQLOLEDB.1;Password='+edit4.text+';Persist Security Info=True;User ID='+edit3.Text+';Initial Catalog='+edit2.Text+';Data Source='+edit1.Text;
//str2:='Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CT;Use Encryption for Data=False;Tag with column collation when possible=False
adocon1.ConnectionString:=str1;
adocon1.Connected:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
b:integer;
begin
b:=strToint(Edit5.text);
AdoTable1.Connection:=AdoCon1;
AdoTable1.TableName:='ct_cp';
AdoTable1.Active:=true;
AdoTable1.First;
while not AdoTable1.Eof do
begin
b:=1+b;
AdoTable1.edit;
AdoTable1.FieldByName('cpbh').AsString:=inttostr(b);
AdoTable1.Next;
end;
end;

end.
应该没问题

????????????????????

问：都来干吗了？
众答曰：抢分！ []

:_)

为何我的机器上在设ADOConnectino的ConnectionString的时候在先ole db提供者的时候没有SQLOLEDB.1

那我该选什么？

这个问题是很简单，但是对于新手来说也没有那么容易的!
因为我也曾经是新手!也有过这样的苦恼!
用原生ADO,也就是说自己写代码创建CONNETION对象进行连接的话，就去看李维的书!
用DELPHI自己带的话，上面兄弟讲的都有了,要不你自己搜索一写DFW!
兄弟,祝你好运!

hi