发现2000以上的系统的foxpro驱动vfpodbc.dll(21K)是不能链接的,
然后我拷贝个支持的大概955K到SYSTEM32下覆盖原来的就可以了,
问题是,如果我要发布到购买的空间服务器器上,就不能自己注册支持这种方式的动态库了,
请问还有什么办法解决,通过OLEDB,也是说本地没有注册,(外面购买的空间不一定给你注册吧)
发现XP不可以,2003也不可以
还有什么其他的办法读取吗?有谁有第三方的免费控件吗? Public Function DbfToDs(ByVal path As String, ByVal filename As String) As DataSet
Dim my_conn As OdbcConnection
Dim my_adapter As OdbcDataAdapter
Me.my_TablePath = path
Me.my_TableName = filename
Try
'Me.my_StrConnection = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Me.my_TablePath
'Me.my_StrConnection = "Driver={Microsoft FoxPro VFP Driver (*.dbf)};SourceType=DBF;SourceDB=" & Me.my_TablePath
'Me.my_StrConnection = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & Me.my_TablePath & ";"
'Me.my_StrConnection = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Me.my_TablePath & ";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO"
Me.my_StrConnection = "Provider=vfpoledb.1;Data Source=" & Me.my_TablePath & ";Collating Sequence=general"
'Me.my_StrConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.my_TablePath & ";Extended Properties=dBASE IV;User ID=Admin;Password=" Me.my_StrSelect = "SELECT * FROM " & Me.my_TableName
my_conn = New OdbcConnection(Me.my_StrConnection)
my_conn.Open()
my_adapter = New OdbcDataAdapter(Me.my_StrSelect, my_conn)
Me.my_Ds = New DataSet '填充数据
my_adapter.Fill(Me.my_Ds, Me.my_TableName)
Return Me.my_Ds
Catch ex As Exception
System.Web.HttpContext.Current.Response.Write(ex.Message & my_StrSelect)
my_conn.Close()
Return Nothing
End Try End Function
然后我拷贝个支持的大概955K到SYSTEM32下覆盖原来的就可以了,
问题是,如果我要发布到购买的空间服务器器上,就不能自己注册支持这种方式的动态库了,
请问还有什么办法解决,通过OLEDB,也是说本地没有注册,(外面购买的空间不一定给你注册吧)
发现XP不可以,2003也不可以
还有什么其他的办法读取吗?有谁有第三方的免费控件吗? Public Function DbfToDs(ByVal path As String, ByVal filename As String) As DataSet
Dim my_conn As OdbcConnection
Dim my_adapter As OdbcDataAdapter
Me.my_TablePath = path
Me.my_TableName = filename
Try
'Me.my_StrConnection = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Me.my_TablePath
'Me.my_StrConnection = "Driver={Microsoft FoxPro VFP Driver (*.dbf)};SourceType=DBF;SourceDB=" & Me.my_TablePath
'Me.my_StrConnection = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & Me.my_TablePath & ";"
'Me.my_StrConnection = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Me.my_TablePath & ";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO"
Me.my_StrConnection = "Provider=vfpoledb.1;Data Source=" & Me.my_TablePath & ";Collating Sequence=general"
'Me.my_StrConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.my_TablePath & ";Extended Properties=dBASE IV;User ID=Admin;Password=" Me.my_StrSelect = "SELECT * FROM " & Me.my_TableName
my_conn = New OdbcConnection(Me.my_StrConnection)
my_conn.Open()
my_adapter = New OdbcDataAdapter(Me.my_StrSelect, my_conn)
Me.my_Ds = New DataSet '填充数据
my_adapter.Fill(Me.my_Ds, Me.my_TableName)
Return Me.my_Ds
Catch ex As Exception
System.Web.HttpContext.Current.Response.Write(ex.Message & my_StrSelect)
my_conn.Close()
Return Nothing
End Try End Function
这样不行吗?