34,593
社区成员
发帖
与我相关
我的任务
分享
/******* 查找网络中是否存在输入名称的服务器 **********/
uo_statusbar.of_settext(0,'查找网络中是否存在'+ls_servername+'...')
connection myconnect
myconnect = Create connection
myconnect.Driver = "WinSock"
myconnect.Application = "1433"
myconnect.Location = ls_servername
li_return = myconnect.ConnectToServer()
If li_return = 52 Then
MessageBox("系统提示","网络中没有您输入的主机名,请确认后重新输入!")
Return
End If
//END
wf_delay(100)
/************ 判断本机是否装入sql server ************/
uo_statusbar.of_settext(0,'判断本机是否装入SQL Server...')
If is_servername = ls_servername Then
String ls_sqldriver
Int return_i
return_i = RegistryGet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\SQL Server","Driver",regstring!,ls_sqldriver)
If return_i <> 1 Then
MessageBox("系统提示",is_servername+"还没有安装SQL Server!~n请安装后再运行本程序!")
Return
End If
End If
// END
wf_delay(100)
/********************************************************
判断SQL Server是否已经启动,如果没有启动则做相应处理
*********************************************************/
uo_statusbar.of_settext(0,'判断SQL Server是否已经启动...')
OLEObject PBObject,PBDATEBASE
Long ll_status
PBObject = Create OLEObject
ll_status = PBObject.ConnectToNewObject ("SQLDMO.sqlserver")
If ll_status = 0 Then //连接成功
PBObject.Name = ls_servername
PBObject.logintimeout = 10
// pbobject.LoginSecure = True //以NT方式连接
PBObject.LoginSecure = False //以SQL Server方式连接
li_return = PBObject.Status
If li_return = 2 Then //SQL Server为暂停状态
uo_statusbar.of_settext(0,'启动'+ls_servername+'上的SQL Server...')
PBObject.Continue()
ElseIf li_return = 3 Then //SQL Server为停止状态
uo_statusbar.of_settext(0,'启动'+ls_servername+'上的SQL Server...')
PBObject.Start(False,ls_servername,ls_username,ls_password) //启动SQL Server
End If
Else
MessageBox("系统提示","数据库连接失败!~n请检查输入的用户名和口令是否正确")
Return
End If
// END
/*******************************************
由于启动SQL Server需要点时间,所以等待sqlserver启动
*******************************************/
LI:
li_return = PBObject.Status
If li_return <> 1 Then //不为1(不是runing状态)
Goto LI
Else //为1,连接数据库
// PBOBJECT.CONNECT(ls_servername,ls_username,ls_password)
Destroy PBObject//摧毁事物对象
End If
// END