اسامي سرور ها درService Manager چجوري مشخص ميشه؟

[m_vb1386]

ايا كامپونت خاصي هست تو برنامه sql server كه اسامي سرور ها رو نشون ميده؟
موقع اجراي برنامه Service Manager تو sql server2000 ميشه سرورهاي نصب شده رو نشون داد و يكي رو براي اتصال انتخاب كرد براي اين كار از كامپونت خاصي استفاده شده؟

[slashslash2009]

نام سرور خیلی جاها ثبت شده شما می تونی از رجیستری استفاده کنی و بدستش بیاری

[tayebeh]

باید از sqldmo در برنامه ات استفاده کنی . با استفاده از اون می تونی مثلا لیست تمام دستگاههایی که بر روی آنها اس کیو ال سرور نصب هست رو ببینی.

[tayebeh]

ابتدا رفرنس sqldmo را به برنامه ات اضافه کن بعد یک کومبو باکس توی یک فرم ایجاد کن و در رویداد لود فرم این رو بنویس.
[CODE]

Dim dmoServer As SQLDMO.SQLServer
Dim dmoApp As SQLDMO.Application
Dim dmoNameList As SQLDMO.NameList
Dim i As Integer
dmoServer = New SQLDMO.SQLServer
dmoApp = dmoServer.Application
dmoNameList = dmoApp.ListAvailableSQLServers()

For i = 0 To dmoNameList.Count - 1
If Not (dmoNameList.Item(i) = String.Empty) Then
cmbserver.Items.Add(dmoNameList.Item(i))
End If
Next i


[CODE/]

[tayebeh]

البته ببخشید فکر کردم در برنامه خاص خودتون می خواهید لیست سرورها رو نشون بدید.

[m_vb1386]

البته منظور من هم همين بود كه شما گفتين تست كنم ببينم جواب ميده

[m_vb1386]

ممنون يكم با كد ها ور رفتم هموني شد كه ميخواستم البته براي vb6 كدهاش رو همينجا ميذارم تا بقيه كساني هم كه در اينده به اين تايپيك مراجعه ميكنن بتونن تو vb6 هم استفاده كنن

Private Sub Command1_Click()
Dim i As Integer
Dim dmoServer As New SQLDMO.SQLServer
Dim dmoApp As New SQLDMO.Application
Dim dmoNameList As SQLDMO.NameList
Set dmoNameList = dmoApp.ListAvailableSQLServers()
For i = 0 To dmoNameList.Count - 1
cmbserver2.AddItem (dmoNameList.Item(i))
Next i
End Sub