안녕하세요?
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;
꼬옥...부탁드립니다.
홍세비님의 홈페이지입니다.
정확한 주소는 여기 델파이 링크를 찾아보세요.......
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;
>
> 꼬옥...부탁드립니다.