[asemshahen5]

كود انشاء جدول :

PHP كود :

       Dim StrSQL As String = "CREATE TABLE [dbo].[Test](Id int Null,ParentId int Null,Name nvarchar Null,Company nvarchar Null,Occupation nvarchar Null) ON [PRIMARY]"
        Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt) 


كود عرض اسماء الجداول في كومبو بوكس :

PHP كود :

       Dim da As New SqlClient.SqlDataAdapter("Select Name AS 'Table_Name' From dbo.sysObjects Where xtype='u' order by Name", cn)
        Dim dt As New DataTable
        da.Fill(dt)
        CmbTableName.Items.Clear()
        For Each row As DataRow In dt.Rows
            CmbTableName.Items.Add(row(0).ToString)
        Next 


كود عرض الجدول المختار من الكمبو بوكس في اداة الداتاغريد فيو :

PHP كود :

       Dim StrSQL As String = "Select * From " & CmbTableName.Text
        Dim cn As New SqlClient.SqlConnection("Server =(local);database=TestDB;integrated security=true")
        Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        DgvTable.DataSource = dt