急求ADOConnection动态链接到SQL Server 数据库的方法.

Question

怎样将一个数据件:adoconnection 链接到本地电脑服务器上的一个名为:carrefour的数据库里去?并且判断是否链接上了.
如果该数据库有密码(前提是我已知道),那么代码又该怎么写呢?
以前没有接解过SQL Server,并且时间非常急,所以请各位大侠帮帮忙.

Answer 1

adoconnection 有一个upd文件修改连接属性即可

Answer 2

是udl文件,随便建一个文件把它命名为*.udl文件,将adoconnection的connectionString的值指向该文件即可,每次双击该文件就可以修改了

Answer 3

to： azsoft(Try my best) ( ) 信誉：84 
还是不明白,说具体一点好吗?我是初学的,懂得不多,那个udl 文件是干嘛用的啊?我的意思是说:每次运行那个程序时,它就自动链接到carrefour那个数据库里去.只要这样就够了.

Answer 4

1.建一个连接文件
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=12345;Initial Catalog=NorthWind;Data Source=127.0.0.1
2.设置ADOConnection的ConnectString属性,使其指向这个文件.

Answer 5

连接SQL SERVER的方法很多 你如果就可以确定这个程序在哪里运行的话 就可以直接把ADOCONNECTION的CONNECTIONSTRING属性设置为固定的 如果有可能经常变动 就可以把这个属性设置UDL文件中的 或者把几个参数保存在INI文件里 系统启动的时候直接读出来就好了。关于CONNECTIONSTRING里的参数怎么定义，这个可以用ADOCONNECTION自己的向导生成，你自己一看就明白了，如果懂ADO的这个不难了解。

Answer 6

Provider=SQLOLEDB.1;Persist Security Info=False;User ID=[user];PWD=[password];Initial Catalog=[test];Data Source=[test]

Answer 7

uses ADOConED;ADOConED.EEditConnectionString(ADOConnection1);

Answer 8

首先数据库（或服务器）必须存在 适用于 SQL SERVER 
*****************************
   Data.ADOConnection1.Connected := False;
    Data.ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;' +
      'Password=' + Trim(PasswordEdit.Text) +
      ';' +
      'Persist Security Info=False;' +
      'User ID=' + Trim(Edit1.Text) + ';' +
      'Initial Catalog=RS;' +
      'Data Source=' + Trim(Edit2.Text) + ';' ;
      Data.ADOConnection1.Connected := True;
     showmessage('服务器已经配置完毕，可以使用！');

Answer 9

1.第一次使用动态设置连接参数
uses AdoConEdEditConnectionString(ADOConnection1);2. 保存 ADOConnection1.ConnectionString 到 ini文件或写入注册表，以后每次使用时，从文件中读。

Answer 10

直接设置adoconnection的ConnectionString属性就行了啊

Answer 11

实例（原代码）:
用到控件:ADOConnection、ADODataSet、DataSource、DBGridUnit1.dfm
----------------------------------------------------------
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 521
    Height = 329
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=myPassword;Persist Security Info=True' +
      ';User ID=Sa;Initial Catalog=pubs;Data Source=SAMPSON'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 168
    Top = 232
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 232
    Top = 232
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from employee'
    Parameters = <>
    Left = 200
    Top = 232
  end
end
-----------------------------------------------------------------------Unit1.pas
-----------------------------------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}end.
-----------------------------------------------------------------------Project1.dpr
-----------------------------------------------------------------------
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
------------------------------------------------------------------------复制粘贴即可调试（已成功通过）