Criar driver ODBC para SQL Server 2000

22/01/2010

1

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
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;

Responder