Fórum Criar Base acess em tempo de execução #235073

  KADaoDatabase1.CreateAccessDatabase(´C:\Teste.mdb´); //usar TKADaoDatabase
  ADOConnection1.ConnectionString :=
  ´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Teste.mdb;´ +
  ´Persist Security Info=False´;
  ADOConnection1.LoginPrompt := False;
  ADOConnection1.Connected := True;
  try
    ADOConnection1.Execute(
      ´CREATE TABLE TABELA (CAMPO INTEGER PRIMARY KEY, CAMPO2 INTEGER)´);
  finally
    ADOConnection1.Connected := False;
  end;