تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعبئة الكومبوبوكس باسماء قواعد البيانات sql
#1
السلام عليكم ورحمة الله وبركاته.
جماعة الخير.
اريد تعبئة الكومبو بوكس باسماء قواعد البيانات من نوع  sql الموجودة على السيرفر.
ارجو المساعدة فضلا وليس امرا.
مشكورينز                                                                                                  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conn As SqlConnection
        Dim myCommand As New SqlCommand
        Dim myAdapter As New SqlDataAdapter
        Dim dataset As New DataSet
        Dim SQL As String
        Dim myData2 As New DataTable
        conn = New SqlConnection
        conn.ConnectionString = ("server=;" & ComboBox1.Text & "user id=" & TextBox1.Text & ";" & "password=" & TextBox2.Text & ";")
        Try
            conn.Open()
            MessageBox.Show("Connection Opened Successfully!")
        Catch myerror As SqlException
            MessageBox.Show("Error was encountered when connecting" & myerror.Message)
        Finally
        End Try
        SQL = "show Databases;"
        myCommand.Connection = conn
        myCommand.CommandText = SQL
        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(myData2)
        ComboBox1.DataSource = myData2
        ComboBox1.DisplayMember = "Database"
        conn.Close()
    End Sub

وما الخطأ فى الكود
الرد }}}}
تم الشكر بواسطة:
#2
الخطأ في جملة الاستعلام
ثانيا الكمبو بوكس يجب ان تحدد له نوع الحقل المراد عرضه اسم قاعدة البيانات او رقمها الخ...
 لان مصدر البيانات يحمل العديد من الحقول.

PHP كود :
       Dim conn As SqlConnection
        Dim myCommand 
As New SqlCommand
        Dim myAdapter 
As New SqlDataAdapter
        Dim dataset 
As New DataSet
        Dim SQL 
As String
        Dim myData2 
As New DataTable
        conn 
= New SqlConnection

        conn
.ConnectionString = ("server=;" ComboBox1.Text "user id=" TextBox1.Text ";" "password=" TextBox2.Text ";")
 
       Try
            conn
.Open()
 
           MessageBox.Show("Connection Opened Successfully!")
 
       Catch myerror As SqlException
            MessageBox
.Show("Error was encountered when connecting" myerror.Message)
 
       Finally
        End 
Try
 
       SQL "SELECT * FROM sys.databases d WHERE d.database_id>4"
 
       myCommand.Connection conn
        myCommand
.CommandText SQL
        myAdapter
.SelectCommand myCommand
        myAdapter
.Fill(myData2)
 
       For Each dr As DataRow In myData2.Rows
            ComboBox2
.Items.Add(dr(0))
 
       Next
        conn
.Close() 
الرد }}}}
تم الشكر بواسطة: أبو فلان
#3
address = نظرة ثاقبة + حل سريع = نتيجة ترضي كل الاطراف
الرد }}}}
تم الشكر بواسطة:
#4
يا رجب،

اللي اعرفه ان الاستعلام "show Databases" خاص ب MySql وليس SqlServer تاكد سؤالك.
الرد }}}}
تم الشكر بواسطة:
#5
يا رجب،

ثاني شي الفاصلة الموجود مع server مكانها خطأ ولازم تكون بعد ComboBox1.Text
PHP كود :
conn.ConnectionString = ("server=" ComboBox1.Text ";user id=" TextBox1.Text ";" "password=" TextBox2.Text ";"
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 83 أمس, 11:16 AM
آخر رد: superwoofer
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 94 07-12-16, 01:11 AM
آخر رد: adel27
  تعبئة الكمبوبوكس في الداتاغريد فيو .. حلا ابوحامضة 7 254 06-12-16, 11:32 AM
آخر رد: superwoofer
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 36 05-12-16, 07:53 PM
آخر رد: kofa
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 57 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 46 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 213 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 108 26-11-16, 03:03 AM
آخر رد: hglogtd
  [VB.NET] ما هيه افضل قواعد بينات اتعامل معاها dubai.eig 3 109 25-11-16, 01:07 AM
آخر رد: hassan
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 91 24-11-16, 12:14 PM
آخر رد: thevirus

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


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