我用VB写了一段程序,一直用起来很正常,昨天电脑重装了系统之后,重新安装了vb,运行起来这段程序之后就会出现如下情况 “实时错误'-21470248828007000e)': memory alloc fail or object create fail ocuured in control”我的程序代码如下:Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\fgjl.mdb;Persist Security Info=False"Adodc1.RecordSource = "select * from 表1"Adodc1.Refresh 'iComPort = Adodc1.Recordset.Fields("COM")
'iBandRate = Adodc1.Recordset.Fields("BYT")
ActQJ71C241.ActCpuType = 50
ActQJ71C241.ActBaudRate = iBandRate '19200
ActQJ71C241.ActControl = 8
ActQJ71C241.ActPortNumber = iComPort
ActQJ71C241.ActConnectUnitNumber = 0
lRet = ActQJ71C241.Open 'The Open method is executed.
If lRet <> 0 Then
MsgBox "串口打开失败(" & lRet & ")!", vbOKOnly, "系统提示"
StatusBar1.Panels(6).Text = "串口打开失败!(" & lRet & ")"
Else: StatusBar1.Panels(6).Text = "串口打开"
End If
'Error: 'Exception processing
' MsgBox "系统错误!", vbOKOnly, "错误"
End Sub调试显示是黄色的一句(lRet = ActQJ71C241.Open) 有问题,请问高手如何解决
谢谢
'iBandRate = Adodc1.Recordset.Fields("BYT")
ActQJ71C241.ActCpuType = 50
ActQJ71C241.ActBaudRate = iBandRate '19200
ActQJ71C241.ActControl = 8
ActQJ71C241.ActPortNumber = iComPort
ActQJ71C241.ActConnectUnitNumber = 0
lRet = ActQJ71C241.Open 'The Open method is executed.
If lRet <> 0 Then
MsgBox "串口打开失败(" & lRet & ")!", vbOKOnly, "系统提示"
StatusBar1.Panels(6).Text = "串口打开失败!(" & lRet & ")"
Else: StatusBar1.Panels(6).Text = "串口打开"
End If
'Error: 'Exception processing
' MsgBox "系统错误!", vbOKOnly, "错误"
End Sub调试显示是黄色的一句(lRet = ActQJ71C241.Open) 有问题,请问高手如何解决
谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货