تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] محتاج مثال عن ربط sqlserver2008r2
#1
السلام عليكم

لو سمحتم محتاج مثال عن ربط

sqlserver2008r2

vb.net2008

بحيث يظهر في الفورم الاول اختيار السيرفر ومن ثم اختيار الداتا بيز والاتصال بها

لو سمحتم
الرد }}}
تم الشكر بواسطة:
#2
هل تعني انك تريد برمجة معالج اتصال؟؟
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم وشكرا للرد
اخي الكريم
sql 2008r2
vb.net
في جهاز واحد فقط
البرنامج يحتوي 10 داتا بيز ويوجد اكثر من سيرفر بالسكول
وكل سيرفير يوجد به داتا بيز
اريد فورم اختيار اسم السيرفر من سكول
ثم اختيار داتا بيز والاتصال بها
وشكرا لك
الرد }}}
تم الشكر بواسطة:
#4
طيب اخي الكريم لا اظنك تحتاج الا ان تتطلع على موقع http://www.connectionstrings.com ففيه كل جمل الاتصال.
الرد }}}
تم الشكر بواسطة:
#5
وجدت لك كلاس SqlServer مفيد جداً

وهذا مثال لطريقة استخدامه ضع عدد 2 كمبوبوكس ComboBox وعدد 2 بوتون Button
البوتون الأول لملأ الكومبو الأول بالسيرفرات المتوفرة (حياخذ شوية وقت للبحث) بعدها اختر واحد من السيرفرات التي وجدها ثم اضغط البوتون الثاني لملأ الكومبو الثاني بأسماء الداتابيز لذلك السيرفر

لا تنس أن تضيف رفرنس Reference باسم Microsoft.SqlServer.Smo للمشروع
كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s() As SqlServer.ServerInstance
        s = SqlServer.EnumerateServers()
        ComboBox1.Items.Clear()
        For i = 0 To s.Length - 1
            ComboBox1.Items.Add(s(i).Name)
        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Using con As New SqlClient.SqlConnection("Data Source=" & ComboBox1.Text & ";Integrated Security=True")
            con.Open()
            Using cmd As New SqlClient.SqlCommand("sp_databases", con)
                cmd.CommandType = CommandType.StoredProcedure
                Dim read As SqlClient.SqlDataReader = cmd.ExecuteReader()
                While read.Read()
                    ComboBox2.Items.Add(DirectCast(read("DATABASE_NAME"), String))
                End While
            End Using
        End Using
    End Sub

End Class

