Delphi+DBase+SQL (HELP)

გამარჯობათ. მჭირდება დახმარება.
ვხსნი DBase-ის ფაილს და ვამატებ ველს, შემდეგ როდესაც ვცდილობ Query-ის გახსნას მიგდებს შეცდომას.
პროგრამის კოდის ნაწილს აქვს დაახლოებით ესეთი სახე:

procedure TForm1.Search_City_State_Zip_PostalCode_Zip4;
var TempRec, S, RecChangeChecker :String;
Query_For_States :TQuery;
CommaPosition, SpacePosition, LeaderPositions, RecPositionChecker, R :integer;
MyDir:String;
begin
if ((City_State_Zip.Text<>'') or (City_State_Zip.Text<>'<none>')) then
if Query.Active then Query.Close;
if (State.Text<>'') and (State.Text<>'<none>') then
begin
Query.SQL.Text:='Alter Table '+'"'+BrowseDialog.FileName+'"'+' Add '+''+State.Text+''+' Char('+StateSize.Text+')' ;
Query.Prepare;
Query.ExecSQL;
end;
Query_For_States:=TQuery.Create(Self);
MyDir:=ExtractFilePath(ParamStr(0));
Query_For_States.SQL.Text:='Select * From "'+MyDir+MyFile.Dbf"';
Query.Open; (*შეცდომა გამოაქვს აქ*)
Query.First;
Query_For_States.Open;
Query_For_States.First;
end;


მიმაგრებული სურათი

Query_For_States.SQL.Text:='Select * From "'+MyDir+MyFile.Dbf"'
ამის მერე უნდა მოდიოდეს Query_For_States.Open და არა Query.Open (ველი უკვე შექმნილია)

Query.Prepare საერთოდ მოაშორე, რა საჭიროა...
* * *
საერთოდ, გააკეთე ასე:

ამის მაგივრად

CODE

Query_For_States:=TQuery.Create(Self); MyDir:=ExtractFilePath(ParamStr(0)); Query_For_States.SQL.Text:='Select * From "'+MyDir+MyFile.Dbf"'; Query.Open; Query.First; Query_For_States.Open; Query_For_States.First;

ჩასვი ეს:

CODE

Query_For_States.DatabaseName:=MyDir; Query_For_States.SQL.Text:='select * from MyFile.Dbf'; Query_For_States.Open; Query_For_States.First;

This post has been edited by GASTON on 28 Nov 2003, 23:22

GASTON
საქმე იმაშია, რომ მაგ პროცედურის გარეთ Query მაქვს გლობალურად აღწერილი. Query რომელ ცხრილსაც უკეთებს აბსტრაკციას სწორედ იმ ცხრილში ვამატებ ველს და ამიტომაც მე რაც მიწერია იმას ვერ შეცვლი ვერანაირად. სხვა საკითხია ის რომ შენ მთავაზობ ალიასის გამოყენებას, მე ეგ ვარიანტი სრულებითაც არ მაწყობს. მოკლედ მინდა ვიმუშაო უალიასოდ.
მე ის მიანტერესებს Query.Open-ზე რატმო აგდებს შეცდომას. არადა ის ველი ემატება(რომელთაც SQL-ების საშუალებით ვამატებ), მაგრამ Query.Open-ზე აგდებს შეცდომას. რატომ?
მადლობა დახმარებისათვის.

შეცდომას აგდებს იმიტომ, რომ Query-ს SQL-ი შეიცავს "Alter Table..."
დახურე და თავიდან მიუთითე საჭირო SQL (select * from ...).

თუ რამეა - დაწერე!

ხო, რატომ იყენებ DBase-ს და რატომ არ იყენებ ალიასებს???

GASTON

QUOTE

შეცდომას აგდებს იმიტომ, რომ Query-ს SQL-ი შეიცავს "Alter Table..." დახურე და თავიდან მიუთითე საჭირო SQL (select * from ...).

ეგ კიმასეა, მაგრამ მეორედ მაგის გაკეთება აღარ მინდა. ნუ რამეს მოვახერხებ.

QUOTE

ხო, რატომ იყენებ DBase-ს

