Eu já vinculei os dados do gridview no datatble, oque eu faço para salvar no access.segue código...
08/11/2010
0
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If FileUpload1.HasFile Then Dim fileinfo As New FileInfo(FileUpload1.PostedFile.FileName) Dim csvDiretorio As String = ""
Dim strCaminhoArquivoCSV As String = (Server.MapPath(csvDiretorio) & "\") + fileinfo.Name
'Salva o arquivo CSV no servidor na pastacsvDiretorio FileUpload1.SaveAs(strCaminhoArquivoCSV)
'define a localização do arquivo CSV Dim strCaminhoArquivo As String = Server.MapPath(csvDiretorio) & "\"
Dim strSql As String = "SELECT * FROM [" & fileinfo.Name & "]"
Dim strCSVStringConexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminhoArquivo & ";" & "Extended Properties='text;HDR=YES;'"
' carrega os dados do arquivo CSV para um DataTable Dim da As New OleDbDataAdapter(strSql, strCSVStringConexao) Dim dtCSV As New DataTable() da.Fill(dtCSV)
'Exibe os dados no gridview GridView1.DataSource = dtCSV GridView1.DataBind()
If FileUpload1.HasFile Then Dim fileinfo As New FileInfo(FileUpload1.PostedFile.FileName) Dim csvDiretorio As String = ""
Dim strCaminhoArquivoCSV As String = (Server.MapPath(csvDiretorio) & "\") + fileinfo.Name
'Salva o arquivo CSV no servidor na pastacsvDiretorio FileUpload1.SaveAs(strCaminhoArquivoCSV)
'define a localização do arquivo CSV Dim strCaminhoArquivo As String = Server.MapPath(csvDiretorio) & "\"
Dim strSql As String = "SELECT * FROM [" & fileinfo.Name & "]"
Dim strCSVStringConexao As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminhoArquivo & ";" & "Extended Properties='text;HDR=YES;'"
' carrega os dados do arquivo CSV para um DataTable Dim da As New OleDbDataAdapter(strSql, strCSVStringConexao) Dim dtCSV As New DataTable() da.Fill(dtCSV)
'Exibe os dados no gridview GridView1.DataSource = dtCSV GridView1.DataBind()
Bruno Ribeiro
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)