Try
Dim conn As New System.Data.SQLite.SQLiteConnection(SqliteStr)
Dim cmd As New SQLiteCommand("SELECT * FROM Jinkou", conn)
conn.Open()
Dim ds As New DataSet()
Dim da As New SQLiteDataAdapter(cmd)
da.Fill(ds) ‘在些处报错,报formatException
conn.Close()
dg.DataSource = ds
Dim counts As New Integer
counts = dt.Rows.Count()
lbl合计.Text = "共:【" + counts.ToString() + "】条数据"
Catch ex As SqlException
MsgBox(ex.Message)
Catch ex As Exception
MsgBox(ex.Message) ’异常抛到这里
End Try求各位大神给出解决方案
Dim conn As New System.Data.SQLite.SQLiteConnection(SqliteStr)
Dim cmd As New SQLiteCommand("SELECT * FROM Jinkou", conn)
conn.Open()
Dim ds As New DataSet()
Dim da As New SQLiteDataAdapter(cmd)
da.Fill(ds) ‘在些处报错,报formatException
conn.Close()
dg.DataSource = ds
Dim counts As New Integer
counts = dt.Rows.Count()
lbl合计.Text = "共:【" + counts.ToString() + "】条数据"
Catch ex As SqlException
MsgBox(ex.Message)
Catch ex As Exception
MsgBox(ex.Message) ’异常抛到这里
End Try求各位大神给出解决方案
mDataAdapter.SelectCommand = New SQLiteCommand(mSQL, SQLiteConn) mTable = New DataTable
DataGrid1.DataBindings.Clear()
DataGrid1.DataSource = Nothing
DataGrid1.Refresh() mDataAdapter.Fill(mTable)
DataGrid1.DataSource = mTable