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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل شريط متحرك من قاعدة البيانات hglogtd 24 288 15-10-17, 11:54 PM
آخر رد: hglogtd
  ربط combobox بصفحه البيانات abdel.halim 8 132 11-10-17, 07:27 PM
آخر رد: abdel.halim
  توقف قاعدة البيانات عن الاستجابة وعدم قبول اي تعديلات nassery99 2 54 09-10-17, 06:34 PM
آخر رد: nassery99
  [VB.NET] سؤال :- طريقة جميع الوقت من قاعدة البيانات dubai.eig 4 120 03-10-17, 04:02 PM
آخر رد: dubai.eig
  مشكله تكرار اول قيمه اضيقت لقاعدة البيانات !! Rabeea Qbaha 2 79 29-09-17, 04:51 AM
آخر رد: Rabeea Qbaha
  [VB.NET] ظهور رسالة خطأ: نوع البيانات غير متطابق في تعبير المعايير. Waleed Al-Khamesy 14 228 26-09-17, 04:14 AM
آخر رد: RADOS
  سبب ظهور خطأ في حفظ البيانات مصمم هاوي 2 83 19-09-17, 12:33 PM
آخر رد: مصمم هاوي
  [VB.NET] لخبراء قواعد البيانات create table dubai.eig 4 106 19-09-17, 10:39 AM
آخر رد: dubai.eig
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 70 11-09-17, 12:58 PM
آخر رد: 0theghost0
  [سؤال] كود حفظ البيانات من التكست بوكس الي الحقل shingray 1 80 08-09-17, 04:53 PM
آخر رد: Amjad

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


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