资源描述:
《sql服务的连接和打开》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、//得到本地计算机的主机名RegistryGet("hkey_local_machinesystemcurrentcontrolsetcontrolcomputernamecomputername","computername",RegString!,is_servername)sle_servername.text=is_servername开始按牛stringls_servername//输入的服务器名称stringls_username//输入的数据库用户stringls_password//输入的口令strin
2、gls_dbname//输入的数据库名stringls_inputfile='jsjdj.sql'//导入的数据库角本文件stringls_connectfile="dbconnet.sql"//安装后创建的数据库连接文件intli_return//各种判断状态的返回值stringls_temp//临时使用的字符型变量integerli_count//指定server上的数据库数量integerli_i//循环标记integerli_FileIN//打开文件的句柄stringls_Input//文件中的字符串stringls_e
3、xecstr=""longll_possite/************保存输入值**************/ls_servername=trim(sle_servername.text)ls_username=trim(sle_username.text)ls_password=trim(sle_password.text)ls_dbname=trim(sle_dbname.text)/**************END********************//************检查窗口上的输入项是否为空******
4、***********/ifsle_servername.text=""orisnull(sle_servername.text)thenmessagebox("系统提示","请先输入SQlServer的名称!",Exclamation!,ok!)sle_servername.setfocus()returnendififsle_username.text=""orisnull(sle_username.text)thenmessagebox("系统提示","请先输入SQlServer的用户名!",Exclamation!,ok
5、!)sle_username.setfocus()returnendififsle_dbname.text=""orisnull(sle_dbname.text)thenmessagebox("系统提示","请先输入要创建的数据库的名称!",Exclamation!,ok!)sle_dbname.setfocus()returnendif/************END*******************//*******查找网络中是否存在输入名称的服务器**********/st_status.text='查找网络中是否存在
6、'+ls_servername+'...'connectionmyconnectmyconnect=createconnectionmyconnect.driver="WinSock"myconnect.application="1433"myconnect.location=ls_servernameli_return=myconnect.ConnectToServer()ifli_return=52thenmessagebox("系统提示","网络中没有您输入的主机名,请确认后重新输入!")returnendif/*****
7、************END*****************//************判断本机是否装入sqlserver************/st_status.text='判断本机是否装入SQLServer...'ifis_servername=ls_servernamethenstringls_sqldriverintreturn_ireturn_i=registryget("HKEY_LOCAL_MACHINESOFTWAREODBCODBCINST.INISQLServer","Driver",regs
8、tring!,ls_sqldriver)ifreturn_i<>1thenmessagebox("系统提示",is_servername+"还没有安装SQLServer!~n请安装后再运行本程序!")returnendifendif/**************