ผมเข้าใจว่าคุณต้องการ หา server ที่เปิด sql server ไว้ใช่ไหม๊ ลองใช้นี่ดูนะครับ
' Imports Microsoft.SqlServer.Management.Smo
Dim dtlSQLServers As DataTable
' Get list of all available servers. dtlSQLServers = SmoApplication.EnumAvailableSqlServers(False)
' Display the list of all available servers and ' identify the local sql server. For Each drServer As DataRow In dtlSQLServers.Rows If drServer("IsLocal") = True Then Console.WriteLine("{0} (is the local sql server.)", drServer("Name")) Else Console.WriteLine(drServer("Name")) End If Next
With Conn If .State = adStateOpen Then .Close .ConnectionString = strConn .ConnectionTimeout = 90 .Open End With
Dim sqlProducts As String sqlProducts = " SELECT * FROM SMARTUSER"
With rsProducts If .State = adStateOpen Then .Close .ActiveConnection = Conn .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Open sqlProducts If .RecordCount <> 0 Then Set mfgProducts.DataSource = rsProducts End If End With End Sub
ข้อมูลใน Catalog และ DataSource ควรกำหนดเป็นตัวแปร เพื่อเอาชื่อ ฐานข้อมูล และชื่อ Server ไปวางตรงนั้นแทน เพราะมันจะยืดหยุ่นกว่าการเอาไปฝังไว้แบบตา่ยตัว ในต.ย. ผมใช้ฐานข้อมูลชื่อว่า FHM2008 ถ้ารันที่เครื่องClient ให้แก้ (local) ให้เป็นชื่อ Server
New Article
อัตราค่าโฆษณา
กระทู้ #2065 [Vb] (จาก IP: 125.25.250.209)
ความคิดเห็น #26867 (จาก IP: 58.8.182.68)
