开心六月综合激情婷婷|欧美精品成人动漫二区|国产中文字幕综合色|亚洲人在线成视频

（1）通過ODBC＋ADO的方式連：

    with ADOCon1 do

    begin 
      Close;
      ConnectionString:=( 'DRIVER={MySQL ODBC 5.1 Driver}; '+
                                  'SERVER=192.168.1.107; '+
                                  'DATABASE=test; '+
                                  'USER=root; '+
                                  'PASSWORD=root; '+
                                  'PORT=3406; '+
                                  'OPTION=3; ');
      try

        Open;
        application.MessageBox( '連接成功！', '提示 ',MB_ICONINFORMATION);

      except
        application.MessageBox( '無法連接數(shù)據(jù)庫服務(wù)器.請(qǐng)與管理員聯(lián)系 ', '提示 ',MB_ICONINFORMATION);
      end;  //try

   end;  //with

（2）通過DBExpress連：

  SQLConnection1.Connected:= false;
 
  with SQLConnection1.Params do
  begin
    Text:='DriverName=MSSQL'+#13+
      'ServerPort=' + 3406 + #13+
      'HostName=' + '192.168.1.107'+ #13+
      'DataBase= test' +#13+
      'User_Name=root'+#13+
      'Password=root'+#13+
      'BlobSize=-1'+#13+
      'ErrorResourceFile='+#13+
      'LocaleCode=0000'+#13+
      'ServerCharset=gb2312'+#13+
      'MSSQL   TransIsolation=ReadCommited'+ #13+
      'OS   Authentication=False';
  end;
  try
    SQLConnection1.Connected:=true;

    application.MessageBox( '連接成功！', '提示 ',MB_ICONINFORMATION);
  except
     application.MessageBox( '無法連接數(shù)據(jù)庫服務(wù)器.請(qǐng)與管理員聯(lián)系 ', '提示 ',MB_ICONINFORMATION);  

  end;

注：在delphi7及以下版本，ServerPort設(shè)置無效

（3）通過MyDAC連：

  with ADOCon1 do
  begin
    Close;

    Server:= '192.168.1.107';
    Port:= 3406;
    Username:= 'root';
    Password:= 'root';
    Database:= 'test';
    Options.Charset:= 'gb2312';

    try
      Open();

      application.MessageBox( '連接成功！', '提示 ',MB_ICONINFORMATION);

    except
      application.MessageBox( '無法連接數(shù)據(jù)庫服務(wù)器.請(qǐng)與管理員聯(lián)系 ', '提示 ',MB_ICONINFORMATION);
    end;  //try
  end;   //with