第1个问题是:我想将,combobox1,edit1.edit2.edit3中的内容分别的代表服务器,数据库,用户名,密码然后放入到Adoconnection1.ConnectionString :='Provider=SQLOLEDB.1;
                                    Password=1234;       //这里用edit3.text代替;
                                    Persist   Security   Info=True;
                                    server=ipaddress;    //这里用combobox1.text代替;
                                    User ID=sa;          //这里用edit2.text代替;
                                    Initial   Catalog=Uniplus;
                                    Data   Source=ERP';  //这里用edit1.text代替;
但是却不知道怎样放进去,因为在代码里面根本不响应这些组件的text属性,自也取不到这些组件text值来连接第2个问题是:我想利用一个按钮button1来对于符合于终端电脑应用程序相配的数据库来进行搜索,从而在将搜索到有相配数据库的服务器IP地址显示于combobox1中,我的表名为ERP,不过只要能检查到有SQL server数据库的IP地址也行,这样就可以在不知道是那一台局域网中装有数据库的情况下,从而尽快的找到相配数据库的服务器,以上请那位专家能指点一二,最好要有详细的代码

解决方案 »

  1.   

    第一个问题现在也解决了,
    mindatamodule.ADOConnection1.Close;
      mindatamodule.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1'+';Password='+(edit3.Text)+';Persist Security Info=True'+';server='+combobox1.Text+';User ID='+edit2.Text+';initial Catalog=Uniplus'+'; Data Source='+edit1.Text+';';
      try
      mindatamodule.ADOConnection1.Open;
      except
      showmessage('数据库连接不成功');
    写法如上,
    第二个问题,简单一点就是,搜索所有局域网中带有数据库的电脑的IP地址,并将其放入combobox1.items.add()中,同时combobox1.text:=combobox1.items.strings[0],我是不知搜索代码怎样来写
      

  2.   

    GetSQLServerLsit(lst_SQLSrvList:TComboBox);
    var
      SQLServer: Variant;
      ServerList: Variant;
      i, nServers: integer;
    begin
      lst_SQLSrvList.Items.Clear;
      try
        SQLServer := CreateOleObject('SQLDMO.Application');
        ServerList := SQLServer.ListAvailableSQLServers;
        nServers := ServerList.Count;
        for i := 1 to nservers do
          lst_SQLSrvList.Items.Add(ServerList.Item(i));
        SQLServer := NULL;
        serverList := NULL;
        if lst_SQLSrvList.Items.Count >0 then
           lst_SQLSrvList.ItemIndex:=0;
      except
        Application.MessageBox('您当前的机器没有安装SQL Server,无法导入SQL Server服务器列表,'+#13+#10+'请直接输入SQL Server服务器名称!','信息提示',MB_OK+MB_ICONINFORMATION);
      end;
    end;
      

  3.   

    现在我要的是装有这些数据库的电脑的IP地址就可以了,不要详细的数据库名,因为详细的数据库名在下面再来搜索。
    我觉得知道SQL服务名,一般来说,SQL服务名就是计算机名称,可以通过计算机名称来获取IP地址.这个应该可以吧