sADOconfig := sADOconfig + 'Provider=' + sRDBMSName + ';';
sADOconfig := sADOconfig + 'Password=' + edPassword.Text + ';';
sADOconfig := sADOconfig + 'Persist Security Info=True' + ';';
sADOconfig := sADOconfig + 'User ID=' + edLoginID.Text + ';';
sADOconfig := sADOconfig + 'Initial Catalog=' + edDBNme.Text + ';';
sADOconfig := sADOconfig + 'Data Source=' + edDBServerIP.Text;
<== 연결 정보를 입력 받아서 연결 스트링을 만들어서 연결하면 됩니다.
아니면 컴포넌트에서 테스트로 연결해서 연결이 되면 그때생긴 스트링을 보면 알수있습니다.
//Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User D=userid;Initial atalog=DatabaseName;Data Source=127.0.0.1
with DataM.LasDbCon do
begin
if Connected then Close;
ConnectionString := sADOconfig;
Open;
end;
<!--CodeE-->
LasDbCon: TADOConnection;
sADOconfig := sADOconfig + 'Provider=' + sRDBMSName + ';';
sADOconfig := sADOconfig + 'Password=' + edPassword.Text + ';';
sADOconfig := sADOconfig + 'Persist Security Info=True' + ';';
sADOconfig := sADOconfig + 'User ID=' + edLoginID.Text + ';';
sADOconfig := sADOconfig + 'Initial Catalog=' + edDBNme.Text + ';';
sADOconfig := sADOconfig + 'Data Source=' + edDBServerIP.Text;
<== 연결 정보를 입력 받아서 연결 스트링을 만들어서 연결하면 됩니다.
아니면 컴포넌트에서 테스트로 연결해서 연결이 되면 그때생긴 스트링을 보면 알수있습니다.
//Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User D=userid;Initial atalog=DatabaseName;Data Source=127.0.0.1
with DataM.LasDbCon do
begin
if Connected then Close;
ConnectionString := sADOconfig;
Open;
end;
<!--CodeE-->