用vb.net与acess结合实现简单的电话号码本程序(二)完

原创 2003年10月27日 02:06:00

所有源代码在这里下载:

http://www.up2e.com/resource.php

用vb.net与acess结合实现简单的电话号码本程序(二)完--by zigz(LuHai)
luluhai@eastday.com

四) 相关知识
  拿到课程设计题目时,了解到本题和数据库相关,而.NET又引入了全新的ADO.NET数据访问技术,所以我们就去了解了些这方面的知识,看看她如何和Access结合建立数据库程序,在学习过程中发现其中需要用到SQL语句来实现对数据库的增加,查询,修改以及删除等操作。
  其中OleDbConnection控件用来和数据库进行连接,OleDbCommand控件用来向数据库发送SQL命令,来完成对数据库的操作。

几个知识点如下:
1) SQL语言
A,Select语句
其主要用途是从数据表中获得一个数据集,他的语法如下:
Select selectlist From tablename [Where searchCondition]
B,Insert语句
用于向数据库表中插入新纪录,他的语法如下:
Insert [into] tablename [(column list)] Values (default|NULL|expression)
C,Delete语句
用于删除数据库中的纪录,他的语法如下:
Delete From tablename [Where searchcondition]

   2)ADO.NET数据对象
其中OleDbConnection控件用来和数据库进行连接,OleDbCommand控件用来向数据库发送SQL命令,来完成对数据库的操作。

五) 编程思路和关键程序
思路就是通过设置OleDbConnection控件来建立与Acess2000数据库的连接,通过设置OleDbCommand控间的CommandText属性来增加,删除纪录,通过OleDbDataReader结合ListView控件来显示数据库的所有纪录。

1) 关于添加按钮功能的实现
首先编写了一个用于添加纪录的函数addrecord()

Private Sub addrecord()

        Label5.Visible = False

        ErrorProvider1.SetError(homephone, "")

        ErrorProvider1.SetError(mobilephone, "")

 

        OleDbConnection1.Open() '打开连接

        OleDbCommand1.CommandText = "insert into txl(name,mobilephone,homephone,email) values('" + tbname.Text + "','" + mobilephone.Text + "','" + homephone.Text + "','" + email.Text + "')"

 

        OleDbCommand1.ExecuteNonQuery() '向数据库中添加一行纪录

        tbname.Text = "" '清空所有

        mobilephone.Text = ""P

        homephone.Text = ""

        email.Text = ""

        MessageBox.Show("已经成功添加了一条纪录!", "info", MessageBoxButtons.OK)

        OleDbConnection1.Close() '关闭连接

    End Sub

然后在“添加”按钮单击事件函数中:

Private Sub btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click

        If tbname.Text = "" Then '如果用户没有输入姓名

            MessageBox.Show("对不起!请输入您的姓名。", "info", MessageBoxButtons.OK, MessageBoxIcon.Warning)

        ElseIf Not mobilephone.Text = "" Then

            If Not IsNumeric(mobilephone.Text) Then

                ErrorProvider1.SetError(mobilephone, "1")

                Label5.Visible = True

            Else

                addrecord()

            End If

        ElseIf Not homephone.Text = "" Then

            If Not IsNumeric(homephone.Text) Then

                ErrorProvider1.SetError(homephone, "1")

                Label5.Visible = True

            Else

                addrecord()

            End If

        Else

            addrecord()

        End If

End Sub

2) 关于删除记录功能的实现

7 删除纪录

程序也主要就是通过设置OleDbConnection控件来建立与Acess2000数据库的连接,通过设置OleDbCommand控间的CommandText属性来实现删除纪录的功能。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If tbdel.Text = "" Then

            MessageBox.Show("你还没有输入姓名!", "info", MessageBoxButtons.OK)

        Else

            Dim mainform As New Form1()

            mainform.OleDbCommand1.CommandText = "delete from txl where name='" + tbdel.Text + "'"

            mainform.OleDbConnection1.Open()

            mainform.OleDbCommand1.ExecuteNonQuery()

            MessageBox.Show("已经删除成功!", "info", MessageBoxButtons.OK)

            Me.Close()

        End If

End Sub

 

3)关于列表显示的代码

