ado中怎样使用IP代替数据库名?代码怎样?
谢谢!!!巨急!!

解决方案 »

  1.   

    IP怎能代替数据库名,服务器名可以设为IP
      

  2.   

    to TOMWLD(笑天) :
    正是!
    请问怎样代替?
      

  3.   

    procedure TForm1.BitBtn3Click(Sender: TObject);
    var s:string;
    begin
      db.close;
      adodb.close;
      if (trim(edit1.text)='') and (trim(edit5.text)='') then
      begin
         application.MessageBox('服务器IP和主机名不能同时为空!','提示信息',48);
         edit1.SetFocus;
         exit;
      end;
      if trim(edit4.text)='' then
      begin
         application.MessageBox('请输入MSSQL SERVER数据库名!','提示信息',48);
         edit4.SetFocus;
         exit;
      end;
      db.Params.Clear;
      db.DriverName:='MSSQL';
      s:='DATABASE NAME='+trim(edit4.text)+#13;
      s:=s+'SERVER NAME='+trim(edit1.text)+#13;
      s:=s+'USER NAME='+trim(edit2.text)+#13;
      s:=s+'OPEN MODE=READ/WRITE'+#13;
      s:=S+'SCHEMA CACHE SIZE=8'+#13;
      s:=S+'BLOB EDIT LOGGING='+#13;
      s:=S+'LANGDRIVER='+#13;
      s:=S+'SQLQRYMODE='+#13;
      s:=S+'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'+#13;
      s:=S+'DATE MODE=0'+#13;
      s:=S+'SCHEMA CACHE TIME=-1'+#13;
      s:=S+'MAX QUERY TIME=300'+#13;
      s:=S+'MAX ROWS=-1'+#13;
      s:=S+'BATCH COUNT=200'+#13;
      s:=S+'ENABLE SCHEMA CACHE=FALSE'+#13;
      s:=S+'SCHEMA CACHE DIR='+#13;
      s:=S+'HOST NAME='+trim(edit5.text)+#13;
      s:=S+'APPLICATION NAME='+#13;
      s:=S+'NATIONAL LANG NAME='+#13;
      s:=S+'ENABLE BCD=FALSE'+#13;
      s:=S+'TDS PACKET SIZE=4096'+#13;
      s:=S+'BLOBS TO CACHE=64'+#13;
      s:=S+'BLOB SIZE=32'+#13;
      s:=s+'PASSWORD='+trim(edit3.text);
      db.Params.text:=s;
      s:='Provider=SQLOLEDB.1;Password=';
      s:=s+edit3.text+';Persist Security Info=True;User ID='+edit2.text+';';
      s:=s+'Initial Catalog='+edit4.text+';Data Source='+edit1.text;
      adodb.ConnectionString:=s;                 //ADO连接方式
      try
        if adochk.Checked then
           adodb.open
        else db.open;
        application.MessageBox('连接数据库成功!','反馈信息',48);
      except
       on e:exception do application.MessageBox(pchar('无法连接数据库!'+#13+#13+e.Message),'错误信息',16);
      end;
      adodb.close;
      db.close;
    end;
      

  4.   

    直接将ADOCONNECTION组件中的CONNECTION STRING属性值改为"Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=sell;Data Source=202.96.34.188"
      

  5.   

    用的是sybase 数据库,SQL Server下使用知道可以通过。
      

  6.   

    用的是Sql AnyWhere还是Sybase,两者不一样的
      

  7.   

    Data Source = 127.0.0.1就是上面朋友说的改  Data Source
      

  8.   

    好象用sybase 数据库的问题比较多,请高手们继续关注