タイトル : 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 |