软讯网络 > 软件时空 > 软件相关 > 基于sqlce的数据操作
【标 题】:基于sqlce的数据操作
【关键字】:
sqlce
【来 源】:http://blog.csdn.net/mfkzj/archive/2007/04/18/1568639.aspx
基于sqlce的数据操作

Sqlce的整个数据读取过程与pc上的没有什么差别:1、建立数据连接;2、对数据进行查询得到结果集;3、读取结果集进行数据处理。 Sqlce是通过 SqlCeConnection建立一个本地文件的SQLCE连接,在建立数据库连接成功以后,通过SqlCeConnection建立SqlCeCommand对象,通过向SqlCeCommand赋予sql语句实现对数据库记录的查询。在这里一般采用的两种数据记录集读取方式:SqlCeDataReader和SqlCeDataAdapter。在下文程序中,我将分别进行描述。‘建立数据库连接cn = New SqlCeConnection("Data Source=\My Documents\hycrm.sdf")cn.Open()‘根据查询得到的记录集进行逐条的处理分析 在这种情况下一般采用SqlCeDataReader进行数据读取Try Dim cmd As SqlCeCommand = cn.CreateCommand cmd.CommandText = "select CreateDate from CorporationInfo group by CreateDate order by CreateDate" Dim reader As SqlCeDataReader reader = cmd.ExecuteReader Do While reader.Read If Trim(Str(Year(reader.Item("CreateDate")))) <> m_szYear Then TempStr = Trim(Str(Year(reader.Item("CreateDate")))) + "年度备案表" nodX = node.Nodes.Add(TempStr) SearchZh(Trim(Str(Year(reader.Item("CreateDate")))), nodX) m_szYear = Trim(Str(Year(reader.Item("CreateDate")))) End If Loop reader.Close() Catch sqlex As SqlCeException Dim sqlError As SqlCeError For Each sqlError In sqlex.Errors MessageBox.Show(sqlError.Message) Next Catch ex As Exception MessageBox.Show(ex.Message) Finally End Try‘当需要将查询得到的记录集在DateGrid上进行显示的时候,就需要使用SqlCeDataAdapter对数据进行批量读取,程序如下:Dim sqlstr As String Dim cmd As New SqlCeCommand Dim ds As New DataSet 'cn = New SqlCeConnection("\My Documents\hycrm.sdf") 'cn.Open() sqlstr = "select * from CorporationInfo” cmd = cn.CreateCommand cmd.CommandText = sqlstr Dim da As New SqlCeDataAdapter(cmd) da.Fill(ds)