//Isso é possível utilizando uma API chamada SQLConfigDataSource() que está disponível na ODBCCP32.DLL.
var
Form1: TForm1;
{ constante utilizada na API }
const
ODBC_ADD_DSN = 1;
{ declara a API fazendo referencia a DLL }
function SQLConfigDataSource( hwndParent: HWND; fRequest: WORD; lpszDriver: LPCSTR; lpszAttributes: LPCSTR): BOOL; stdcall; external ‘ODBCCP32.DLL’;
implementation
{$R *.DFM}
procedure CreateDatabase(DbName: String);
begin
SQLConfigDataSource(0, ODBC_ADD_DSN, ‘Microsoft Access Driver (*.mdb)’, PChar (‘CREATE_DB=’ + DbName + #0));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists(‘c:Teste.mdb’) then
DeleteFile(‘c:Teste.mdb’);
try
CreateDatabase(‘c:Teste.mdb’);
ShowMessage(‘MDB criado com sucesso!’);
except
ShowMessage(‘Problemas ao criar o MDB!’);
end;
end;
end.
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário