تقييم الموضوع :
  • 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 , tryold
#5
(03-01-22, 08:02 PM)aljzazy كتب : هذا الامر يقوم باستدعاء جميع السيرفرات الموجودة في الجهاز

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

السلام عليكم ورحمة الله وبركاته أتمنى أن تكون في صحة وعافية

لقد استخدمت هذا الكود ورجع لي بخطأ (" لم يتم تعيين مرجع كائن لمثيل كائن ") ما السبب

وشكراً


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] نقل جدول من السيرفر إلى الجهاز المحلى mmaalmesry 0 270 23-12-22, 06:48 PM
آخر رد: mmaalmesry
  فشل في تحميل السيرفر Emam emam 2 849 12-03-22, 02:39 AM
آخر رد: Emam emam
Video مشكلة في برنامج للاتصال بقواعد بيانات السيرفر المحلي نيمو 2 1,189 03-11-21, 08:10 PM
آخر رد: d3vc0d
  اظهار اسم السيرفر في كومبو بوكس momani33 1 1,049 04-06-21, 02:29 PM
آخر رد: ابو انس
  فتح المنظومة قطرة مطر 0 960 23-12-20, 08:49 PM
آخر رد: قطرة مطر
  ي جماعه دلوقتي لما بنقل الداتا للعميل اسم السيرفر بيبقي متغير ف الربط اللي انا عملو م Hosam Ashraf Elwakel 2 1,406 25-08-20, 02:56 AM
آخر رد: Rabeea Qbaha
  [سؤال] معلومه ابحث عنها منذ شهور تخص السيرفر المحلي اليوم السابع 7 2,240 02-05-20, 03:39 PM
آخر رد: اليوم السابع
  هل يوجد حل لمشكله بيانات السيرفر تعرض فى الفيجوال علامه استفهام حسين ادريس 2 1,384 09-04-20, 03:58 AM
آخر رد: asemshahen5
  فتح ملف وورد من السيرفر محمد ابوخليل 1 1,221 29-02-20, 02:59 AM
آخر رد: alsalamoni
  كيفية رفع تقرير كريستال ريبورت على السيرفر والعمل بدون أخطاء؟ momenyounes 0 1,296 26-12-19, 12:34 PM
آخر رد: momenyounes

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


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