《vb神童教程续数据库操作精》由会员分享，可在线阅读，更多相关《vb神童教程续数据库操作精（23页珍藏版）》请在金锄头文库上搜索。
1、目录第一部分:vb数据库操作实例 编写一个小型的信息管理系统 准备数据库 设计系统 的界面及对象的属性forml的load事件代码第二部分:补充内容ODBC数据源简介配置Access数据源配置SQL Server数据源vb连接Access数据库实例使用ADO Data控件连接Access的简单实例结尾vb神童教程（续）-编写一个小型的信息管理系统受委托为编程入门网做一个简单的 vb操作数据库的实例，来演示一下如何用vb向数据库中添加、修改、删除记录这些操作。我觉得自己是比较菜的，几年来别 人都在进步，只有我还在原地踏步。不过没有办法，我们这一圈人里现在只有我 机器上还有vb6，勉为其难，只有尝
2、试一下了。如果我写的这点幼稚的东西能为 想要了解vb数据库操作的朋友提供哪怕是一丁点儿的参考和帮助，将是我最为 高兴的事情，同时也希望高手不要见笑。我做的这个实例名为编程入门网网址管理系统”，算是一个小型的信息管理系统 吧。该系统后台使用的是Access数据库，程序中使用ADO代码链接的形式连接 Access该系统具有向数据库中添加、修改、删除记录的功能，进行某项操作后 能够实时刷新显示数据。并在程序中加了相应的代码对输入的数据进行合法性校 验，以避免输入错误的数据造成程序运行不正常，程序运行时各个操作及退出系 统时均有友好的提示框请用户确认。所有代码均在Win dows 2003+Vusua
3、l Basic6.0环境下调试通过。系统运行时如下图：目录vb神童教程（续）-准备数据库我用的是Access 2003因为需要讲解的仅仅是数据的添加、修改及删除，因此单 数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多 表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、 一对多联系等等；此外，对sql语言也需要有所了解。具体您可以参考：数据库 基础知识ABC。首先，在 我的电脑”的e盘新建一个名为vb文件夹，先打开Access,新建一个名 为Access_db的数据库（Access数据库文件的扩展名是.mdb），保存到刚才建立 的文件夹中，则以后在程序
4、中调用数据源的位置为E:vbAccess_db.mdb然后在Access_db.mdb中建立一个名为 wzdz的表（wzdz是 网站地址”的首字母 缩写），然后在wzdz表中添加网站名称、网站地址及网站描述三个字段，三个字 段的属性是相同的，如下：数据类型：文本。字段大小：50 有效性规则：无。必填字段：否 允许空字符串：否索引：无编号”这个字段使用的是Access的自动编号，并将其作为主键。也就是说，您在 表中设置以上三个字段即可，设置完毕保存表时，按Access的提示添加主键，Access会自动为您搞定。具体操作您可以参考：vb神童教程（续）-vb连接Access数据库实例这样在建立了数据
5、库及表结构之后，即使是调用没有记录的空库，系统也可以无 差错运行，可以在运行时通过 添加记录”按钮向数据库中添加记录。不过由于数 据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的， 不太美观哦。为了方便起见，我们在 Access中给wzdz表中预先添加两条初始记 录：則号呻Utt1MlfGWan强叱 CH2世的躍睹卅曲添加的方法很简单：在 Access的设计器中直接双击 wzdz表名，在出来的窗口中 添加即可。添加时注意：因为我们使用的是 Access的自动编号做主键，所以在添 加时不用理 编号”这个字段，直接添加后三个字段即可。 目录vb神童教程（续）-设计系统的界面及对
6、象的属性 本系统是一个很简单的数据库操作实例，能够对数据库的添加、修改及删除记录 这几个基本的操作。系统使用数据显示控件MSHFIexGrid显示数据库中的记录，使用数据链接控件Adodc链接数据库作为MSHFlexGrid的数据源，使用文本框来 接收系统运行时用户输入的数据。步骤如下：一、 启动vb6,新建一个标准exe工程，并将工程中的forml的caption属性设置 为 编程入门网网址管理系统”，width属性值设为7950, height属性值设为 4620。二、向窗体中添加一个 Adodc控件。如果在工具箱中找不到 Adodc控件，可以右 击工具箱，选择 部件菜单项，然后在 部件”
7、窗口的 控件”选项卡中选中“ Microsoft ADO Data Control6.0(OLEDB)。”在VB的属性窗口我们对Adodc控件的三个个属性值进行编辑，其余属性值使用 默认的即可：1、ConnectionString属性值设为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:vbAccess_db.mdb;Persist Security In fo=Fals这个属性设置了连接 Access_db.mdb这个数据库。2、RecordSourc属性值设为：select * from wzdz这个属性值中的sql语句的作用是查询出wzdz
8、表中的所有记录。3、Visible属性值设为False,作用是使其在运行时不可见。三、向窗体添加一个 MSHFlexGrid控件，如果工具箱中没有 MSHFlexGrid控 件，可以右击工具箱，选择 部件菜单项，然后在 部件”窗口的 控件”选项卡 中选中 “Microsoft Hierarchical FlexGridControl 6.0 。然后在 vb 的属性窗口中将 MSHFlexGrid控件的名称修改为MS1，如下图：然后对MSHFlexGrid控件进行如下设置：1、DataSource属性：在vb的属性窗口中将其值设为 Adodc1，即使用 Adodc控件 作为其数据源。2、Back
9、ColorBkg属性：在vb的属性窗口中将其值设为 &H00FFE0E0&，这是设 置的MSHFlexGrid控件的底色。3、BackColorFixed属性：在vb的属性窗口中将其值设为 &H00C0FFFF&，这是 设置的MSHFlexGrid控件的显示标题的底色。4、 width属性：在vb的属性窗口中将其值设为7695.5、 Height属性：在vb的属性窗口中将其值设为2175.6、 右击MSHFlexGrid控件，在弹出的菜单中选 属性”，在弹出的 属性页”对话 框的在 通用”选项卡中修改行为4,修改列为4,修改固定行为0,修改固定列为0。如果数据链接正常，在 属性页”对话框的带区
10、”选项卡中可以看到列标题和列 名称已经设置了，这里注意应该将 带区”选项卡中的 列标头”选项勾选上，否则 运行时无法显示列标题，如下图。 属性页”对话框的其它部分使用默认值即可。ST (MT |K.；J JI# |ilHr V IAU ratliv*四、向窗体中添加4个Label控件（标签），在vb的属性窗口为它们设置以下属 性：1、caption属性：分别设置为网站名称、网站地址、网站描述及编号。2、Alignment 属性：均设为 “-Center。3、AutoSize 属性：均设为 True。五、向窗体中添加4个TextBox控件（文本框），并调整它们的位置成一排与 4 个标签相对应，即
11、：网站名称 fT ext1,网站地址Text2，网站描述f Text3，编 号Text4。六、向窗体中添加 4个CommandButton控件（命令按钮），将它们的 caption属 性分别设置为添加记录” 修改记录” 删除记录”和退出系统”，并调整它们 的位置成一排，放在文本框的下方。七、 在两排文本框和命令按钮中间，添加一个 Line控件，适当拖动其两端的控制 点将长短调整至适当，并将其 BorderColor属性性设为&H00C00000&，作用是把 文本框和命令按钮隔开，这样在视觉上似乎能好看些。八、所有控件设置完毕后，界面如下图所示： 下一步的工作，是为对象添加事件代码。仕dH#4I
12、门lJ- ir II -. 一.s* 一=f事淞*_|；i目录一、form1的load事件代码：Private Sub Form_Load()Form1.MS1.ColWidth(0) = 600Form1.MS1.ColWidth(1) = 1000Form1.MS1.ColWidth(2) = 2300Form1.MS1.ColWidth(3) = 4000Form1.Text1.Text =Form1.Text2.Text =Form1.Text3.Text =Form1.Text4.Text =End Sub主要是在系统初始化时设置 MSHFIexGrid控件的列宽，并将文本框置 空。
13、二、添加记录”按钮(command1)的click事件代码：Private Sub Comma nd1_Click()Dim sc As In tegerIf Text1.Text = Or Text2.Text = Or Text3.Text = The n即网站名称、网站地址和网站描述的内容必须填全了才打开数据库连接写入数据 由于系统数据库设计为 编号”字段采用的是Access的自动编号因此在添加记录时不接收编号的数据，由Access自动加编号MsgBox (请输入完整的网站信息)Elsesc = MsgBox(确实要添加这条记录吗？ , vbOKCa ncel,提示信息)If sc =
14、1 The n运行时如果用户点击的是MsgBox提示框的确定”按钮，返回值是1Dim conn As New ADODB.Co nn ectio nDim rs As New ADODB.RecordsetDim Str1 As Stri ngDim Str2 As Stri ngDim Str3 As Stri ngStr1 = Provider=Microsoft .J et.OLEDB.4.0;Str2 = Data Source=E:vbAccess_db.mdb;Str3 = Jet OLEDB:Database Password=conn .Open Str1 & Str2 & S
15、tr3strSQL = select * from wzdzrs.Ope n strSQL, conn, 3, 3rs.AddNewrs!网站名称=Text1.Textrs!网站地址=Text2.Textrs!网站描述=Text3.Textrs.Updaters.Closeconn. CloseMsgBox (添加记录成功！)AdodcI.Refresh刷新数据源，MSHFIexGrid控件会实时刷新显示数据End If以下四条语句的作用是在操作完成后将文本框置空Text1.Text =Text2.Text =Text3.Text =Text4.Text =End IfEnd Sub三、 修改记录”按钮(command2)的click事件代码：Private Sub Comma nd2_Click()If Not lsNumeric(Text4.Text) Or Val(Text4.Text) = 0 The n编号字段
