تقييم الموضوع :
  • 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 ";"
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 61 19-01-17, 04:21 AM
آخر رد: tifagreet
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 126 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 172 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 66 11-01-17, 02:13 AM
آخر رد: مساعدة
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 344 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 135 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 71 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 111 25-12-16, 01:44 PM
آخر رد: thevirus
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 11 568 18-12-16, 07:15 PM
آخر رد: أبووسم
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 4 273 18-12-16, 05:00 AM
آخر رد: zinom

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


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