VB 执行完SQL后 程序卡死

Private Sub Form_Load()

Picture1Cls

Picture1DrawWidth = 1 'DrawWidth返回或设置图形方法输出的线宽。

Picture1AutoRedraw = True

Picture1BackColor = QBColor(0) 'QBColor:用来表示所对应颜色值的 RGB 颜色码，参数：1~15

Picture1Scale (-1500, 1500)-(1500, -1500) 'Scale用以定义 Form、PictureBox 或 Printer 的坐标系统，参数：左上-右下

Picture1Scale (0, 1500)-(1500, -1500) 'Scale用以定义 Form、PictureBox 或 Printer 的坐标系统，参数：左上-右下

Picture1Line (-1500, 0)-(1500, 0), QBColor(15) '画水平线

End Sub

没多大关系啊,我也是WIN7的,我是整天做数据采集分析,我觉得你可能是程序运行太耗内存,尽量用代码,不要用控件向导,连接字符串用变量来存储,给他分配内存,连接数据库异常要处理编辑连接多线程,尽量把维护代码存放在XML中或者是记事本中,给他用符号+关键字来标记,有良好的维护方式

原型：

int WINAPI icePub_UdpSendAndReceiveData(char sendBuffer,int bufferLen,char strIP,int port,char receiveBuffer,int timeoutSeconds,int retryCounts)

输入：sendBuffer 发送的数据

bufferLen sendBuffer的长度

strIP 服务端地址

port 端口

timeoutSeconds 超时时间，秒

retryCounts 接收失败重发次数

输出：receiveBuffer 接收的数据

返回码：接收数据的长度

Private Declare Function icePub_UdpSendAndReceiveData Lib "icePubDlldll" (ByVal sendBuffer As String, ByVal bufferLen As Integer, ByVal strIP As String, ByVal port As Integer, ByVal receiveBuffer As String, ByVal timeoutSeconds As Integer, ByVal retryCounts As Integer) As Integer

Dim receiveLen As Integer

Dim buff As String

Dim buff2 As String

buff="tag:01"+vbCrLf+"command:killapplication"+vbCrLf+"data:360"+vbCrLf

buff2=Space(102410)

receiveLen=icePub_UdpSendAndReceiveData(buff,LenB(buff),"1921681111",6000,buff2,15,1);

MsgBox buff2

可以换个思路想象

windows本身访问共享文件夹很慢

可以先ping要访问的所有机器 然后返回在线的主机

最后根据在线的主机检查配置 这样可用节省时间

我使用WMI脚本进行ping 你自己修改下

Private Sub Command1_Click()

strMachines = "机器名或IP 用;分割"

aMachines = Split(strMachines, ";")'也可以直接建立一个数组保存所有要检查的主机IP或机器名

For Each machine In aMachines

Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")ExecQuery("select from Win32_PingStatus where address = '" & machine & "'")

For Each objStatus In objPing

If IsNull(objStatusStatusCode) Or objStatusStatusCode <> 0 Then

DebugPrint "machine " & machine & " is not reachable" '如果不通

Else

DebugPrint machine & machine & " is online" ' 如果机器在线 可以建立一个在线机器的数组

End If

Next

Next

End Sub

前提是你局域网计算机没开防火墙或准需ping

这个啊，要看你用了什么代码，有的代码确实会出现这样的情况。

另外你应该重启一下看看，如果无论如何都编译不了，就是你的代码的问题，或者是VB6已经坏掉了

如果重启后可以编译了，就是你的电脑临时文件太多了，

VB每次运行的时候会生成很多的临时文件。

而且你要是编译不成功，应该在工程文件夹里面看到很多 xxxxobj 文件吧，

把它们都删除掉再打开VB进行编译。

以上就是关于VB 执行完SQL后 程序卡死全部的内容，包括:VB 执行完SQL后 程序卡死、vb6.0数据采集程序运行中不定时死机、VB调用C++编写的winsock的DLL时，程序卡死掉等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！