Criar driver ODBC para SQL Server 2000
22/01/2010
0
Olá pessoal,
Estou precisando criar o driver de conexão com o SQL server, porém em tempo de execução. Alguém tem esta função pronta?
Lembrando que é para SQL Server
Estou precisando criar o driver de conexão com o SQL server, porém em tempo de execução. Alguém tem esta função pronta?
Lembrando que é para SQL Server
Andre Brito
Curtir tópico
+ 0
Responder
Posts
22/01/2010
Andre Brito
Eu conseguir fazer. Para quem quiser o script é este:
procedure TForm1.Button3Click(Sender: TObject);
Var fReg : TRegistry;
begin
fReg:= TRegistry.Create;
// Aqui selecionamos o local em que será criado a nossa fonte de dados do sistema, por padrão é sempre criado em HKEY_CURRENT_USER.
fReg.RootKey := HKEY_LOCAL_MACHINE;
// Aqui defino o Alias do banco
fReg.OpenKey('SOFTWARE\ODBC\ODBC.INI\NOME_DO_DRIVER_ODBC', True);
fReg.WriteString('Database', 'NOME_DO_BANCO_DE_DADOS');
// Já nessa parte é onde fica a informação da DLL referente a fonte de dados
fReg.WriteString('Driver', 'C:\WINDOWS\system32\SQLSRV32.dll');
fReg.WriteString('Server', 'NOME_DO_SERVIDOR');
fReg.WriteString('LastUser', '');
fReg.WriteString('Trusted_Connection', 'Yes');
// O local onde será criado o nome da fonte de dados
fReg.CloseKey;
fReg.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources', True);
// Aqui deve ter bastante cuidado, pois devemos informar o nome do Alias e qual o nome do drive a ser usado (O nome do alias é onde ficará todas as informações passadas logo acima).
fReg.WriteString('BomixExemplo', 'SQL Server');
fReg.CloseKey;
fReg.Free;
procedure TForm1.Button3Click(Sender: TObject);
Var fReg : TRegistry;
begin
fReg:= TRegistry.Create;
// Aqui selecionamos o local em que será criado a nossa fonte de dados do sistema, por padrão é sempre criado em HKEY_CURRENT_USER.
fReg.RootKey := HKEY_LOCAL_MACHINE;
// Aqui defino o Alias do banco
fReg.OpenKey('SOFTWARE\ODBC\ODBC.INI\NOME_DO_DRIVER_ODBC', True);
fReg.WriteString('Database', 'NOME_DO_BANCO_DE_DADOS');
// Já nessa parte é onde fica a informação da DLL referente a fonte de dados
fReg.WriteString('Driver', 'C:\WINDOWS\system32\SQLSRV32.dll');
fReg.WriteString('Server', 'NOME_DO_SERVIDOR');
fReg.WriteString('LastUser', '');
fReg.WriteString('Trusted_Connection', 'Yes');
// O local onde será criado o nome da fonte de dados
fReg.CloseKey;
fReg.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources', True);
// Aqui deve ter bastante cuidado, pois devemos informar o nome do Alias e qual o nome do drive a ser usado (O nome do alias é onde ficará todas as informações passadas logo acima).
fReg.WriteString('BomixExemplo', 'SQL Server');
fReg.CloseKey;
fReg.Free;
Responder
Clique aqui para fazer login e interagir na Comunidade :)