|
TOP
|
| 软件名称: |
VB.NET+SQLCE操作数据库简单例子 |
| 录
入 者: |
|
|
| 界面语言: |
简体中文 |
| 下载次数: |
16 次 |
| 运行环境: |
|
| 授权方式: |
免费版 |
| 软件大小: |
|
| 浏览次数: |
378 |
| 发布时间: |
2007-05-27 01:25:17 |
| 是否含插件: |
否 |
| 作者/开发商: |
|
PDF数据搜索:
 |
|
| 下载地址: |
您还可以搜索其他下载:
讯雷高速下载 点击下载
|
| 软件介绍: |
|
|
实现创建数据库,创建表,然后在表中增加、修改、删除以及读取记录的功能,就这个例子的编写来讲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做出具有多种复杂功能的软件出来。
|
|
| 下载说明: |
☉推荐使用讯雷下载本站软件,使用 WinRAR v3.10
以上版本解压本站软件。
☉如果这个软件总是不能下载的请联系我们,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。 |
|
-->