tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^8: ファイルレイアウトを印刷したい
投稿日: 2006/07/25(Tue) 23:10
投稿者松本
たびたび申し訳ありません。
Frameworkは1.1と2.0をインストールしました。
SQLサーバーは2000と2005をインストールし、確かにサービスが開始になっています。
その後、魔界の仮面弁士様のご教授の通りにVB.net2003とVB2005で試して見ました。
しかしながら、サーバーのインスタンス名等全く表示されず終了してしまいます。
10日以上、何故なのかどうしても分からず再度投稿してしまいました。

ご教授頂いたソースは

***VB.NET 2003 + SQLDMOの場合

'COM参照: C:\Program Files\Microsoft SQL Server\80\Tools\binn\SQLDMO.DLL
Imports System.Runtime.InteropServices
Public Module Module1
Public Sub Main()
Dim App As SQLDMO.ApplicationClass = Nothing
Dim List As SQLDMO.NameList = Nothing
Console.Write("使用可能な SQL Server を列挙します。")


Try
App = New SQLDMO.ApplicationClass()
List = App.ListAvailableSQLServers()
For I As Integer = 0 To List.Count - 1
Dim Server As String = List.Item(CObj(I))
Console.WriteLine(Server)
Next
Finally
If Not IsNothing(List) AndAlso Marshal.IsComObject(List) Then
Marshal.ReleaseComObject(List)
End If
If Not IsNothing(App) AndAlso Marshal.IsComObject(App) Then
Marshal.ReleaseComObject(App)
End If
End Try


Console.Write("Enter を押してください:")
Console.ReadLine()


End Sub


End Module



***VB2005 + SMOの場合

'参照設定として、Microsoft.SqlServer.Smo.dll を追加しました。
Imports Microsoft.SqlServer.Management.Smo

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click

DataGridView1.DataSource = SmoApplication.EnumAvailableSqlServers()

End Sub

End Class

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。