F�rum Fonte de dados ODBC #393534

10/01/2011

Bom Dia

Estou precisando de uma ajudinha de vcs , terminei meu sistema agora pela manh� depois de passar a madruga inteira acoradado, enfim estou fazendo uma tela de conex��o Fonte de dados ODBC - firebird -

procedure CreateODBCDataSource(
  const DataSourceName, CharacterSet, Client, Dbname, Dialect, Driver, JdbcDriver, Password, User,  DBType: string);

const
  Key1 = 'HKCU\Software\ODBC\ODBC.INI\';
  Key2 = 'HKCU\Software\ODBC\ODBC.INI\ODBC Data Sources\';
var
  Shell: OleVariant;
begin
  Shell := CreateOleObject('WScript.Shell');
  try
    Shell.RegWrite(Key1 + DataSourceName + '\CharacterSet', CharacterSet);
    Shell.RegWrite(Key1 + DataSourceName + '\Client', Client);
    Shell.RegWrite(Key1 + DataSourceName + '\Dbname', Dbname);
    Shell.RegWrite(Key1 + DataSourceName + '\Dialect', Dialect);
    Shell.RegWrite(Key1 + DataSourceName + '\Driver', Driver);
    Shell.RegWrite(Key1 + DataSourceName + '\JdbcDriver', JdbcDriver);
    Shell.RegWrite(Key1 + DataSourceName + '\Password', Password);
    Shell.RegWrite(Key1 + DataSourceName + '\User', User);

    Shell.RegWrite(Key2 + DataSourceName, DBType);
  finally
    Shell := Null;
  end;
end;

para chamar estou fazendo assim

begin
  CoInitialize(nil);
  try
    CreateODBCDataSource(
    'WIN1252',                                                                                        // CharacterSet
    'C:\WINDOWS\system32\FBCLIENT.DLL',                                          //Client
    ':D\bd\banco de dados\DADOS.FDB',                                               //Dbname
    '3',                                                                                                    //Dialect
    'C:\WINDOWS\system32\OdbcFb.dll',                                               //Driver
    'IscDbc',                                                                                            // JdbcDriver
    'masterkey',
    'SYSDBA');                                                                                             // User
  finally
    CoUninitialize;
  end;
end;

s� que est� dando erro na linha 'SYSDBA'); - E2035 Not enough actual parameters - alguem poderia me dar uma for�a.

Obrigado

Frost

Curtir t�pico

+ 0

Responder

Posts

10/01/2011

Leonardo Xavier

tente modificar esta linha:

':D\bd\banco de dados\DADOS.FDB',

para
D:\bd\banco de dados\DADOS.FDB

Responder

Gostei + 0

10/01/2011

Frost

Bom dia
Leonardo

Pior que n�o � essa linha , depois que postei e fiz a corre��o nessa linha e nada

Responder

Gostei + 0

10/01/2011

Wilson Junior

Olhe a sequencia dos par�metros da sua rotina CreateODBCDataSource e olhe a sequencia que vc est� passando os campos.

Espero ter colaborado.

Responder

Gostei + 0

10/01/2011

Frost

Bom Dia
Wilson / Leonardo

Realmente n�o prestei a aten��o na sequencia,

Obrigado pela dica.

Corrigido agora sim funcionou certinho

  CoInitialize(nil);
  try
    CreateODBCDataSource(
    'Dados',                                                 // DataSourceName
    'WIN1252',                                             // CharacterSet
    'C:\WINDOWS\system32\FBCLIENT.DLL',     // Client
    'D:\bd\banco de dados\DADOS.FDB',         // Dbname
    '3',                                                     //  Dialect
    'C:\WINDOWS\system32\OdbcFb.dll',        // Driver
    'IscDbc',                                             // JdbcDriver
    'masterkey',                                        // Password
    'SYSDBA',                                           // User
    'Firebird/InterBase(r)');                         // DBType
  finally
    CoUninitialize;
  end;

Responder

Gostei + 0