Access и ADO

[stel2]

PHP код:

if item=1 then begin
cr:=0 ;
AdoTable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit2.text+';Persist Security Info=False';
ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit2.text+';Persist Security Info=False';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit2.text+';Persist Security Info=False';
k:=1;
t:='';
q:=DateToStr(Now());

for i:=1 to length(q) do begin
if q[i]<>'.' then t:=t+q[i];
end;

sl:=TStringList.create;
ADOConnection1.Connected:=true;
ADOConnection1.GetTableNames(sl,false);
s:='';

for r:=1 to y do s:=s+inttostr(r)+' VARCHAR( 43 ) NOT NULL, ';
s[length(s)-1]:=')';
s[length(s)]:=';';

for i:=0 to (sl.Count-1) do begin
If sl[i]=t then cr:=1
end;

if cr=1 then begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoQuery1.SQL.ADD('DROP TABLE '+t+';');
adoQuery1.ExecSQL;
adoquery1.Close;
adoquery1.SQL.Clear;
adoQuery1.SQL.add('CREATE TABLE '+t+' ('+s);
adoQuery1.ExecSQL;
end
else begin
label1.caption:=inttostr(sl.Count);
adoquery1.Close;
adoquery1.SQL.Clear;
with adoquery1.SQL do
add('CREATE TABLE '+t+' ('+s);
adoQuery1.ExecSQL;
//adoQuery1.SQL.Clear;


end;


ADOTable1.TableName:=(t);
ADOTable1.Open;
ADOTable1.append;



repeat
for R:=1 to Y do ADOTable1.FieldByName(inttostr(r)).value:=StringGrid1.Cells[(R),(k)];

inc(k,1);
ADOTable1.Post;
ADOTable1.Append;

until
K>X;

ADOTable1.Close;


end;

ADOQuery1.Close;
ADOConnection1.Connected:=false;
sl.Destroy;
end; 


Вот такой вот код выполняеться при нажатии кнопки, сначало все ОК. Но на втором нажатии на эту же кнопку пишет, что такая база не найдена и проверьте путь. Всю голову изломал. Если кто подскажет лучше код может проще будет. Есть StringGrid, конектимся к базе, если есть такая же таблица то удаляем ее и создаем на ее месте новую и переносим туда данные из StringGrid.


Програмирование у меня на любительском уровне так что прошу строго не пинать, попросили прогу написать а тут такая запара.

[stel2]

Нда чтото сам вобще не могу разобраться, хелп плз.

Самое интересное что если открыть базу в Ассess руками, а потом тупо закрыть (при этом из программы не выходить) после первого нажатия, то второе нажатие пройдет как по маслу а третье не сработает, только если открыть снова базу в Ассеss.

[S@fer]

А зачем Вы подключаете отдельно AdoQuery и AdoTable, не лучше ли их связать AdoConnection,

ADOQuery1.Connection:=ADOConnection1;

[stel2]

Опа все заработало


концовка
ADOTable1.Close;
ADOTable1.TableName:='';
ADOQuery1.Close;
sl.Destroy;
adoconnection1.Close;

Сввязал на форме АDOTable с конектом и куери с конектом и сетр строки
AdoTable1.ConnectionString:='Provid er=Microsoft.Jet.OLEDB.4.0;Data Source='+edit2.text+';Persist Security Info=False';
ADOQuery1.ConnectionString:='Provid er=Microsoft.Jet.OLEDB.4.0;Data Source='+edit2.text+';Persist Security Info=False';


Пасиб большое не когда бы не догадался что дело в этом.