以前一直使用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, conn, 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, conn, adOpenKeyset, adLockReadOnly……请问各位大侠,如何才能做到读取多日数据?拜托了!
改这个地方不就行了吗?
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
for strData= to
sql = "select * from " & strDate
If rs.State = adStateOpen Then
rs.Close
End If
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockReadOnly……
然后可以使用联合查询来做,这个SQL语句需要很深的功夫,可以去SQL版问或者在本版问Leftie版主
最后是显示到某种控件,比如LISTVIEW或MSHFLEX或DATAGRID
不过我想如果直接用ODBC是否好操作一些呢