VB.NET+SQLCE *** 作数据库简单例子

概述 在VS.NET 2005中，使用VB开发PPC程序，可以很容易加入使用SQLCE的功能。 基本步骤如下： （1）使用VB.net建立一个智能设备应用程序，平台选择application device； （2）右键点击“解决方案”该工程下面的“引用”，然后选择“添加引用”，然后添加“System.Data.SqlServerCe”； （3）在需要使用SQLCE的窗体代码中添加两个引用 Impo 

在VS.NET 2005中，使用VB开发PPC程序，可以很容易加入使用sqlCE的功能。
基本步骤如下：
（1）使用VB.net建立一个智能设备应用程序，平台选择application device；
（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

总结

以上是内存溢出为你收集整理的VB.NET+SQLCE *** 作数据库简单例子全部内容，希望文章能够帮你解决VB.NET+SQLCE *** 作数据库简单例子所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。