Search code examples
sqlvb.netsql-drop

VB.net SQL Table Drop - table will not drop

I'm having trouble getting a SQL 2008 R2 Express table to drop using VB. Here is my code:

Private Sub Form10_AssyWIP_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    Dim sqConQC As New SqlClient.SqlConnection("Server=QCG11\SQLEXPRESS;Database=QCGMAIN; Trusted_Connection=True;")
    Dim sqCmdQC As New SqlClient.SqlCommand

    sqCmdQC.Connection = sqConQC            'create the DB connection 
    sqConQC.Open()                        'open the connection
    Dim ds As New DataSet
    Dim Adapter As New SqlDataAdapter
    Dim pivot As String
    Dim sql As String
    Dim drop As String
    'Read the data

    drop = "DROP TABLE AssyWIP"
    Adapter.SelectCommand = New SqlCommand(drop, sqConQC)
    sqConQC.Close()
    End Sub
Solution

  • I'd use a SqlCommand for this:

        drop = "DROP TABLE AssyWIP"
    Dim command As New SqlCommand(drop, sqConQC)
    command.ExecuteNonQuery()
    sqConQC.Close()