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

大佬教程收集整理的这篇文章主要介绍了VB.NET+SQLCE操作数据库简单例子，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

在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) pri@R_874_11035@ 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操作数据库简单例子所遇到的程序开发问题。

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

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。