• 0
alfenwa6

إظهار أسماء الجداول الموجودة في قاعدة البيانات

سؤال

السلام عليكم

أريد دالة لجعل أسماء الجداول في قاعدة البيانات تظهر في كمبو بكس

 

 

Imports System.Data.OleDb
Public Class start


    'Inherits System.Windows.Forms.Form

    Dim conn As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" + IO.Directory.GetCurrentDirectory + "\test.mdb")
    Dim dad As New OleDb.OleDbDataAdapter
    Dim red As OleDb.OleDbDataReader
    Dim comm As New OleDbCommand

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        conn.Open()

        Try

            comm.Connection = conn
            comm.CommandType = CommandType.Text '                                                                                                                                تحديد المفتاح الاساسي
            comm.CommandText = "CREATE TABLE " & TextBox2.Text & "  (id NUMBER , qus string , a string, b string, c string, d string, e string, f string, g string, w string , CONSTRAINT id PRIMARY KEY(id));"
            comm.ExecuteNonQuery()
            MsgBox("تم اضافة الجدول")
        Catch ex As Exception
            MsgBox("error")
        End Try
        conn.Close()
    End Sub

لدي كمبوبكس أبغا الجداول الموجودة في القاعدة تضاف أسماؤها في الكمبوبكس سواء اللي اضفتها أو المضافة سابقا

ان شاء الله الشرح واضح

تم تعديل بواسطه alfenwa6
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

ياسلام 

 

ماتوقعت لها حل 

 

جاري التجربة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .