问题描述
'获取当前局域网内SQL服务器DimmySQLAsSql.SqlDataSourceEnumerator=Sql.SqlDataSourceEnumerator.InstanceForAAsInteger=0TomySQL.GetDataSources.Rows.Count-1listbobox.item.add((mySQL.GetDataSources.Rows(A).Item(0)))Next'检查本机是否存在SQL服务器(接上经过小小的修改就可以了HOHO!!)DimmySQLAsSql.SqlDataSourceEnumerator=Sql.SqlDataSourceEnumerator.InstanceForAAsInteger=0TomySQL.GetDataSources.Rows.Count-1IfMy.Computer.Name=(mySQL.GetDataSources.Rows(A).Item(0))ThenMsgBox("本机存在SQL")EndIfNext
解决方案
解决方案二:
很好!
解决方案三:
这那是VB.NET的代码.
时间: 2024-10-09 07:39:50