تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اسم السيرفر خارج المنظومة
#1
السلام عليكم ورحمة الله 
ارجو مساعدتي في معرفة الكود للاتصال السيرفر ويكون خارج المنظومة 
مثلا 
  Sub server(ByVal str As String)
        con = New SqlConnection("Data Source=" & str & ";Database=Master;integrated security=SSPI;")
        con.Open()
        cmd = New SqlCommand("select *  from sysservers  where srvproduct='SQL Server'", con)
        dread = cmd.ExecuteReader
        While dread.Read
            cmbserver.Items.Add(dread(2))
        End While
        dread.Close()
    
End Sub
form1
    server("DESKTOP-QRSLB4V\SQL_2019_R2")
end sub 
  
الخطا
con = New SqlConnection(File.ReadAllText("D:ConectionString"))
الرد }}
تم الشكر بواسطة: asemshahen5
#2
هل تريد تحميل السيرفرات في كومبوبوكس
الرد }}
تم الشكر بواسطة: asemshahen5
#3
(02-01-22, 12:22 AM)aljzazy كتب : هل تريد تحميل السيرفرات في كومبوبوكس

نعم اريد تحميل السيرفرات في كمومبوبوكس


الملفات المرفقة صورة/صور
   
الرد }}
تم الشكر بواسطة: asemshahen5
#4
هذا الامر يقوم باستدعاء جميع السيرفرات الموجودة في الجهاز

PHP كود :
Public Sub Loadserver(ByVal combo As ComboBox)
 
       Try
            Dim localmachine 
RegistryKey.OpenBaseKey(RegistryHive.LocalMachineRegistryView.Registry64)
 
           Dim rk localmachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
 
           Dim instances CType(rk.GetValue("InstalledInstances"), String())
 
           If instances.Length 0 Then
                For Each element 
As String In instances
                    If element 
"MSSQLSERVER" Then
                        combo
.Items.Add(System.Environment.MachineName)
 
                   Else
                        combo
.Items.Add(System.Environment.MachineName "\" + element)
                    End If
                Next element
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub 


يتم استدعاء الامر كالتالي

PHP كود :
Loadserver(cmb_Server
لا تنسى استدعاء المكتبات الضرورية

PHP كود :
Imports Microsoft.Win32
Imports System
.Data.SqlClient
Imports System
.IO 

اما لتحميل كافة قواعد البيانات على السيرفر

PHP كود :
Public Sub selectdata(comboserver As ComboBoxcombodatabase As ComboBox)

 
       combodatabase.Items.Clear()

 
       Dim cn As New SqlConnection("server=" comboserver.Text "; database = master ; integrated security=true ")
 
       Dim da As New SqlDataAdapter("select name from sys.databases "cn)
 
       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
    End Sub 

لكن نصيحة اذا كنت تريد عمل نسخة احتياطية لقاعدة البيانات عن طريق المستخدم
قمت باضافة مسار لحفظ النسخة وتجنب الحفظ على دريف C
الرد }}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فشل في تحميل السيرفر Emam emam 2 382 12-03-22, 02:39 AM
آخر رد: Emam emam
Video مشكلة في برنامج للاتصال بقواعد بيانات السيرفر المحلي نيمو 2 800 03-11-21, 08:10 PM
آخر رد: d3vc0d
  اظهار اسم السيرفر في كومبو بوكس momani33 1 665 04-06-21, 02:29 PM
آخر رد: ابو انس
  فتح المنظومة قطرة مطر 0 536 23-12-20, 08:49 PM
آخر رد: قطرة مطر
  ي جماعه دلوقتي لما بنقل الداتا للعميل اسم السيرفر بيبقي متغير ف الربط اللي انا عملو م Hosam Ashraf Elwakel 2 1,064 25-08-20, 02:56 AM
آخر رد: Rabeea Qbaha
  [سؤال] معلومه ابحث عنها منذ شهور تخص السيرفر المحلي اليوم السابع 7 1,678 02-05-20, 03:39 PM
آخر رد: اليوم السابع
  هل يوجد حل لمشكله بيانات السيرفر تعرض فى الفيجوال علامه استفهام حسين ادريس 2 1,062 09-04-20, 03:58 AM
آخر رد: asemshahen5
  فتح ملف وورد من السيرفر محمد ابوخليل 1 929 29-02-20, 02:59 AM
آخر رد: alsalamoni
  كيفية رفع تقرير كريستال ريبورت على السيرفر والعمل بدون أخطاء؟ momenyounes 0 1,021 26-12-19, 12:34 PM
آخر رد: momenyounes
  [VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر Mustafa Shaker 4 2,297 18-12-19, 03:57 PM
آخر رد: asemshahen5

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


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