Dbase-ს იმიტომ ვიყენებ რომ პროექტშია ესეთი მოთხოვნა. პროგრამამ უნდა იმუშაოს შემდეგი ტიპის ფაილებთან: DBase, ASCII (csv, tab, txt და ა.შ. ანუ comma delimited ფაილებთან), Excel, Access, Paradox. თავიდან ვაკეთებდი ADO-თი, მიუხედავად იმისა, რომ ADO ყველა ვარიანტში მუშაობს კლინეტ-სერვერის რეჟიმში ლოკალურ ბაზებთნაც და კლიენტ სერვერთანაც. მაგრამ შევხვდი პრობლემას, ADO ვერ ხედავს DBase-ის და Paradox-ის ზოგეირთი ეგზოტიკური ფორმტის BLOB ტიპის ველებს. ამაზე ბევრი ვიჩალიჩე, მეთოდები თავიდან გადავწერე, მაგრამ არ უშველა. ეს იმიტომ, რომ მეთოდი GetFieldNames, რომელიც თრეულობს ცხრილის ფიზიკური ველებiს სახელებს გადის ჩერეზე OpenSchema ამაზე ქვევით კიდევ ვერღარ ჩახვალ, დაჟე OLE DB-თიც კი.ამიტომ იძულებული გავხდი გამომეყენებინდა BDE.

QUOTE

რატომ არ იყენებ ალიასებს???

ალიასებს იმიტომ არ ვიყენებ, რომ სადაც ეს პროგრამა უნდა დაყენდეს იქ მე ფიზიკურად ვერ მოვხვდები, ჩემს პროგრამას კი ვატან BDE-ს შემცირებულ ვარიანტს (სადღაც 3 მეგა არის), მაგრამ იქ მე ალიასებს ვერ დავაყენებ, შენ ალბათ იტყვი რომ შემიძლია ალიასი შევქმნა პროგრამულად და ისე გამოვიყნო, ყოველი ჩატვრითვისას, მაგრამ ჩემს მეთოდს რას უწუნებ?
* * *

QUOTE

Query.Prepare საერთოდ მოაშორე, რა საჭიროა...

ამას რაც შეეხება :
(Help)
Sends a query to the Borland Database Engine (BDE) and the server for optimization prior to execution.

ძალიან ვწუხვარ, რომ ბევრი ვერაფრით დაგეხმარე (ძალიან ძნელია ასე, ვირტუალურად რაიმეს რჩევა).

nika_k
დაქოქე მირსი, შააბიჯე efnet-ის რომელიმე სერვერზე, მერე კიდო შააბიჯე არხზე დელფი შაეკითხე და აჩვენე შენი კოდი
მგონი მაგეხმარებიან

GASTON
შენ წარმოიდგინე ბევრ რამეში დამეხმარე. მადლობა

ACHRDILI

აბა ერთი ეგ პროცედურა დაწვრილებით ამიხსენი. თავისი მისამართებით და რამე.

nika_k
რა მისამართებითა კაცო?
მეკაიფებიი?
ისე, თუ არ მეკაიფები მაშინ აჰა ინსტრუქციაი:
მირსით ჩატში ხო ყოფილხარ არააა, ჰოდა იქა დალნეტის გარდა არი კიდე ეფნეტის სერვერებიი. ნახავ მირსის ოპციებში. ჰოდა შაუერთდები და მერე იქ შახვალ არხზე #delphi და ჰკითხაამ. ჰოოდედა არი საიტები სადაც შაგიძლია კოდი ჩააწებო და მერე ნახავენ იმ არხზე ვინც არი ისინიც - ეს იმიტომ რომ არხზე დიდი მოცულობის კოდს არ დაგაწერინებენ. ჰოდა გამოგეხმაურება ვინმე და გაგცემს პასუხსა. მე ბევჯერ და ბევრ რამეში დამეხმარნენ მაგ არხზე.

ჰო, კიდე ყველას ვურჩევ აქტიურად გამოიყენოს ნიუსგრუპები. მანდაც კარგად დაგეხმარებიან.

ACHRDILI
საქმე იმაშია, რომ mirc-ით არასოდეს არ მისარგებლია. უფრო ICQ-ს ვიყენებ. შენ რასაც მეუბნები ის შემიძლია ფორუმებზეც ვიკითხო. რაც გავაკეთე უკვე და სიმართლე გითხრა დიდი შედეგი არ მოუტანია.