盒子论坛 v2.1

在ADOconnection或ADOTable组件的connectionString属性中去连接吧!一般三步搞定,没什么了不起的. 不过,对于你来说,可能是有些难处,因为你既然相用delphi+SQL,你如何连接他们都不会,这就有些问题了,如果你有兴趣的话,请将邮址写上,我前些时写了一个稿子,打算拿去发,人家不要,里面正好详解了如何建立连接的问题!
----------------------------------------------
-

作者：

xcml (xcml)	★☆☆☆☆	-
	盒子活跃会员

2004/3/18 17:14:13

5楼：

给俺发一份吧 2-li@163.com
Thanks!
----------------------------------------------
-

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/18 18:08:05

6楼：

//获取数据库连接字符串(SqlServer2000)
Function GetDBConnectionString(IP,DataBaseName,UserName,UserPassWord:String):String;
Var
  DBConnectionString:String;
  DBTableName:String;
  ADOConnection_DB:TADOConnection;
  ADODataSet_DB:TADODataSet;
  DataSource_DB:TDataSource;
Begin
  DBConnectionString:='Provider=SQLOLEDB.1;Password='+UserPassWord+';Persist Security Info=True';
  DBConnectionString:=DBConnectionString+';User ID='+UserName+';Initial Catalog='+DataBaseName+';Data Source='+IP;
  Result:=DBConnectionString;
End;

//连接SQLSERVER2000数据库
Function ConnectDataBase():Boolean;
Var
  DataBaseName,UserName,UserPassWord,IP:String; //定义数据库名、用户名、密码、表名和连接IP
Begin
  IP:=GetIPAddress; //ReadConfig(IniFileName,'DBSet','IP');                    //获取计算机IP
  DataBaseName:=ReadConfig('DBSet','DataBaseName','); //数据库名称
  UserName:=ReadConfig('DBSet','UserName',');         //数据库用户名称
  UserPassWord:=ReadConfig('DBSet','UserPassWord','); //数据库密码
  Try
    With ADOConnection_DB Do
    Begin
      LoginPrompt:=False;
      ConnectionString:=GetDBConnectionString(IP,DataBaseName,UserName,UserPassWord);
      Connected:=False;
      Connected:=True;
      Result:=True;
    End;
  Except
    On E:EOleException Do
    Begin
      Result:=False;
      Beep();Beep();
      MessageDLG('Error：'+E.Message,MtWarning,[MBOK],0);
    End;
  End;
End;

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

信息

登陆以后才能回复