izmenjeno 1 put, poslednji put ksrele 11.04.2010. u 15:09
Izmene poruke
- ksrele11.04.2010. u 15:09zapis iz teksta poruke
Moze li mala pomoc. Pocetnik sam u VB.net-u. Nekako sam nasao negde na netu da se ovako popunjava DataGridView, da li mozda negde gresim jer kada unesem neki zaista veliki broj, on se u bazu (sqlite) dobro upise ali se u DataGridView-u lose prikazuje.
Ja ukucam: "123456789.12" a on meni izbaci: "123456792" u samoj tabeli a kada uradim dupli klik da sadrzaj reda prebacim u text box onda mi u text boxu pise: "1,234568E+08".
Evo koda za iscitavanje iz baze i punjenje DataGridView-a:
Ja ukucam: "123456789.12" a on meni izbaci: "123456792" u samoj tabeli a kada uradim dupli klik da sadrzaj reda prebacim u text box onda mi u text boxu pise: "1,234568E+08".
Evo koda za iscitavanje iz baze i punjenje DataGridView-a:
Code:
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As New SQLite.SQLiteCommand
Dim results As DataSet = New DataSet
Dim database As String = path_to_db
'<remarks>
'Creating a ConnectionString pointing to the database file
'</remarks>
Dim datasource As SQLite.SQLiteConnectionStringBuilder = New SQLite.SQLiteConnectionStringBuilder()
datasource.Add("Data Source", database)
datasource.Add("Version", "3")
datasource.Add("New", "False")
datasource.Add("Compress", "False")
Dim connection As SQLite.SQLiteConnection = New SQLite.SQLiteConnection(datasource.ConnectionString)
Dim adapter As SQLite.SQLiteDataAdapter = New SQLite.SQLiteDataAdapter("SELECT * FROM pocetno_stanje;", connection)
'<remarks>
'Populating the DataGridView
'</remarks>
adapter.Fill(results)
Form1.DataGridView1.DataSource = results.Tables(0).DefaultView
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As New SQLite.SQLiteCommand
Dim results As DataSet = New DataSet
Dim database As String = path_to_db
'<remarks>
'Creating a ConnectionString pointing to the database file
'</remarks>
Dim datasource As SQLite.SQLiteConnectionStringBuilder = New SQLite.SQLiteConnectionStringBuilder()
datasource.Add("Data Source", database)
datasource.Add("Version", "3")
datasource.Add("New", "False")
datasource.Add("Compress", "False")
Dim connection As SQLite.SQLiteConnection = New SQLite.SQLiteConnection(datasource.ConnectionString)
Dim adapter As SQLite.SQLiteDataAdapter = New SQLite.SQLiteDataAdapter("SELECT * FROM pocetno_stanje;", connection)
'<remarks>
'Populating the DataGridView
'</remarks>
adapter.Fill(results)
Form1.DataGridView1.DataSource = results.Tables(0).DefaultView