Ive tried
GridView2.Columns.Clear()
GridView2.Dispose()
GridView2.DataSource = ""
GridView2.DataBind()
with no luck
Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myConnStr As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim strSqlCount As String
On Error GoTo AdoError
GridView2.Columns.Clear()
GridView2.Dispose()
GridView2.DataSource = ""
GridView2.DataBind()
strSqlCount= "SELECT * FROM tblInvoice WHERE InvoiceNumber =" & "'" & strBoxInvoiceNum01 & "'"
AcctConnect = New OleDb.OleDbConnection(myConnStr)
AcctConnect.Open()
RsAcctCountAdapter = New OleDb.OleDbDataAdapter(strSqlCount, AcctConnect)
RsAcctCountAdapter.Fill(RsAcctCount, "Count")
GridView2.DataSource = RsAcctCount.Tables("Count").DefaultView
GridView2.DataBind()
RsAcctCountAdapter.Dispose()
RsAcctCount.Dispose()
AcctConnect.Close()
Done:
Exit Sub
AdoError:
If Str(Err.Number) <> 0 Then
strTmp = strTmp & vbCrLf & "VB Error # " & Str(Err.Number)
strTmp = strTmp & vbCrLf & " Generated by " & Err.Source
strTmp = strTmp & vbCrLf & " Description " & Err.Description
MsgBox(strTmp)
On Error GoTo 0
GoTo Done
End If

New Topic/Question
Reply




MultiQuote




|