不是只读的,因为其他有delphi 的机器可以正常使用。 这里是部分原代码,请检查; procedure TForm1.FormCreate(Sender: TObject); var apath,constr:string; beginapath:=ExtractFilePath(Paramstr(0));constr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ apath +';Extended Properties=dbase 5.0;Persist Security Info=False';adoquery1.ConnectionString:=constr;end;//以下是添加记录部分。 procedure TForm1.Button1Click(Sender: TObject); begin with adoquery1 do begin close; sql.Clear ; sql.Add ('select id as 编号,name as 标识,type as 时段,qsrq as 起始日期,jsrq as 结束日期,sc as 时长 from jmb;'); execsql; open; end; adoquery1.Append ; adoquery1.Fields[3].asdatetime:=date;
另外,在其他装有delphi的机器,工作正常呀。
路径每问题,因为显示及查询都没问题,只是添加,删除,修改不行。
它只是显示数据,
任何数据来源都可以。
只要是TDataSet的子类
这里是部分原代码,请检查;
procedure TForm1.FormCreate(Sender: TObject);
var
apath,constr:string;
beginapath:=ExtractFilePath(Paramstr(0));constr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ apath +';Extended Properties=dbase 5.0;Persist Security Info=False';adoquery1.ConnectionString:=constr;end;//以下是添加记录部分。
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close; sql.Clear ;
sql.Add ('select id as 编号,name as 标识,type as 时段,qsrq as 起始日期,jsrq as 结束日期,sc as 时长 from jmb;');
execsql;
open; end;
adoquery1.Append ; adoquery1.Fields[3].asdatetime:=date;
end;