Simple. Why can't I figure it out.
Three buttons and a DataGridView control.
Database connection works fine.
Sql queries work fine.
Press button1 - Correct result shows up in DataGridView1 - column 1
Press button2 - Differrent SQL, but correct result shows up in DatagridView1 - but automatically adds a second column
I want to press button3 and clear/release/unbind datagridview1 so when whatever button1 or button2 is pressed drops its SQL result into column 1 always.
Here's the code for the buttons.....
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
strSQL = "SELECT First([Customers].[Address]) AS [Address Field] FROM [Customers] WHERE (([Customers].Name) = ""Fred"" ); "
da = New OleDb.OleDbDataAdapter(strSQL, con) '
da.Fill(ds, "Table1")
da.SelectCommand.Parameters.Clear() 'Tries to clear Dataadapter
da.Dispose()
da = Nothing
DataGridView1.DataSource = ds.Tables("Table1")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
strSQL = "SELECT First([Customers].[City]) AS [City Field] FROM [Customers] WHERE (([Customers].Name) = ""Fred"" ); "
Debug.Print(strSQL)
da = New OleDb.OleDbDataAdapter(strSQL, con)
da.Fill(ds, "Table1")
da.SelectCommand.Parameters.Clear() 'Tries to clear dataadapter
da.Dispose()
da = Nothing
DataGridView1.DataSource = ds.Tables("Table1")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ds.Clear()
ds.Dispose()
DataGridView1.DataSource = ""
DataGridView1.Columns.Clear()
End Sub
End Class
Three buttons and a DataGridView control.
Database connection works fine.
Sql queries work fine.
Press button1 - Correct result shows up in DataGridView1 - column 1
Press button2 - Differrent SQL, but correct result shows up in DatagridView1 - but automatically adds a second column
I want to press button3 and clear/release/unbind datagridview1 so when whatever button1 or button2 is pressed drops its SQL result into column 1 always.
Here's the code for the buttons.....
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
strSQL = "SELECT First([Customers].[Address]) AS [Address Field] FROM [Customers] WHERE (([Customers].Name) = ""Fred"" ); "
da = New OleDb.OleDbDataAdapter(strSQL, con) '
da.Fill(ds, "Table1")
da.SelectCommand.Parameters.Clear() 'Tries to clear Dataadapter
da.Dispose()
da = Nothing
DataGridView1.DataSource = ds.Tables("Table1")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
strSQL = "SELECT First([Customers].[City]) AS [City Field] FROM [Customers] WHERE (([Customers].Name) = ""Fred"" ); "
Debug.Print(strSQL)
da = New OleDb.OleDbDataAdapter(strSQL, con)
da.Fill(ds, "Table1")
da.SelectCommand.Parameters.Clear() 'Tries to clear dataadapter
da.Dispose()
da = Nothing
DataGridView1.DataSource = ds.Tables("Table1")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ds.Clear()
ds.Dispose()
DataGridView1.DataSource = ""
DataGridView1.Columns.Clear()
End Sub
End Class