Dim cn As New SqlConnection("Server=" & ComboServer.Text & ";database=master;integrated security=true")
Dim da As New SqlDataAdapter("select name from sysdatabases", cn) 'sys.databases
Dim dt As New DataTable
da.Fill(dt)
For i As Integer = 0 To dt.Rows.Count - 1
ComboDatabase.Items.Add(dt.Rows(i)("Name").ToString)
Next
(16-12-19, 08:28 PM)asemshahen5 كتب : [ -> ]PHP كود :
Dim cn As New SqlConnection("Server=" & ComboServer.Text & ";database=master;integrated security=true")
Dim da As New SqlDataAdapter("select name from sysdatabases", cn) 'sys.databases
Dim dt As New DataTable
da.Fill(dt)
For i As Integer = 0 To dt.Rows.Count - 1
ComboDatabase.Items.Add(dt.Rows(i)("Name").ToString)
Next
(17-12-19, 02:27 PM)Mustafa Shaker كتب : [ -> ](16-12-19, 08:28 PM)asemshahen5 كتب : [ -> ]PHP كود :
Dim cn As New SqlConnection("Server=" & ComboServer.Text & ";database=master;integrated security=true")
Dim da As New SqlDataAdapter("select name from sysdatabases", cn) 'sys.databases
Dim dt As New DataTable
da.Fill(dt)
For i As Integer = 0 To dt.Rows.Count - 1
ComboDatabase.Items.Add(dt.Rows(i)("Name").ToString)
Next
عندي كمان جهاز عاوز اخليه يتصل بالسيرفر.. انا حاليا بضيف user في sql managment و اتصل عن طريق اليوزر دا..
هل في طريقه اقدر اربط جهاز علي السيرفر بدون تثبيت sql managment
Dim cn As New SqlConnection("Server =192.168.1.2;database=master;integrated security=false;User ID=UserName;Password=123456789")
ComboBoxComboBoxImports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' تعبئة السيرفرات عند تحميل الشاشة
FillServers()
End Sub
' تعبئة السيرفرات في ComboBox الأول
Private Sub FillServers()
Try
Dim serversTable As DataTable = SqlDataSourceEnumerator.Instance.GetDataSources()
ComboBox1.Items.Clear()
For Each row As DataRow In serversTable.Rows
Dim serverName As String = row("ServerName").ToString()
Dim instanceName As String = If(row("InstanceName").ToString() <> "", "\" & row("InstanceName").ToString(), "")
ComboBox1.Items.Add(serverName & instanceName)
Next
Catch ex As Exception
MessageBox.Show("خطأ في الحصول على السيرفرات: " & ex.Message)
End Try
End Sub
' حدث اختيار السيرفر من ComboBox الأول
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim selectedServer As String = ComboBox1.SelectedItem.ToString()
FillDatabases(selectedServer)
End Sub
' تعبئة قواعد البيانات في ComboBox الثاني
Private Sub FillDatabases(serverName As String)
Try
Dim connectionString As String = $"Data Source={serverName};Integrated Security=True;"
Using connection As New SqlConnection(connectionString)
connection.Open()
' استعلام للحصول على قواعد البيانات
Dim cmd As New SqlCommand("SELECT name FROM sys.databases WHERE state = 0", connection)
Dim reader As SqlDataReader = cmd.ExecuteReader()
ComboBox2.Items.Clear()
While reader.Read()
ComboBox2.Items.Add(reader("name").ToString())
End While
reader.Close()
End Using
Catch ex As Exception
MessageBox.Show("خطأ في الحصول على قواعد البيانات: " & ex.Message)
End Try
End Sub
End Class