delphi怎么连接dbf表,以及对dbf表添加数据?
比如我从EXCEL中去出两列数据,然后用循环添加到dbf表中!
比如我从EXCEL中去出两列数据,然后用循环添加到dbf表中!
解决方案 »
- 一个求1到1000数的阶乘和数 pascal!
- JAVA转变为DELPHI代码
- 散分,刚才无意占到了20楼得了200分
- 填充了一个矩形,怎么样让这个矩形(R)有一种突起的感觉?
- 动态创建的WebBrowser如何捕捉newWindows消息
- 怎么改变子菜单的字体?
- TQuery 控件中的一个小问题
- 请问如何将从数据库中读取的值放入ComboBox组件中?
- 远程提取图片的效率问题,请各位发表一些建议!
- 设计阶段与运行阶段有何区别
- 如何把停靠的那个两行的双击事件屏蔽掉呢
- 我有DELPHI2006在使用时经常出现点击另一个窗口控件后,在左边的对象观察器中仍是上个控件的属性,你们遇见过么?是不是BUG呀?
然后.....就不用说了
有没有相关的代码?
呵呵,自己去找吧
bde:
http://community.csdn.net/Expert/topic/4449/4449770.xml?temp=.3610956
用ado,联接串为:
Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=d:\temp;Extended Properties=dbase 5.0;Persist Security Info=True
有没有更详细的例子?
procedure TForm1.Button1Click(Sender: TObject);
var vfpdbfpath,sql:string;
begin
vfpdbfpath:='F:\新建文件夹\database\FOXUSER.DBF' ;
try
ADOConnection1.Close;
adoconnection1.ConnectionString:='Provider=MSDASQL.1;'
+ 'Persist Security Info=False;'
+ 'Extended Properties='
+ '"Driver={Microsoft Visual FoxPro Driver};'
+ 'UID=;'
+ 'SourceDB=' + vfpdbfpath //这里的变量是DBF文件名
+ ';SourceType=DBF;'
+ 'Exclusive=No;'
+ 'BackgroundFetch=Yes;'
+ 'Collate=Machine;'
+ 'Null=Yes;'
+ 'Deleted=Yes;"';
ADOConnection1.Open;
if ADOConnection1.Connected then
begin
application.MessageBox('数据库连接成功!','系统提示');
sql:='select * from FOXUSER';
adoconnection1.Execute(sql) ;
end;
except
application.MessageBox('数据库连接失败,请确认无误后重试!','提示:')
end;
end;
====================================================================================
我运行的时候提示连接成功,但是到adoconnection1.Execute(sql);就会出错。
我觉得还是连接的不对,因为我把路径改为D盘下面它也提示成功,D盘下更本就没有那个表。
各位大侠帮帮啊。
adoconnection1.ConnectionString:='
Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='+vfpdbfpath+';Extended Properties=dbase 5.0;Persist Security Info=True';
另外vfpdbfpath是路径名,不能带文件名
vfpdbfpath:='F:\新建文件夹\database\'