Da li neko ima kod kojim se uvoze podaci iz excel tabele u datagridview tabelu ili u SQL server tabelu.
Prebacianje podataka iz excel tabele u datagridview tabelu
Zaključano
Zakačeno
Code:
OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + datoteka + ";Extended Properties=\"Excel 8.0;HDR=Yes\"");
OleDbDataAdapter Adapter = new OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn);
DataTable Tabela=new DataTable();
Adapter.Fill(Tabela);
OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + datoteka + ";Extended Properties=\"Excel 8.0;HDR=Yes\"");
OleDbDataAdapter Adapter = new OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn);
DataTable Tabela=new DataTable();
Adapter.Fill(Tabela);
Ovo je da ucitas podatke iz .xls datoteke. Takodje opcija HDR oznacava da je prvi red u stvari zaglavlje tabele, tj. sadrzi imena kolona.
Morao sam malo da korigujem tvoj kod i izgleda ovako
Dim conn = New OleDbConnection()
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; DataSource= + c:\\Novembar_detalji.xls + ;Extended Properties=\Excel 8.0;HDR=Yes\")
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
Sheet01TableAdapter.Fill(Tabela)
i sada mi se javlja greška.
Unable to cast object of type 'System.Data.DataTable' to type 'Sheet01DataTable'.
Dim conn = New OleDbConnection()
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; DataSource= + c:\\Novembar_detalji.xls + ;Extended Properties=\Excel 8.0;HDR=Yes\")
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
Sheet01TableAdapter.Fill(Tabela)
i sada mi se javlja greška.
Unable to cast object of type 'System.Data.DataTable' to type 'Sheet01DataTable'.
Jel ti ovo direktno iz koda ???
posto imas :
Treba da ide:
posto imas :
Code:
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
Sheet01TableAdapter.Fill(Tabela)
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
Sheet01TableAdapter.Fill(Tabela)
Treba da ide:
Code:
Adapter.Fill(Tabela)
Adapter.Fill(Tabela)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn = New OleDbConnection()
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; DataSource= + c:\\Novembar_detalji.xls + ;Extended Properties=\Excel 8.0;HDR=Yes\")
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
'Sheet01TableAdapter.Fill(Tabela)
Adapter.Fill(Tabela)
End Sub
OPet isto greska je
Could not find installable ISAM.
Dim conn = New OleDbConnection()
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; DataSource= + c:\\Novembar_detalji.xls + ;Extended Properties=\Excel 8.0;HDR=Yes\")
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
'Sheet01TableAdapter.Fill(Tabela)
Adapter.Fill(Tabela)
End Sub
OPet isto greska je
Could not find installable ISAM.
Probaj sa :
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn = New OleDbConnection()
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; DataSource=c:\\Novembar_detalji.xls ;")
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
'Sheet01TableAdapter.Fill(Tabela)
Adapter.Fill(Tabela)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn = New OleDbConnection()
conn.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; DataSource=c:\\Novembar_detalji.xls ;")
Dim Adapter = New OleDbDataAdapter("SELECT * FROM [Sheet0$]", conn)
Dim Tabela = New DataTable()
'Sheet01TableAdapter.Fill(Tabela)
Adapter.Fill(Tabela)
End Sub
Neće Igore, ista greška. Samo jedno zapažanje, ne vidim kako se u kodu puni baš moja tabela, sheet0 recimo,
Evo ti projekat koji sigurno radi.
I kako imas u dokumentu Sheet0 ? valjda krece od sheet1 ?
I kako imas u dokumentu Sheet0 ? valjda krece od sheet1 ?