开机启动问题

Question

    开机自动启动程序，怎么判断在MYSQL SERVER启动之后再运行程序？

Answer 1

尝试与mysql建立连接,查看返回值即可判断.

Answer 2

那就是说要设一个延迟时间，等差不多10-30秒时间？那要看你的mysql要多少时间启动了。

Answer 3

自动启动程序---在sub main()中检测MYSQL SERVER是否启动,用API计时,直到检测到MYSQL SERVER启动后再启动主窗体.

Answer 4

其实就是在form_load之前判断下SQL连接  连接成功下一步 不成功错误判断 

Answer 5

自动启动程序---在sub main()中检测MYSQL SERVER是否启动,用API计时,直到检测到MYSQL SERVER启动后再启动主窗体.————————————————————————————
这个API函数可以贴出来吗？

Answer 6

不是延时一次，而是每隔几秒就尝试一下连接，本机数据库 Connection.ConnectionTimeout 可以设得小一点（应该小于定时间隔）。

Answer 7

在sub main()中检测MYSQL SERVER是否启动,用API计时,直到检测到MYSQL SERVER启动后再启动主窗体；或者等了足够长的时间（比如5分钟）放弃并在日志中报错。

Answer 8

不存所谓的判断在MYSQL SERVER启动之后再运行程序，一定是程序运行后检测SQL是否能连接成功，如果连接成功就跳到软件窗口，如果一致连接不成功可以报警或一直在后台尝试，不成功就一直不出软件界面

Answer 9

用sleep就可以
查看 如果sql没启动 就sleep一次 然后再查看

Answer 10

if   连接成功   then   
        msgbox   "已经启动"   
  else   
        msgbox   "未启动"   
  end   if

Answer 11

用代码调用:
netstat -ant | grep 3306   #查看mysql是否启动，mysql用的是3306端口

Answer 12

Public Function Command_Click()     
Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String
Dim Ret As Integer, lphKey As Long     
    If DCN.State = "1" Then
        sKeyName = "Software\Microsoft\Windows\CurrentVersion\Run"
        sKeyValue = "C:\PcposX8\Suntouch.exe"
        Ret = RegCreateKey&(HKEY_LOCAL_MACHINE, sKeyName, lphKey)
        Ret = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
    Else
        Delay (100)
        Call Command_Click
    End If   
End Function如何判断mysql已经先于程序启动？

Answer 13

Public Function CreateConnection(ByVal pProvider As String, pDataSource As String) As ADODB.Connection
Dim oCn         As ADODB.Connection
    
    Set oCn = New ADODB.Connection
    oCn.CursorLocation = adUseClient
    Delay (100)       
    oCn.Open NMySqlCon  
    Set CreateConnection = oCn
End Function这个是连接MYSQL数据库，每次开机出错是oCn.Open NMySqlCon 
发现连不上本地MYSQL服务器，要等一会就可以了。

Answer 14

程序启动时检测数据库连接,连接成功后停止检测，转入正常功能。不必判断mysql是否先于程序启动

Answer 15

Public Function CreateConnection(ByVal pProvider As String, pDataSource As String) As ADODB.Connection 
Dim oCn        As ADODB.Connection 
    
    Set oCn = New ADODB.Connection 
    oCn.CursorLocation = adUseClient       
    oCn.Open NMySqlCon  
    Set CreateConnection = oCn 
End Function 我把程序加入注册表之后，开机运行，启动到oCn.Open NMySqlCon时，显示没有连接本地mysql数据库。
开机是先运行程序，然后在运行进程中的MYSQL服务器的。请问如何解决？