Xin giúp đỡ về ADO trong delphi báo lỗi: Parameter object is improperly defined. Inconsistent or incomplete information was provided

[transongngocquan]

procedure TForm1.Button3Click(Sender: TObject);
var
  cnn: TADOConnection;
  qry: TADOQuery;
  sFullName, sSQL:string;
begin
cnn := TADOConnection.Create(nil);
sFullName:='D:\Q1.xls';
cnn.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + sFullName +
                                       ';Extended Properties="Excel 12.0 Xml;HDR=NO";';
cnn.Connected := True;
qry := TADOQuery.Create(nil);
qry.Connection := cnn;
sSQL:='SELECT * FROM [TongHop$]';
sSQL:='SELECT * FROM [TongHop$A2:C100]';
qry.SQL.Text := sSQL;
qry.Open;
qry.Free;
cnn.Free;

end;

trong Delphi đối với câu truy vấn: SELECT * FROM [TongHop$] chạy tốt
nhưng đối với SELECT * FROM [TongHop$A2:C100] là báo lỗi Parameter object is improperly defined. Inconsistent or incomplete information was provided
nhưng trong VBA với SELECT * FROM [TongHop$A2:C100] thì chạy bình thường
xin mọi người giúp đỡ cách khắc phục

 

[transongngocquan]

Phải đặt tên cho vùng Range từ A2:C100 mới chạy SELECT * FROM TEN
(TEN là vùng Range từ A2:C100)
Vậy trong Delphi không thể làm trực tiếp được

 

[Nguyễn Duy Tuân]

Đặt lệnh qry.ParamCheck := False; trước lệnh qry.Open

 

[Hai Lúa Miền Tây]

Đặt lệnh qry.ParamCheck := False; trước lệnh qry.Open

Dạ chính xác là phải trước dòng

qry.SQL.Text := sSQL;

 

[Kiều Mạnh]

Mấy cái đó nó gần như là chuẩn chung rồi ... nên viết thành 1 hàm sử dụng chung cho nhiều trường hợp khác nhau khỏi mất công cứ thế viết lại hoài ..
VD: Hàm truyền 2 cái tham số : Path, SQL ... thế là xong cứ thế mà keo nó chạy cho nhiều trường hợp khác nhau

 

[transongngocquan]

procedure TForm1.Button3Click(Sender: TObject);
var
  cnn: TADOConnection;
  qry: TADOQuery;
  sFullName, sSQL:string;
begin
cnn := TADOConnection.Create(nil);
sFullName:='D:\Q1.xls';
cnn.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + sFullName +
                                       ';Extended Properties="Excel 12.0 Xml;HDR=NO";';
cnn.Connected := True;
qry := TADOQuery.Create(nil);
qry.Connection := cnn;
qry.ParamCheck := False;
sSQL:='SELECT * FROM [TongHop$A2:C100]';
qry.SQL.Text := sSQL;

qry.Open;
qry.Free;
cnn.Free;

end;

Cám ơn

 

[Nguyễn Duy Tuân]

Chào mừng bạn đã đến với Delphi và Excel. Có thời gian bạn có thể xem video hướng dẫn cách lập trình Delphi reference tới DLL Add-in A-Tools để tạo hàm trả về mảng động, co giãn trên worksheet như các hàm A-Tools chạy.

 

[VetMini]

Mấy cái đó nó gần như là chuẩn chung rồi ... nên viết thành 1 hàm sử dụng chung cho nhiều trường hợp khác nhau khỏi mất công cứ thế viết lại hoài ..
VD: Hàm truyền 2 cái tham số : Path, SQL ... thế là xong cứ thế mà keo nó chạy cho nhiều trường hợp khác nhau

Delphi là hướng đối tượng mà, phải hôn?
Để dành sử dụng chung thì viết class chứ sao lại hàm.

 

[Kiều Mạnh]

Delphi là hướng đối tượng mà, phải hôn?
Để dành sử dụng chung thì viết class chứ sao lại hàm.

Tại thấy trong Delphi Khi viết DLL API thì thấy nó Add New Unit ... xong thích viết gì vào đó thì viết chứ cũng không thấy mấy chữ class như VBA Or VB6 nên cũng ko biết keo nó là chi nữa cho đúng với câu từ và thuật ngữ lập trình trên Delphi ...
nên cứ keo đại 1 câu viết vô đó 1 cái hàm xài chung vậy ... suy cho cùng ko chính xác mà cũng ko sai he

 

[VetMini]

Lập trình theo HĐT chỉ là thói quen thôi.
VBA không phải là môi trường HĐT. Mấy cái class trong VBA chỉ gượng gạo. Class modules chỉ là hình thức để VBA nới rộng tầm vực.
Delphi là môi trường thực sự HĐT. Tập làm quen với lối viết này sẽ có lợi rất nhiều về sau.