[RESOLVED] What's wrong with my code??

[Jhimz]

Hi..

Im trying to upload an excel file and generate it in datagrid. When I clicked the button generate, nothing has been populated. Can you take a look at my code and check it please..

Imports System.Data
Imports System.Data.OleDb
 
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub btnGenerate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        If fu_Load.HasFile Then
            LoadSheets()
        End If
    End Sub
 
    Private Sub LoadSheets()
        Dim Con As New OleDb.OleDbConnection
        Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fu_Load.HasFile & ";Extended Properties=""Excel 8.0;HDR=No;"""
 
        Try
            Con.Open()
 
            Dim DT As New DataTable("Sheets")
            DT = Con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
 
            ' Clear controls in placeholder
            PH.Controls.Clear()
 
            ' Add controls
            For Each Row As DataRow In DT.Rows
                Dim Control As DGControl = LoadControl("DGControl.ascx")
 
                ' Set Name
                Control.TabName = Row.Item("Table_Name")
 
                ' Set Data
                Control.Data = Get_ExcelData(Con, Row.Item("Table_Name"))
 
                PH.Controls.Add(Control)
                PH.Controls.Add(New LiteralControl("<br />"))
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Function Get_ExcelData(ByVal Con As OleDb.OleDbConnection, ByVal SheetName As String) As DataTable
        Dim DT As New DataTable("Data")
        Dim DA As New OleDbDataAdapter("Select * from [" & SheetName & "]", Con)
        DA.Fill(DT)
 
        Return DT
    End Function
End Class

Thanks alot!

---Jhimz

[danasegarane]

Everything looks good expect this one

Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=" 
& fu_Load.HasFile & ";Extended Properties=""Excel 8.0;HDR=No;""" 

I doubt you are using the FileUpload Component and you are is Asp.net Application.

You need to follow this logic.

Save the uploaded file in temp directory using

 'Get the Temp file name and save it in server temp directory
 Dim _TempFileName As String = System.IO.Path.GetTempFileName
 FileUpload1.SaveAs(TempFileName ) 

And change the connection to

Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=" & TempFileName  & ";Extended Properties=""Excel 8.0;HDR=No;""" 

Now open the connection and do the operation and after everything done, delete the file from server temp directory

[gep13]

Hey,

Or if you are using ASP.Net, tell us, and your thread can be moved over to the ASP.Net Forum.

Also, when you are posting code into the forum, can you remember to surround it in CODE tags, it makes it a lot easier to read!!

Gary

[danasegarane]

Look at this Gary..

Imports System.Data
Imports System.Data.OleDb

Partial Class _Default
Inherits System.Web.UI.Page

It is Asp.net Only

[gep13]

Hey Dana,

You are quite correct, I missed that, was assuming the Connection String had been copied from somewhere else.

I will ask for the thread to be moved.

Gary

[Hack]

It is Asp.net Only

Moved To ASP.NET

[Jhimz]

Many thanks for your help danasegarane. I've tried it and it worked..