DB 커넥션 소스

델파이에서 ADO를 이용해서 SQL 접속문이다,,

폼크레이트할때 넣으면 되겠습니다 ㅎ

procedure Tmain.FormCreate(Sender: TObject);
var
   strConn, 아이피: String;
begin
    ADOConnection1.Connected := false;
    strConn := 'Provider=SQLOLEDB.1;Password=디비비번;Persist Security Info=True;User ID=디비아이디;';
    strConn := strConn + 'Initial Catalog=디비명;Data Source=' + 아이피+ ',1433';
    ADOConnection1.ConnectionString := strConn;
    ADOConnection1.ConnectionTimeout := 50;
    try
       ADOConnection1.Connected := true;
    except
       Application.MessageBox('DATABASE CONNECTION ERROR','DATABASE ERROR',MB_OK);
    end;
end;

제가 사용하고 있는 디비 커넥션 입니다! ㅋ