وهذا الكلاس
كود :
Imports Microsoft.SqlServer.Management
Imports Microsoft.SqlServer.Management.Smo
Public Class SqlServer
    ''' <summary>
    ''' The form of EnumerateServers for all machines in the network.
    ''' </summary>
    Public Overloads Shared Function EnumerateServers() As ServerInstance()
        Return EnumerateServers("")
    End Function
    ''' <summary>
    ''' Return a collection of server instance descriptors for all SQL Servers within a network
    ''' </summary>
    ''' <param name="computerName">Specify a computer name to target a particular machine</param>
    ''' <returns>An array of ServerInstance descriptor objects</returns>
    ''' <remarks>This method translates the DataTable to a list of objects with Intellisense.</remarks>
    Public Overloads Shared Function EnumerateServers(ByVal computerName As String) As ServerInstance()
        Dim tableServers As DataTable = Nothing
        If computerName.Length = 0 Then
            tableServers = SmoApplication.EnumAvailableSqlServers
        Else
            tableServers = SmoApplication.EnumAvailableSqlServers(computerName)
        End If
        ' Create enough space for all the SQL Server instances.
        Dim list(tableServers.Rows.Count - 1) As ServerInstance
        ' Build the list of servers.
        For index As Integer = 0 To tableServers.Rows.Count - 1
            Dim row As DataRow = tableServers.Rows(index)
            Dim name As String = row("Name").ToString()
            Dim server As String = row("Server").ToString()
            Dim instance As String = row("Instance").ToString()
            Dim clustered As Boolean = row("IsClustered").ToString()
            Dim local As Boolean = row("IsLocal").ToString()
            Dim entry As New ServerInstance(name, server, instance, clustered, local)
            list(index) = entry
        Next index
        Return list
    End Function
    Public Class ServerInstance
        Public Sub New(ByVal name As String, ByVal server As String, ByVal instance As String, ByVal clustered As Boolean, ByVal local As Boolean)
            m_name = name
            m_server = server
            m_instance = instance
            m_clustered = clustered
            m_local = local
        End Sub
        Private m_name As String = ""
        Public Property Name() As String
            Get
                Return m_name
            End Get
            Set(ByVal value As String)
                m_name = value
            End Set
        End Property
        Private m_server As String = ""
        Public Property Server() As String
            Get
                Return m_server
            End Get
            Set(ByVal value As String)
                m_server = value
            End Set
        End Property
        Private m_instance As String = ""
        Public Property Instance() As String
            Get
                Return m_instance
            End Get
            Set(ByVal value As String)
                m_instance = value
            End Set
        End Property
        Private m_clustered As Boolean
        Public Property IsClustered() As Boolean
            Get
                Return m_clustered
            End Get
            Set(ByVal value As Boolean)
                m_clustered = value
            End Set
        End Property
        Private m_local As Boolean
        Public Property IsLocal() As Boolean
            Get
                Return m_local
            End Get
            Set(ByVal value As Boolean)
                m_local = value
            End Set
        End Property
    End Class

End Class

وطريقة الاتصال الأخيرة انا متأكد أنك تعرفها
الرد }}}
تم الشكر بواسطة:
#6
جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#7
اذا ممكن زر الاتصال لو سمحت وجزاك الله خيرا
الرد }}}
تم الشكر بواسطة:
#8
(26-02-14, 08:55 PM)محاسب يوسف كتب : اذا ممكن زر الاتصال لو سمحت وجزاك الله خيرا

أجاب عنها الأستاذ ناجي إبراهيم في الموضوع التالي ([SQL] خطا بالاتصال)
الرد }}}
تم الشكر بواسطة:
#9
اخي الكريم
اسم السيرفر في كومبو بوكس1
الداتا بيز في كومبو بوكس 2
كيف يتم الاتصال باختيار السيرفر والداتا
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم اخي الكريم
هذا المثال
ولكن احتاج زر الاتصال عند اختيار السيرفي والداتا


الملفات المرفقة
.rar   program-new.rar (الحجم : 78.03 ك ب / التحميلات : 116)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كنت محتاج مساعده بعمل مشروع تخرج انتخابات اونلاين ahmed nafea 0 1,651 22-04-21, 11:13 PM
آخر رد: ahmed nafea
  [كود] محتاج مساعدة في كود stiger 1 1,448 28-05-20, 06:44 AM
آخر رد: stiger
  [سؤال] عجزت عن عمل اتصال بقاعدة بيانات (SQL Server) مرفوعه على استضافة يوجد مثال khalidalwdi 14 4,829 21-12-19, 10:48 PM
آخر رد: khalidalwdi
  مثال بسيط لقاعدة mdf اسامه الهرماوي 10 3,993 16-05-19, 11:52 PM
آخر رد: اسامه الهرماوي
  مساعدة محتاج كود جمع قيم عمود فى الداتا جريد osemy 5 7,055 27-02-18, 08:53 PM
آخر رد: atyaf
  [VB.NET] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 3,320 10-05-17, 06:06 PM
آخر رد: ahmedalans
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 4,127 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  محتاج مساعده مستعجله مجموع اجور العمليات لكل طبيب مهندس حيدر 5 2,937 02-09-16, 12:35 PM
آخر رد: مهندس حيدر
  ارجو المساعدة محتاج كود برمجي رامي الامير 0 1,732 01-04-16, 12:11 AM
آخر رد: رامي الامير
  مثال على البحث في جدولين بالداتا قريد sql rookan 6 4,249 12-01-16, 01:17 PM
آخر رد: abdhassan

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم