vb5 写的程序在两台win2000下可以正确在datagrid中显示.mdb数据库,通过data控件连接,在win98机器中datagrid无法显示数据,为什么?
Set My_Database = OpenDatabase(App.Path + "\TR.mdb")
Set rstRecorder = My_Database.OpenRecordset("Recorder", dbOpenDynaset)
Set frmRecorder.Data1.Recordset = rstRecorder
frmRecorder.show
Set My_Database = OpenDatabase(App.Path + "\TR.mdb")
Set rstRecorder = My_Database.OpenRecordset("Recorder", dbOpenDynaset)
Set frmRecorder.Data1.Recordset = rstRecorder
frmRecorder.show
http://download.microsoft.com/download/dasdk/Install/2.60.6526.3/WIN98Me/EN-US/MDAC_TYP.EXEhttp://www.cclis.com/download.asp
Microsoft MDAC支持程序
set datagrid.datasource =data1 这句已经手工设置过了
Public RS As New ADODB.Recordset
Public AdoCnn As New ADODB.Connection
Private Sub Form_Load()
' sutra
CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\学生.mdb;Persist Security Info=False"
If AdoCnn.State = 0 Then AdoCnn.Open CnStr
Set RS = Nothing
Show_DataGrid
End SubSub Show_DataGrid() '这个过程把整张表读出来
DataGrid1.Font.Size = 12
If RS.State = 1 Then RS.Close: Set RS = Nothing
AdoCnn.CursorLocation = adUseClient
RS.Open "select * from[学生] order by 学号asc", AdoCnn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub
有谁碰到在2000下和98连接数据库的这种问题?
在家里的有vb6的win98机器上可以运行并显示所有数据
看来不全是98的问题
Public RS As New ADODB.Recordset
Public AdoCnn As New ADODB.Connection
Private Sub Form_Load()
' sutra
CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\学生.mdb;Persist Security Info=False"
If AdoCnn.State = 0 Then AdoCnn.Open CnStr
Set RS = Nothing
Show_DataGrid
End SubSub Show_DataGrid() '这个过程把整张表读出来
AdoCnn.CursorLocation = adUseClient
RS.Open "select * from[学生] order by 学号asc", AdoCnn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub
我发现在一些98机器上(已有access2000,但不识别我的.mdb文件,是dao360)安装一个dao350安装包后,所有数据显示正常。而在另外一些98机器上install 这个相同的安装包后,datagrid 架构出来了,却没数据。
记得以前下载并install的MDAC_TYP.EXE 是2.5以上的,但仍然希望问题是出在这里。
有access2000 的机器带 dao360 的98 在安装 dao350 安装包后,多了个350就正常显示 数据。另一些 不正常的是不是 少了 msjet35.dll?