在pb中获取当前网络中所存在的SQLServer实例名

转载 2004年07月21日 14:31:00

OLEObject lole_test,lole_NameList
INTEGER  li_ret
LONG   ll_Count,ll_Index

lole_test = CREATE OLEObject
lole_NameList = CREATE OLEObject

li_ret = lole_test.ConnectToNewObject('SQLDMO.Application')
IF li_ret <> 0 THEN
 Destroy lole_test
 MessageBox('系统信息','SQLDMO对象连接失败')
 RETURN
END IF

lole_NameList = lole_test.ListAvailableSQLServers()

lole_test.DisconnectObject()
Destroy lole_test

ll_Count = lole_NameList.Count
FOR ll_Index = 1 TO ll_Count
 MessageBox('当前网络中所存在的SQLServer实例名',String(lole_NameList.Item(ll_Index)))
NEXT

Destroy lole_NameList


用上面的办法能够获取当前网络中所存在的SQLServer实例名,然后,判断其中包括本机机器名的(如果没有斜线/,就是那个实例所在机器名,如果有斜线,则斜线前为实例所在机器名),应该就是本机中所安装的实例名了

<em>pb</em>开发<em>实例</em>完整版

<em>pb</em>开发<em>实例</em>完整版 2015-04-28 上传大小:35.11MB <em>pb</em> <em>pb</em>案例开发集锦,适合初学...获取本机名和IP地址 案例10 使用多线程下载网页 案例11 Socket通信客户端 案例...
  • 2018年04月08日 00:00

<em>PB实例</em>开发教程

<em>PB实例</em>开发教程第1章 Hello World......
  • 2018年04月08日 00:00

PB命令实例

//问题集//The following question is from siisuo.uo_tabpgs key event//1st 加入this是一个窗口,后面的参数是什么意思?Send(Ha...
  • annicybc
  • annicybc
  • 2006-04-03 16:52:00
  • 2340

pb一步步开发APP

APP越来越流行,客户需要开发APP,对习惯了pb开发者来说,如何开发APP是个让人头大的问题。其实pb开发APP是完全可行的。 下面就通过示例,一步步都大家如何开发一个APP。先上几张最后的效果图 ...
  • pcwe2002
  • pcwe2002
  • 2017-01-18 17:29:35
  • 3139

PB连接非默认实例

PB连接非默认实例,以开发版2005为例,因为机器安装有sql2000故安装时sql2005安装为非默认实例,实例名:sql2005。 connection infomation: server:...
  • chengg0769
  • chengg0769
  • 2014-01-25 20:46:31
  • 1738

<em>pb</em>100个实用小例子

使用<em>PB</em>获得CPU的速度、生产商的名字和型号<em>实例</em>91 字体对话框实现<em>实例</em>92 动态修改控件的字体<em>实例</em>93 图片文字的实现<em>实例</em>94 上下文弹出式帮助的实现<em>实例</em>95 ...
  • 2017年07月12日 00:00

PB编程通俗快速入手(自己2002年教别人PB时随手写的,很多年了,放上来送给新手们)

PB编程通俗快速入手张金柱第一章   一般使用 1、  程序的开始,application的open事件。退出程序例程:halt为退出函数int SureQuitSureQuit = 2SureQui...
  • freeheart1977
  • freeheart1977
  • 2004-11-23 20:31:00
  • 7205

pb开发web应用

说到pb开发web,一般是将pb发布成webservice,或者转成webform,两者都有很多限制,比如需要iis安装维护麻烦,调试困难,经常遇到莫名的错误,找不到资料,样式调整困难等问题。 随着互...
  • pcwe2002
  • pcwe2002
  • 2016-11-22 16:43:08
  • 3005

在pb中获取当前网络中所存在的SQLServer实例名

OLEObject lole_test,lole_NameListINTEGER  li_retLONG   ll_Count,ll_Index lole_test = CREATE OLEObjec...
  • am2000
  • am2000
  • 2004-07-21 14:31:00
  • 1341
收藏助手
不良信息举报
您举报文章:在pb中获取当前网络中所存在的SQLServer实例名
举报原因:
原因补充:

(最多只允许输入30个字)