用ADO连接EXCEL,为什么不能显示当前位置的中文内容???
如果位置中的内容是数字(123123),就能显示出来,为什么?const
// CONNECTION_STRING = 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Excel Files;Initial Catalog=%s';
CONNECTION_STRING = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0;Persist Security Info=False';procedure TfrmMain.sbConvertClick(Sender: TObject);
begin
ADOConnection.Connected := False;
ADOConnection.ConnectionString := Format(CONNECTION_STRING, ['D:\Delphi\ConvertExcel\Book1.xls']);
ADOConnection.Connected := True;
ADOTable.TableName := 'Sheet$';
ADOTable.Active := True;
ADOTable.RecNo := ADOTable.RecordCount - 1; ShowMessage(ADOTable.FieldByName('C').AsString);
end;
如果位置中的内容是数字(123123),就能显示出来,为什么?const
// CONNECTION_STRING = 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Excel Files;Initial Catalog=%s';
CONNECTION_STRING = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0;Persist Security Info=False';procedure TfrmMain.sbConvertClick(Sender: TObject);
begin
ADOConnection.Connected := False;
ADOConnection.ConnectionString := Format(CONNECTION_STRING, ['D:\Delphi\ConvertExcel\Book1.xls']);
ADOConnection.Connected := True;
ADOTable.TableName := 'Sheet$';
ADOTable.Active := True;
ADOTable.RecNo := ADOTable.RecordCount - 1; ShowMessage(ADOTable.FieldByName('C').AsString);
end;
解决方案 »
- 如何使 一个button 具有 tab order 属性
- ????????????????????????????????????
- 请教一个有关"Banker's Rounding"的问题。
- 为什么我的 .pas不能编译?
- ocx控件属性或方法与asp之间的通信问题
- 求教DELPHI中类的调用
- 谁有有关Delphi和XML编程的列子,高分相求!希望大家帮忙!!!(急!!!!!)
- 用MDI application时,遇到问题了
- 谁知道那里有DEVEXPRESS系列控件下载?
- 请教问题?关于Delphi输出字符串的问题,请指教:
- 广州程序员购买技术书籍大调查.
- devexquantumgridv3.22汉化文件及方法谁要能给我,我把老婆给他
你加一個DBGrid試試, 看在DBGrid中能不能顯示中文
这是什么问题呢?