Let's take a look at this code

maweike

procedure ConnDb (servername, userid, pwd, dbname: String);
var
  ConnStr: string;
begin
  try
    ConnStr: = 'Provider = SQLOLEDB.1; Password =' ​​+ pwd +
      '; Persist Security Info = False; User ID =' + Userid + '; Initial Catalog =' + DBName
      +
      '; Data Source =' + Servername;
    ADOConnection1.ConnectionString: = ConnStr;
    ADOConnection1.Connected: = true;
  except
    ShowMessage ('Unable to connect to the database!');
  end;
end;

The above code is connected to the database. There are four character variables on it, but these variables cannot read the information from the machine into the program at all. In other words, the database cannot be connected. Let's see how to modify it to read the information correctly and connect to the database.

njy7648

I think there is no error in the above syntax. It may be that your parameters are incorrect and the connection fails. Use the following dynamic settings to see:
ADOConnection1.Connected: = false;
ADOConnection1.ConnectionString: = PromptDataSource (Handle, ADOConnection1.ConnectionString);
ADOConnection1.Connected: = true;
Where Handle is the window handle

athena815

Is your ODBC set up?

溯夜惊蛰

What about your datasource?