2,209
社区成员
发帖
与我相关
我的任务
分享读取DB数据库的问题
以前一直使用Access或SQL的数据库，最近碰到了一个使用PARADOX数据库的软件，但对PARADOX数据库理解少之又少。
此软件每天都会建立一个db文件，如下：
20110101.db,20110102.db,20110103.db...........20110505.db,20110506.db
现在我需要用VB对其数据进行读取，如果只是读取某一日的数据，我会读，但如果要读取多日数据（如2011101--20110501）时间段的数据，我就不知如何读取了。我的代码如下：
Dim strConn As String
conn As ADODB.Connection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False;Jet OLEDB:Engine Type=82"
conn.ConnectionString = strConn
conn.Open
……
Dim sql As String
Dim rs As New ADODB.Recordset
sql = "select * from 20110101"
If rs.State = adStateOpen Then
rs.Close
End If
rs.CursorLocation = adUseClient
rs.Open sql, LocaConn, adOpenKeyset, adLockReadOnly
……
请问各位大侠，如何才能做到读取多日数据？拜托了！
此软件每天都会建立一个db文件，如下：
20110101.db,20110102.db,20110103.db...........20110505.db,20110506.db
现在我需要用VB对其数据进行读取，如果只是读取某一日的数据，我会读，但如果要读取多日数据（如2011101--20110501）时间段的数据，我就不知如何读取了。我的代码如下：
Dim strConn As String
conn As ADODB.Connection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False;Jet OLEDB:Engine Type=82"
conn.ConnectionString = strConn
conn.Open
……
Dim sql As String
Dim rs As New ADODB.Recordset
sql = "select * from 20110101"
If rs.State = adStateOpen Then
rs.Close
End If
rs.CursorLocation = adUseClient
rs.Open sql, LocaConn, adOpenKeyset, adLockReadOnly
……
请问各位大侠，如何才能做到读取多日数据？拜托了！
...全文
请发表友善的回复…
发表回复
dianyancao 2011-05-06
- 打赏
- 举报
總結歸類一下好下場
rucypli 2011-05-06
- 打赏
- 举报
能union all吗
北京雨翰数据恢复 2011-05-06
- 打赏
- 举报
循环每天的表名。
北京雨翰数据恢复 2011-05-06
- 打赏
- 举报
不是很简单吗？做一个循环不就行了？
