小弟请教一个刚开始学习的问题！

Question

就是在主界面打开的时候怎么用程序编写一个用ADO连接SQL server数据库的程序。

Answer 1

procedure tform1.oncreate(send:tobject);
const
 s1='Provider=SQLOLEDB.1;Integrated Security=SSPI;';
  s2='Initial Catalog=hgdata;Data Source=127.0.0.1;';(hgdata为数据库名)
begin
  form6.ADOConnection1.Close;
  form6.ADOConnection1.ConnectionString:=s1+s2;
  form6.ADOConnection1.Open;
  就可以用adoquery来操作数据表了

Answer 2

一般是把连接字符串放在INI文件中，主程序打开时读入连接字符串，再连接ADO即可。

Answer 3

老是看见你...
lianshaohua(永远深爱一个叫“然”的好女孩儿!) 
呵呵.....

Answer 4

var
  iniconfig:Tinifile;
  sservername,suserid:string;
 // sserverip,suserpw:string;
//  spwd,sdbsource:string;
begin
   try
     StrExePath := extractfilepath(application.ExeName);//取得当前应用程序的路径
     iniconfig:=tinifile.create(StrExePath+'ConfigInfo.ini');
     ADOConnection1.Close;
     ADOConnection1.ConnectionString:='';
     try
       sservername:=iniconfig.readstring('config','Server Name','');
       suserid:=iniconfig.ReadString('config','User ID','');
       ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=piccdb;User ID='+
                suserid+';'+'Data Source='+sservername;
       adoconnection1.Connected:=true;
       pu_go:='go';
     finally
       iniconfig.Free;
     end;   except
     pu_go:='';
     Application.MessageBox(
       '读取配置文件发生错误！',
       '警告',
       MB_OK+MB_ICONWARNING);
   end;