VB与dbf的连接问题

[free_pop2k]

我想在dbf中用脚本导入一个excel表,然后生成一个.dbf文件
以前没有用过vfp,请XSJM帮忙
代码如下:
Dim consql1 As New Connection
Dim rs1 As New ADODB.Recordset
Dim str1 As String
With consql1
.ConnectionString = "ROVIDER=MSDASQL;DRIVER={Microsoft Visual Foxpro Driver};SourceDB=D:\RongHua project\Database\DBF\TaxSystem;SourceType=DBF"
.CursorLocation = adUseClient
.ConnectionTimeout = 180
End With
str1 = "import from " & """" & StrDes & StrID & ".xls""" & " type XL8 Select " & """" & "Report" & """"
If rs1.State = 1 Then rs1.Close
rs1.Open str1, consql1, adOpenStatic, adLockReadOnly
rs1.Close
调试的str1的值为 import from "D:\RongHua project\Output\111111111111111.xls" type XL8 Select "Report"

可到数据库中运行这个脚本时出如下错误:
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效

[wwwwb]

1、必须安装VFP
Set oFoxPro = CreateObject("VisualFoxPro.Application")
oFoxPro.DoCmd ("import from D:\temp\123.xls type XL8")
2、用ADO连接DBF，用JET SQL的SELECT INTO形式

[十豆三]

ADO方式：

标准连接:
"Provider=vfpoledb;Data Source=C:\DatabasePath\MyDatabase.dbc;"
或
"Provider=VFPOLEDB.1;Data Source=d:\temp;Password="";Collating Sequence=MACHINE"
或
"Provider=VFPOLEDB.1;Data Source=\\192.168.0.1\zz;Password="";Collating Sequence=MACHINE"
或
"provider=VFPOLEDB.1;data source=d:\;user id=admin;password="
或
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.1\zz;Extended Properties=dbaSE 5.0;Persist Security Info=False"





ODBC方式：

dBASE:
" Driver={Microsoft dBASE Driver (*.dbf)}; DriverID=277;Dbq=c:\DatabasePath"
注意在书写sql语句时必须指定文件名（如"Select Name, Address From Clients.dbf"）.
Visual Foxpro(有数据库容器):
" Driver={Microsoft Visual Foxpro Driver};UID=; SourceType=DBC;SourceDB=C:\DatabasePath\MyDatabase.dbc;Exclusive=No"
Visual Foxpro(无数据库容器):
" Driver={Microsoft Visual Foxpro Driver};UID=; SourceType=DBF;SourceDB=C:\DbfPath\MyDdbf.dbf;Exclusive=No"

Driver={Microsoft Visual FoxproDriver};
SourceType=DBF;SourceDB=\\192.168.0.1\temp;
Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO"
数据库表
Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=c:\myvfpdb.dbc;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO;
自由表
Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\myvfpdbfolder;Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;

[十豆三]

建议用OLEDB FOR VFP连接，需要安装vfpoledb.exe


http://www.microsoft.com/downloads/details.aspx?FamilyId=E1A87D8F-2D58-491F-A0FA-95A3289C5FD4&displaylang=en

File Name: vfpoledb.exe
Version: 1.1
Date Published: 1/5/2006
Language: English
Download Size: 2.5 MB

[free_pop2k]

我试了那些,怎么还是一样的呢.
各位帮忙看看代码吧,谢谢拉!

[wwwwb]

在ADO连接DBF时，不能使用import from D:\temp\123.xls type XL8，必须用

Set oFoxPro = CreateObject("VisualFoxPro.Application")
oFoxPro.DoCmd ("import from D:\temp\123.xls type XL8")

[wwwwb]

你可以参考JET SQL的SELECT INTO形式。

[free_pop2k]

to wwwwwb()
在ADO连接DBF时，不能使用import from D:\temp\123.xls type XL8，必须用

Set oFoxPro = CreateObject("VisualFoxPro.Application")
oFoxPro.DoCmd ("import from D:\temp\123.xls type XL8")

我的怎么没有DoCmd那个属性啊
dim oFoxPro as new application
Set oFoxPro = CreateObject("VisualFoxPro.Application")
oFoxPro.后就没有这属性,定义有误?

[wwwwb]

注：上述是在VBA中引用，至于怎样在VB中引用，请到VB版块去问吧

[free_pop2k]

我装了Visual Foxpro 6.0
可是在引用中找不到它,为什么?

客户说一定要转化dbf,没有用过,多问下!
解决了加分

[wwwwb]

1、必须安装VFP
2、引用Visual Foxpro x.0 type library
x.0:6.0-9.0
Dim ee oFoxPro New VisualFoxpro.FoxApplication

[wwwwb]

1、必须安装VFP
2、引用Visual Foxpro x.0 type library
x.0:6.0-9.0
Dim oFoxPro as New VisualFoxpro.FoxApplication

[wwwwb]

我装了Visual Foxpro 6.0
是要完整安装的版本，不是所谓绿色版的，因为VFP不用安装也可以使用。

[free_pop2k]

请问上面的:
你只是把Excel save as 成dbf 的后缀名.相当与把.xls改成.dbf
这样的文件能直接用vfp中的数据库打开么?


我要的是怎么从Excel中写数据到一个dbf文件中去.

[十豆三]

'以下我做的一个简单例子，你参考一下
'功能：VB调用Excel，将一个Excel文件另存为Dbf。
'前提：要安装Excel

Dim oExcel As Object
lcSFileName = "D:\test.xls" '源Excel文件名
lcDFileName = "D:\test1.dbf" '目标Dbf文件名
Set oExcel = CreateObject("Excel.Application") '创建Excel对象
oExcel.Workbooks.Open (lcSFileName) '打开Excel表
R = oExcel.SHEETS(1).UsedRange.ROWS.Count '有数据的总行数
C = oExcel.SHEETS(1).UsedRange.Columns.Count '有数据的总列数
oExcel.Cells(R, C).Select '选中数据
oExcel.Columns.AutoFit '让所有的列宽都自动调整
oExcel.DisplayAlerts = Flase '不显示提示框
oExcel.ActiveWorkbook.SaveAs FileName:=lcDFileName, FileFormat:=8
oExcel.ActiveWorkbook.saved = Ture '不保存当前EXCEL表
oExcel.Workbooks.Close '关闭表
oExcel.quit '退出EXCEL
Set oExcel = Nothing '释放对象
MsgBox ("Excel文件: " & lcSFileName & " 另存为 " & lcDFileName & " 完成！")

[十豆三]

你只是把Excel save as 成dbf 的后缀名.相当与把.xls改成.dbf
这样的文件能直接用vfp中的数据库打开么?

当然可以用VFP打开，而且不用安装VFP的任何驱动，但需要安装Excel，Excel一般用户都会用，因为用户必须用，但VFP的驱动但不一定有。


你想从Excel中写数据到一个dbf文件中去，我的方法就是将一个Excel文件另存为DBF，结果是一样的。

你不妨试一试。

[wwwwb]

既然你用的是VB，用ADO连接DBF方法应该知道吧。最简单的方法：
oConnection = CreateObject("adodb.connection") &&建立连接对象
With oConnection
.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\temp\123.xls;Extended Properties="excel 8.0;HDR=YES;IMEX=1;";Persist Security Info=False'
.Open
ENDWITH
oConnection.EXECUTE('select * into [dBase III;DataBase=d:\temp].rr from [sheet5$]')
oConnection.close
上述代码是将123。XLS中的SHEET5中的内容转换成RR。DBF，是VFP代码，自行更改为VB代码