Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1087050
  • 博文数量: 282
  • 博客积分: 10865
  • 博客等级: 上将
  • 技术积分: 2480
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-12 12:35
文章存档

2017年(1)

2016年(3)

2015年(10)

2014年(12)

2013年(5)

2012年(10)

2011年(29)

2010年(3)

2008年(13)

2007年(92)

2006年(104)

我的朋友

分类: 嵌入式

2011-07-06 09:40:09

实现创建数据库,创建表,然后在表中增加、修改、删除以及读取记录的功能,就这个例子的编写来讲SQLCE的第一部分——操作PDA本地上的数据库。

SQLCE提供了一个数据库连接,通过它,可以使用标准SQL语句进行数据库的创建。
SQLCE的第一个基本功能,就是可以在不依赖SQLSERVER的情况下,在PPC上独立的创建数据库,并以sdf文件的格式保存在PPC上。

在VS.NET 2003中,使用VB开发PPC程序,可以很容易加入使用SQLCE的功能。
基本步骤如下:
(1)使用VB.net建立一个智能设备应用程序,平台选择PPC;
(2)右键点击“解决方案”该工程下面的“引用”,然后选择“添加引用”,然后添加“System.Data.SqlServerCe”;
(3)在需要使用SQLCE的窗体代码中添加两个引用
Imports System.Data.SqlServerCe
Imports System.IO

经过这些操作,就可以使用SQLCE了。

定义两个全局变量
'数据库连接以及结果集变量
    Dim conn As New SqlCeConnection("Data Source=\My Do***ents\Phone.sdf")
    Dim ds As DataSet

余下的就是使用SQL进行数据库操作

'创建数据库
    Sub CreateDB()
        If Not File.Exists("\My Do***ents\Phone.sdf") Then
            Dim sqlEngine As New SqlCeEngine("Data Source = \My Do***ents\Phone.sdf")
            sqlEngine.CreateDatabase()

            Dim cmd As New SqlCeCommand("CREATE TABLE Phone(Name nvarchar(20) Primary Key NOT NULL,Number nvarchar(20))", conn)

            conn.Open()
            cmd.ExecuteNonQuery()
            
            conn.Close()

            status = status + "创建数据库成功!" & vbCrLf
        Else
            status = status + "数据库已经存在!" & vbCrLf
        End If
    End Sub

    '添加数据
    Sub AddData()
        If File.Exists("\My Do***ents\Phone.sdf") Then

            Dim cmd As New SqlCeCommand("", conn)

            conn.Open()

            cmd.CommandText = "INSERT INTO Phone(Name,Number) VALUES ('abcde','12345')"
            cmd.ExecuteNonQuery()
            cmd.CommandText = "INSERT INTO Phone(Name,Number) VALUES ('bcdef','23456')"
            cmd.ExecuteNonQuery()

            conn.Close()

            status = status + "添加记录成功!" & vbCrLf
        Else
            status = status + "数据库尚未创建!" & vbCrLf
        End If
    End Sub

    '显示数据库中的数据
    Sub List()
        If File.Exists("\My Do***ents\Phone.sdf") Then

            conn.Open()
            Dim reader As SqlCeDataReader
            Dim cmd As New SqlCeCommand("SELECT * FROM Phone", conn)
            reader = cmd.ExecuteReader
            While reader.Read

                status += "姓名:" & reader.Item("Name") & "  电话:" & reader.Item("Number") & vbCrLf

            End While
            conn.Close()
        Else
            status = status + "数据库尚未创建!" & vbCrLf
        End If
    End Sub

    '删除数据库的数据
    Sub DeleteData()
        If File.Exists("\My Do***ents\Phone.sdf") Then

            conn.Open()

            Dim cmd As New SqlCeCommand("DELETE FROM Phone", conn)
            cmd.ExecuteNonQuery()

            conn.Close()

            status = status + "数据库的记录已经删除!" & vbCrLf
        Else
            status = status + "数据库尚未创建!" & vbCrLf
        End If
    End Sub

    '修改数据库的数据
    Sub ModifyData()
        If File.Exists("\My Do***ents\Phone.sdf") Then

            conn.Open()

            Dim cmd As New SqlCeCommand("UPDATE Phone SET Name='Hello', Number='87654321' WHERE Name='abcde' AND Number='12345'", conn)
            cmd.ExecuteNonQuery()

            conn.Close()

            status = status + "数据库的记录已经修改!" & vbCrLf
        Else
            status = status + "数据库尚未创建!" & vbCrLf
        End If
    End Sub

以上只是最基本的操作,都包含在本文的例子当中。根据需要,可以使用这些SQLCE做出具有多种复杂功能的软件出来。
阅读(2679) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~