quarta-feira, 25 de novembro de 2009

Criando um banco de dados ms-access via programação

//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.

Nenhum comentário:

Postar um comentário