[kslawy]

السلام عليكم ورحمة الله وبركاته

بالنسبة للسؤال الأول :

PHP كود :

Dim DatabaseName As String = "Your Database Name here"

    Dim conStr As String = ("Server=.\sqlexpress; DataBase=" + DatabaseName + "; Integrated Security=SSPI")


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TableColumnNames("Your Table Name here")
    End Sub


    Private Sub TableColumnNames(ByVal tblName As String)
               Try

            Dim strSQL As String = "SELECT [COLUMN_NAME] FROM INFORMATION_SCHEMA.columns Where [TABLE_NAME]=@1"
            Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, conStr)
            With da.SelectCommand.Parameters
                .Clear()
                .AddWithValue("@1", tblName)
            End With

            Dim ds As New DataSet()

            da.Fill(ds)

            If ds.Tables(0).Rows.Count > 0 Then
                DataGridView1.DataSource = ds.Tables(0)
            Else
                MessageBox.Show("لا يوجد جدول بهذا الاسم", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub