Q&A

  • MSSQL을 사용한 DB에 대한 ODBC 연결을 코딩으로 하는 방법 좀 알려주세요.
안녕하세요?



MSSQL 데이타베이스를 ODBC를 이용하여, 억세스를 하려 하는데...



코딩으로 할려면, 어떻게 해야 할지...



이곳에 올라와 있는 내용들을 참조해 보았지만, 잘되지 않네요.



고수님들의 도움을 꼬옥 부탁드립니다.



참고로 제가 코딩한 내용입니다.



var

Reg : TRegistry;

sMyStr : TStringList;

begin

if (edServer.Text = '') or (edAlias.Text = '') or

(edDataBase.Text = '') or (edODBCUser.Text = '') or

(edODBCPW.Text = '')

then

begin

ShowMessage('ODBC 설정을 완료해 주십시오.');

Exit;

end

;



Reg := TRegistry.Create;

Reg.RootKey := HKEY_LOCAL_MACHINE;

Reg.OpenKey('SoftwareODBCODBC.INI', False);



Reg.CreateKey(Trim(edAlias.Text));

Reg.OpenKey('SoftwareODBCODBC.INI' + Trim(edAlias.Text), False);

Reg.WriteString('DataBase', Trim(edDataBase.Text));

Reg.WriteString('Driver', 'C:WINDOWSSYSTEMSQLSRV32.dll');

Reg.WriteString('Server', Trim(edServer.Text));

Reg.WriteString('LastUser', Trim(edODBCUser.Text));



Reg.OpenKey('SoftwareODBCODBC.INIODBC Data Sources', False);

Reg.WriteString(Trim(edAlias.Text), 'SQL Server');

Reg.CloseKey;

Reg.Free;



꼬옥...부탁드립니다.

1  COMMENTS
  • Profile
    김종언 2001.08.10 18:18


    홍세비님의 홈페이지입니다.



    정확한 주소는 여기 델파이 링크를 찾아보세요.......



    Source까지 함께 있으니 한번 보세요........





    초보1 wrote:

    > 안녕하세요?

    >

    > MSSQL 데이타베이스를 ODBC를 이용하여, 억세스를 하려 하는데...

    >

    > 코딩으로 할려면, 어떻게 해야 할지...

    >

    > 이곳에 올라와 있는 내용들을 참조해 보았지만, 잘되지 않네요.

    >

    > 고수님들의 도움을 꼬옥 부탁드립니다.

    >

    > 참고로 제가 코딩한 내용입니다.

    >

    > var

    > Reg : TRegistry;

    > sMyStr : TStringList;

    > begin

    > if (edServer.Text = '') or (edAlias.Text = '') or

    > (edDataBase.Text = '') or (edODBCUser.Text = '') or

    > (edODBCPW.Text = '')

    > then

    > begin

    > ShowMessage('ODBC 설정을 완료해 주십시오.');

    > Exit;

    > end

    > ;

    >

    > Reg := TRegistry.Create;

    > Reg.RootKey := HKEY_LOCAL_MACHINE;

    > Reg.OpenKey('SoftwareODBCODBC.INI', False);

    >

    > Reg.CreateKey(Trim(edAlias.Text));

    > Reg.OpenKey('SoftwareODBCODBC.INI' + Trim(edAlias.Text), False);

    > Reg.WriteString('DataBase', Trim(edDataBase.Text));

    > Reg.WriteString('Driver', 'C:WINDOWSSYSTEMSQLSRV32.dll');

    > Reg.WriteString('Server', Trim(edServer.Text));

    > Reg.WriteString('LastUser', Trim(edODBCUser.Text));

    >

    > Reg.OpenKey('SoftwareODBCODBC.INIODBC Data Sources', False);

    > Reg.WriteString(Trim(edAlias.Text), 'SQL Server');

    > Reg.CloseKey;

    > Reg.Free;

    >

    > 꼬옥...부탁드립니다.