Private Sub showall_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim mainform As New Form1()

        Dim reader As OleDb.OleDbDataReader

        mainform.OleDbCommand1.CommandText = "select * from txl"

        mainform.OleDbConnection1.Open()

        reader = mainform.OleDbCommand1.ExecuteReader '返回所有纪录

        Do While reader.Read 'listview列出所有纪录

            Dim li As New ListViewItem()

            li.SubItems.Clear()

            li.SubItems(0).Text = reader("name").ToString

            li.SubItems.Add(reader("mobilephone").ToString)

            li.SubItems.Add(reader("homephone").ToString)

            li.SubItems.Add(reader("email").ToString)

            ListView1.Items.Add(li)

        Loop

        reader.Close()

        mainform.OleDbConnection1.Close() '关闭连接

    End Sub

 

至此,关键代码就这么多,详细代码请看我原文件。

总结:

我这个程序看上去很小,但实际上功能不少,虽然没有把查询纪录的功能做进去,但那其实与增加,删除纪录的模式完全一样,就是需要换成不同的SQL语句即可。

 

全文完。

 

by zigz(LuHai)

luluhai@eastday.com

用vb.net与acess结合实现简单的电话号码本程序(一)

  • zgqtxwd
  • zgqtxwd
  • 2008年04月24日 11:48
  • 102

VB.net数据库编程(01):简单的入门实例--连接到Access文件

先来一个简单的实例。 VB.net 2012 SQl server 2012 Access文件:http://download.csdn.net/detail/dzweather...
  • u014366427
  • u014366427
  • 2014年03月26日 11:08
  • 1659

Excel、Access、VB的结合应用

---- 微软公司的Office系列办公软件相信已是众所周知,其中Excel强大的统计制表功能、Access功能完备的数据处理能力深受众多用户所喜爱。Visual Bsaic更是微软公司又一有力的产品...
  • yzmml
  • yzmml
  • 2005年11月19日 22:20
  • 936

软交换概念总结

它的定义为:利用把呼叫控制功能与媒体网关分开的方法来沟通公用电话交换网(PSTN)与IP电话(VoIP)的一种交换技术。     软交换是一种功能实体,为下一代网络NGN提供具有实时性要求的业务的呼...
  • shuangyidehudie
  • shuangyidehudie
  • 2012年09月12日 11:10
  • 981

简单 sql 语句 实用大全

一、基础   1、说明:创建数据库   CREATE DATABASE database-name   2、说明:删除数据库   drop database dbname   3、说明:备份...
  • li_yangyang_li
  • li_yangyang_li
  • 2015年12月29日 20:29
  • 1906

完整的VB.NET的语法解析程序

using System;using System.Text;using System.Text.RegularExpressions;namespace Com.OSLeague.Component...
  • DXBBS
  • DXBBS
  • 2006年11月06日 16:38
  • 316

VB.NET2008创建动态ACCESS数据库并创建表示例

首先需添加引用Microsoft ActiveX Data Objects 2.x LibraryMicrosoft ADO Ext. 2.x for DDL and Security  Import...
  • muolu_soft
  • muolu_soft
  • 2010年05月20日 08:47
  • 3349

三元组,二元组,排列组合

""" 算法题:二元组 Given an array of integers, return indices of the two numbers such that they add...
  • qq_36022260
  • qq_36022260
  • 2017年12月11日 23:32
  • 77

VB程序多国语言的实现

国际化的发展对软件的多国语言也提出了要求,今天要对公司的一个软件做英文界面。 老大给我说了简单的实现方式:读写文件。 功能要求: 1在设置界面上有语言选项,选择相应的选项时,界面上所有的显示及可能显示...
  • ss00_2012
  • ss00_2012
  • 2013年11月19日 17:15
  • 1281

用vb.net实现写字板程序报告(二)

所有源代码均在这里下载:http://www.up2e.com/resource.php 用vb.net实现写字板程序报告(二) --by zigz(LuHai)luluhai@eastday.com...
  • zigz
  • zigz
  • 2003年10月27日 02:06
  • 966
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用vb.net与acess结合实现简单的电话号码本程序(二)完
举报原因:
原因补充:

(最多只允许输入30个字)