Peruzzi
Domaćin
- Poruka
- 4.066
Konacno sam seo da uradim maturski, pa sad, narode, pomagaj ;D
ovako sam slozio proceduru da pravi praznu bazu sa tabelom i tri polja, medjutim kad program pozove proceduru javi sledece
Project raised exception class EOleException with message 'Database already exists'. Process Stopped blatruc...
u liniji ispod
{povezivanje komponenti sa praznom bazom}
> Data source < ovaj red obelezi obelezi
desava se jos nesto interesantno - kad pokrenem program u save dialog odem na desktop i ukucam nesto, bilo sta, i program napravi SaveDialog1.ldb koji ima 64KB i ciji je sadrzaj
PERA-832ABB2688 Admin
PHP:
procedure TUredjivac.Nova1Click(Sender: TObject);
var
DataSource : string;
dbName : string;
cs : string;
begin
if SaveDialog1.Execute then
begin
dbName:=SaveDialog1.GetNamePath;
DataSource :=
'Provider=Microsoft.Jet.OLEDB.4.0' +
';Data Source=' + dbName +
';Jet OLEDB:Engine Type=5'; {4 pravi MSAccess 97, a 5 MSAccess2000 bazu}
ADOXCatalog1.Create1(DataSource);
end;
{povezivanje komponenti sa praznom bazom}
DataSource :=
'Provider=Microsoft.Jet.OLEDB.4.0'+
';Data Source='+dbName+
';Persist Security Info=False';
ADOConnection1.ConnectionString := DataSource;
ADOConnection1.LoginPrompt := False;
ADOCommand1.Connection := ADOConnection1;
{dodavanje tabele}
cs:='CREATE TABLE Odeljenje (' + {ovaj deo sadrzi sva polja}
'jmbg NUMBER,' +
'ime TEXT(50),' +
'prezime TEXT(50))';
ADOCommand1.CommandText := cs;
ADOCommand1.Execute;
{odredjivanje primarnog kljuca}
cs:='CREATE INDEX idxPrimary '+
'ON Ucenici (jmbg) WITH PRIMARY';
ADOCommand1.CommandText := cs;
ADOCommand1.Execute;
end;
Project raised exception class EOleException with message 'Database already exists'. Process Stopped blatruc...
u liniji ispod
{povezivanje komponenti sa praznom bazom}
> Data source < ovaj red obelezi obelezi
desava se jos nesto interesantno - kad pokrenem program u save dialog odem na desktop i ukucam nesto, bilo sta, i program napravi SaveDialog1.ldb koji ima 64KB i ciji je sadrzaj
PERA-832ABB2688 Admin