[Alaamakkawi]

شكرا لك
بس انا عندي اسماء جداول و stored procedures كثير جدا
هل يوجد طريقة غير هي
 Sub CreateTable(Dgv As DataGridView)
        Dim StrSQL As String = "CREATE TABLE [dbo].[CompanyName](" _
 & "ID int Not Null," _
 & "CompanyName nvarchar(255) Not Null," _
 & "StartDate date Not Null," _
 & "EndDate date Not Null," _
 & "CompanyCase bit Not Null," _
 & "ServerName nvarchar(255) Not Null," _
 & "DatabaseName nvarchar(255) Not Null" _
 & ") ON [PRIMARY]"
        Dim da As New System.Data.SqlClient.SqlDataAdapter(StrSQL, con)
        Dim dt As New DataTable
        da.Fill(dt)
    End Sub

وشكرا اليك