Imports System.Data.oledb
Imports System.data
Partial Class _Default
    Inherits System.Web.UI.Page

    
    Protected Sub btnProcurar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnProcurar.Click
        Try
            'obtendo a string de conexão do arquivo web.config
            Dim conexaoExcel As String = System.Configuration.ConfigurationManager.ConnectionStrings.Item("conexaoExcel").ToString()
            Dim dbConn As New OleDbConnection(conexaoExcel)
            Dim strSQL As String

            'montando a instrução SQL para obter os dados da planilha selecionada na caixa de listagem ddlExcel
            
            dbConn.Open()
            strSQL = "SELECT CODIGO FROM [" & ddlExcel.SelectedItem.ToString() & "$] WHERE CODIGO = '0001'"
            'Executando a instrução SQL e criando um DataSet para receber os dados
            
            Dim cmd As New OleDbCommand(strSQL, dbConn)
            Dim dsExcel As New DataSet
            Dim daExcel As New OleDbDataAdapter(cmd)
            
            'preenchendo o DataSet e exibindo os dados no gridView
            daExcel.Fill(dsExcel)
            If dsExcel.Tables(0).Rows.Count = 0 Then
            Response.write("O Campo código não está marcado como 000!")
            End If
            gdvExcel.DataSource = dsExcel
            gdvExcel.DataBind()
        Catch ex As Exception
           Throw ex
        End Try

    End Sub
End Class