有这样一个过程:
procedure TForm1.Button1Click(Sender: TObject);
var
OpenPath, ConnString: string;
begin
OpenPath := ShellTreeView.SelectedFolder.PathName;
ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
OpenPath+
';Extended Properties=dbase 5.0;Persist Security Info=False';
ADOConn.Close;
try
ADOConn.ConnectionString := ConnString;
ADOConn.Open;
Companyinfo.TableName := 'cpinfo.dbf';
Tsbb.TableName := 'tshz.dbf';
Companyinfo.Open;
Tsbb.Open;
ShowMessage(’数据读取成功!‘);
except
ADOConn.Close;
end;
end;
读出来的数据中文会显示乱码,
但是改成在设计期间就把ADOConnectString加进去的话,就不会出现乱码的问题!
这是什么原因呢?在线等待
procedure TForm1.Button1Click(Sender: TObject);
var
OpenPath, ConnString: string;
begin
OpenPath := ShellTreeView.SelectedFolder.PathName;
ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
OpenPath+
';Extended Properties=dbase 5.0;Persist Security Info=False';
ADOConn.Close;
try
ADOConn.ConnectionString := ConnString;
ADOConn.Open;
Companyinfo.TableName := 'cpinfo.dbf';
Tsbb.TableName := 'tshz.dbf';
Companyinfo.Open;
Tsbb.Open;
ShowMessage(’数据读取成功!‘);
except
ADOConn.Close;
end;
end;
读出来的数据中文会显示乱码,
但是改成在设计期间就把ADOConnectString加进去的话,就不会出现乱码的问题!
这是什么原因呢?在线等待
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货