vb神童教程

vb神童教程 vb神童教程(续)--编写一个小型的信息管理系统 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 受委托为编程入门网做一个简单的vb操作数据库的实例，来演示一下如何用vb向数据库中添加、修改、删除 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 这些操作。我觉得自己是比较菜的，几年来别人都在进步，只有我还在原地踏步。不过没有办法，我们这一圈人里现在只有我机器上还有vb6，勉为其难，只有尝试一下了。如果我写的这点幼稚的东西能为想要了解vb数据库操作的朋友提供哪怕是一丁点儿的参考和帮助，将是我最为高兴的事情，同时也希望高手不要见笑。 我做的这个实例名为“编程入门网网址管理系统”，算是一个小型的信息管理系统吧。该系统后台使用的是Access数据库，程序中使用ADO代码链接的形式连接Access。该系统具有向数据库中添加、修改、删除记录的功能，进行某项操作后能够实时刷新显示数据。并在程序中加了相应的代码对输入的数据进行合法性校验，以避免输入错误的数据造成程序运行不正常，程序运行时各个操作及退出系统时均有友好的提示框请用户确认。所有代码均在Windows 2003+Vusual Basic 6.0环境下调试通过。 系统运行时如下图: 查看全套“vb神童教程(续)” vb神童教程(续)--准备数据库 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 我用的是Access 2003，因为需要讲解的仅仅是数据的添加、修改及删除，因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、一对多联系等等;此外，对sql语言也需要有所了解。具体您可以参考:数据库基础知识ABC。 首先，在“我的电脑”的e盘新建一个名为vb文件夹，先打开Access，新建一个名为Access_db的数据库(Access数据库文件的扩展名是.mdb)，保存到刚才建立的文件夹中，则以后在程序中调用数据源的位置为 E:\vb\Access_db.mdb。 然后在Access_db.mdb中建立一个名为wzdz的表(wzdz是“网站地址”的首字母缩写), 然后在wzdz表中添加网站名称、网站地址及网站描述三个字段，三个字段的属性是相同的，如下: ?数据类型:文本。 ?字段大小:50 ?有效性规则:无。 ?必填字段:否 ?允许空字符串:否 ?索引:无 “编号”这个字段使用的是Access的自动编号，并将其作为主键。也就是说，您在表中设置以上三个字段即可，设置完毕保存表时，按Access的提示添加主键，Access会自动为您搞定。具体操作您可以参考:vb神童教程(续)--vb连接Access数据库实例 这样在建立了数据库及表结构之后，即使是调用没有记录的空库，系统也可以无差错运行，可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的，不太美观哦。为了方便起见，我们在Access中给wzdz表中预先添加两条初始记录: 编网站名网站地址 网站描述 号 称 编程入各种编程文档、电脑教程及软件应用技巧，您1 门网 的电脑技术加油站! 健康生2 www.health163.org 您的健康 指南 验证指南下载验证指南下载验证指南下载星度指南下载审查指南PDF 活网 添加的方法很简单:在Access的设计器中直接双击wzdz表名，在出来的窗口中添加即可。添加时注意:因为我们使用的是Access的自动编号做主键，所以在添加时不用理“编号”这个字段，直接添加后三个字段即可。 下一步的工作，是设计系统的界面及设置各个对象的属性。 vb神童教程(续)--设计系统的界面及对象的属性 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 本系统是一个很简单的数据库操作实例，能够对数据库的添加、修改及删除记录这几个基本的操作。系统使用数据显示控件MSHFlexGrid显示数据库中的记录，使用数据链接控件Adodc链接数据库作为MSHFlexGrid的数据源，使用文本框来接收系统运行时用户输入的数据。 步骤如下: 一、启动vb6，新建一个 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 exe工程，并将工程中的form1的caption属性设置为“编程入门网网址管理系统”，width属性值设为7950，height属性值设为4620。 二、向窗体中添加一个Adodc控件。如果在工具箱中找不到Adodc控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft ADO Data Control6.0(OLEDB)”。 在VB的属性窗口我们对Adodc控件的三个个属性值进行编辑，其余属性值使用默认的即可: 1、ConnectionString属性值设为:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\Access_db.mdb;Persist Security Info=False 这个属性设置了连接Access_db.mdb这个数据库。 2、RecordSourc属性值设为:select * from wzdz 这个属性值中的sql语句的作用是查询出wzdz表中的所有记录。 3、Visible属性值设为False，作用是使其在运行时不可见。 三、向窗体添加一个MSHFlexGrid控件，如果工具箱中没有MSHFlexGrid控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft Hierarchical FlexGrid Control 6.0 ”。然后在vb的属性窗口中将MSHFlexGrid控件的名称修改为MS1，如下图: 然后对MSHFlexGrid控件进行如下设置: 1、DataSource属性:在vb的属性窗口中将其值设为Adodc1，即使用Adodc控件作为其数据源。 2、BackColorBkg属性:在vb的属性窗口中将其值设为&H00FFE0E0&，这是设置的MSHFlexGrid控件的底色。 3、BackColorFixed属性:在vb的属性窗口中将其值设为&H00C0FFFF&，这是设置的MSHFlexGrid控件的显示标题的底色。 4、width属性:在vb的属性窗口中将其值设为7695. 5、Height属性:在vb的属性窗口中将其值设为2175. 6、右击MSHFlexGrid控件，在弹出的菜单中选“属性”，在弹出的“属性页”对话框的在“通用”选项卡中修改行为4，修改列为4，修改固定行为0，修改固定列为0。如果数据链接正常，在“属性页”对话框的“带区”选项卡中可以看到列标题和列名称已经设置了，这里注意应该将“带区”选项卡中的“列标头”选项勾选上，否则运行时无法显示列标题，如下图。“属性页”对话框的其它部分使用默认值即可。 四、向窗体中添加4个Label控件(标签)，在vb的属性窗口为它们设置以下属性: 1、caption属性:分别设置为网站名称、网站地址、网站描述及编号。 2、Alignment属性:均设为“2-Center”。 3、AutoSize属性:均设为True。 五、向窗体中添加4个TextBox控件(文本框)，并调整它们的位置成一排与4个标签相对应，即:网站名称?Text1，网站地址?Text2，网站描述?Text3，编号?Text4。 六、向窗体中添加4个CommandButton控件(命令按钮)，将它们的caption属性分别设置为“添加记录”、“修改记录”、“删除记录”和“退出系统”，并调整它们的位置成一排，放在文本框的下方。 七、在两排文本框和命令按钮中间，添加一个Line控件，适当拖动其两端的控制点将长短调整至适当，并将其BorderColor属性性设为&H00C00000&，作用是把文本框和命令按钮隔开，这样在视觉上似乎能好看些。 八、所有控件设置完毕后，界面如下图所示: vb神童教程(续)--为对象添加事件代码 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 一、form1的load事件代码: Private Sub Form_Load() Form1.MS1.ColWidth(0) = 600 Form1.MS1.ColWidth(1) = 1000 Form1.MS1.ColWidth(2) = 2300 Form1.MS1.ColWidth(3) = 4000 Form1.Text1.Text = "" Form1.Text2.Text = "" Form1.Text3.Text = "" Form1.Text4.Text = "" End Sub 主要是在系统初始化时设置MSHFlexGrid控件的列宽，并将文本框置空。 二、“添加记录”按钮(command1)的click事件代码: Private Sub Command1_Click() Dim sc As Integer If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then '即网站名称、网站地址和网站描述的内容必须填全了才打开数据库连接写入数据 '由于系统数据库设计为“编号”字段采用的是Access的自动编号 '因此在添加记录时不接收编号的数据，由Access自动加编号 MsgBox ("请输入完整的网站信息") Else sc = MsgBox("确实要添加这条记录吗,", vbOKCancel, "提示信息") If sc = 1 Then '运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;" Str2 = "Data Source=E:\vb\Access_db.mdb;" Str3 = "Jet OLEDB:Database Password=" conn.Open Str1 & Str2 & Str3 strSQL = "select * from wzdz" rs.Open strSQL, conn, 3, 3 rs.AddNew rs!网站名称 = Text1.Text rs!网站地址 = Text2.Text rs!网站描述 = Text3.Text rs.Update rs.Close conn.Close MsgBox ("添加记录成功～") Adodc1.Refresh '刷新数据源，MSHFlexGrid控件会实时刷新显示数据 End If '以下四条语句的作用是在操作完成后将文本框置空 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End If End Sub 三、“修改记录”按钮(command2)的click事件代码: Private Sub Command2_Click() If Not IsNumeric(Text4.Text) Or Val(Text4.Text) = 0 Then '编号字段是Access的自动编号，为自然数 '因此对text4的内容进行校验，如果不是数值或为0则跳出sub过程 MsgBox "记录号是大于0的自然数，请输入正确的编号～" Exit Sub End If If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then '对三个文本框的内容进行校验，不接收空值 MsgBox "请输入完整的网站信息～" Exit Sub End If Dim sc As Integer sc = MsgBox("确实修改这条记录吗,", vbOKCancel, "提示信息") If sc = 1 Then '运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;" Str2 = "Data Source=E:\vb\Access_db.mdb;" Str3 = "Jet OLEDB:Database Password=" conn.Open Str1 & Str2 & Str3 strSQL = "select * from wzdz where 编号=" & Val(Text4.Text) & "" rs.Open strSQL, conn, 3, 3 If rs!编号 = Val(Text4.Text) Then '由于系统数据库使用的是自动编号作为主键 '因此以编号字段的内容作为判断的依据 '如果rs!编号 = Val(Text4.Text)说明数据库中有此记录， '才会修改其它三个字段的内容 '否则给出“不存在此记录”的提示信息并关闭数据连接 = Text1.Text rs!网站名称 rs!网站地址 = Text2.Text rs!网站描述 = Text3.Text rs.Update rs.Close conn.Close MsgBox ("修改记录成功～") Adodc1.Refresh '刷新数据源，MSHFlexGrid控件会实时刷新显示数据 Else MsgBox ("不存在此记录～") Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" rs.Close conn.Close Exit Sub End If End If '以下四条语句的作用是在操作完成后将文本框置空 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub 四、“删除记录”按钮(command3)的click事件代码: Private Sub Command3_Click() If Not IsNumeric(Text4.Text) Or Val(Text4.Text) = 0 Then '编号字段是Access的自动编号，为自然数 '因此对text4的内容进行校验，如果不是数值或为0则跳出sub过程 MsgBox "编号是大于0的自然数，请输入正确的编号～" Exit Sub End If Dim sc As Integer sc = MsgBox("确实要删除这个记录吗,", vbOKCancel, "删除确认～") If sc = 1 Then '运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;" Str2 = "Data Source=E:\vb\Access_db.mdb;" Str3 = "Jet OLEDB:Database Password=" conn.Open Str1 & Str2 & Str3 =" & Val(Text4.Text) & "" strSQL = "select * from wzdz where 编号 rs.Open strSQL, conn, 3, 3 If rs!编号 = Val(Text4.Text) Then '由于系统数据库使用的是自动编号作为主键 '因此以编号字段的内容作为判断的依据 '如果rs!编号 = Val(Text4.Text)说明数据库中有此记录并进行删除操作 '否则给“不存在此记录”的提示信息并关闭数据连接 rs.Delete rs.Close conn.Close MsgBox ("删除记录成功～") Adodc1.Refresh '刷新数据源，MSHFlexGrid控件会实时刷新显示数据 Else MsgBox ("不存在此记录～") Text4.Text = "" rs.Close conn.Close Exit Sub End If End If '以下四条语句的作用是在操作完成后将文本框置空 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub 五、“退出系统”按钮(command4)的click事件代码: Private Sub Command4_Click() Dim sc As Integer sc = MsgBox("确实要退出系统吗,", vbOKCancel, "提示信息") If sc = 1 Then '运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1 End End If End Sub 六、添加完事件代码之后，我们这个实例至此完成，运行一下吧～ vb神童教程(续)--配置Access数据源 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 (1)打开控制面板中的ODBC数据源管理器，在“用户DSN”(即“用户数据源”)中选择“MS Access Database”选项，可心删除或配置一个已有的用户数据，这 里我们将要添加一个数据源。 (2)单击添加按钮，系统将准备在MS Access Database下添加一个用户数据源，为了安装数据源，会弹出创建新数据源窗口，如下图: (3)在创建新数据源窗口中，选择"Microsoft Access Driver"来安装数据源。 (4)单击“完成”按钮，进入ODBC Microsoft Access安装窗口，如下图: ?在“数据源名”项中键入数据源的名称，这里我们键入“Access_db”作为数据源名。 ?在“描述”项中键入对数据源的描述，此处内容可选，这里我们键入“This is Access database temp”。 ?在“数据库”项中可以选取、创建、修复或者压缩数据库。这里我们选择“选取”按钮来选取相应的Access数据库。如果用户没有自己建立的Access数据库， 那么用户可以到安装Access的目录下面选取Access自带的数据库。注意:Access数据库文件的扩展名是.mdb。 ?最后，单击“确定”按钮。至此一个新的Access数据源已经添加完成，如下图: 说明:如果用户希望所创建的数据源名被本机中的多个用户所使用，请用户添加系统DSN。在实际情况中，开发一个单机单用户的系统没有什么意义，所以一般都需要对系统DSN进行配置。系统DSN的添加过程同用户DSN添加过程类似。 vb神童教程(续)--VB的ADO对象 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 ADO简介 参考资料: ADO简介:对象模型: ADO是另一种用于开发访问OLE DB数据源应用程序的API。有多种程序设计语言都支持ADO，如VB，VC++，VJ++等。ADO提供了较为高级并容易被理解的访问OLE DB数据源的机制，它结合了DAO和RDO的优点。并提供了OLE DB数据源的入口。OLE DB是一种数据库体系结构，它为企业网络提供了普遍的数据综合能力(从大型机到桌面上的数据，而不管数据的具体类型是什么)，与ODBC相比，OLE DB在数据通道方面更具有普遍性和有效性，这是因为它允许同建立在COM基础上的更多的数据类型联系和由于ADO是为开发客户机/服务器程序而专门设计的。下图是典型的ADO应用程序的结构。 ADO的特征如下: ?支持成批更新.即对更新的多个记录进行缓冲，并同步传输到服务器。 ?支持所有类型的光标。包括只能前移型，关键值型以及动态和静态型。 ?支持服务器端的存储过程。这些过程可以大大提高应用程序的通用性。 ?支持返回多个记录集的查询。 ?支持查询目的。包括限制返回的记录的个数，激活返回记录的过滤和预先语句。 ADO是由以下对象组成的:Command,Connect,Error,Field,Parameter和RecordSet。下图给出了ADO对象的层次结构。除了Error和Field之外的所有ADO对象都是可以单独创建的，而Command，Error和Parameter对象是可选的。 vb神童教程(续)--vb连接Access数据库实例 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 下面我们给出一个连接到Access数据库的实例，此例中用到的数据库为Access 2003。首先在e盘建立一个名为vb的文件夹，然后打开Access 2003，单击“文件”?“新建”，在右侧出现的任务窗格中单击“空数据库”，在出现的对话框中,我们在"文件名"项后输入给新数据库起的名称并选择保存位置,这里我们为新数据库命名为Access_db并保存到我们刚才建立的文件夹中,如下图,单击"创建"按钮后,系统就生成了一个新的Access空数据库。 在空数据库中,还没有任何用户所创建的表,接下来我们就要使用设计器(如下图)为Access_db数据库建立表。 首先我们为Access_db创建一个名为“wzdz”的表，该表由以下4个字段组成: (1)编号:此为Access自动添加的主键字段,我们直接拿来使用。我们可直接设置后三个字段，在输入完了wzdz表的各个字段之后，此时关闭表设计器，Access会提示是否要进行保存表，选择“是”，然后为表起名为“wzdz”。因为没有定 Access会提示为表加上一个主键，按提示将编号设置为义主键(primary Key)， 主键即可。 (2)后三个字段分别为网站名称、网站地址和网站描述，三个字段的属性是相同的，如下: ?数据类型:文本。 ?字段大小:50 ?有效性规则:无。 ?必填字段:否 ?允许空字符串:否 ?索引:无 设置完以上字段后，再重新在设计视图中打开wzdz表(方法:在设计器中右击wzdz表名，选“设计视图”命令)，应如下图所示: 有了数据库和表之后，如果想让VB应用程序访问数据库，还需进行数据源的配置。只有在配置完成了数据源之后，才能让VB应用程序同数据库进行正确的连接工作，在VB应用程序中才可以通过ADO对象来进行具体数据的操作，如果在建立了数据库之后没有对数据源进行配置或者对数据源的配置工作出现错误，则在此之前所做的一切工作都是白费的。 我们按上一章所述的步骤进行ODBC数据源的配置,建立一个名为Access_db的用户DSN，接下来我们使用VB去具体地连接到Access_db数据库。 首先打开VB，新建一个标准exe工程，在工程的form1中我们输入如下的代码: Private Sub Form_Load() Dim cnn As ADODB.Connection Dim my_recordset As ADODB.Recordset Dim connect_string As String Dim statestring As String Set cnn=New ADODB.Connection Set my_recordset=New ADODB.Recordset '连接Access数据库 connect_string="DSN=Access_db;UID=;PSW=" cnn.Open connect_string Select Case cnn.State Case adStateClose statestring="adStateClosed" Case adStateOpen statestring="adStateOpen" End Select '显示连接的状态 MsgBox "连接成功～",,statestring '对wzdz表进行查询操作 my_recordset.Open "Select * from wzdz",cnn my_recordset.Close End Sub 本段连接数据库的代码是写在窗体的Form_Load()子过程中的，对数据库的连接工作是在程序一开始即窗体的加载过程中进行的。在Form_Load()中，首先定义了一个Connection对象cnn和一个RecordSet对象my_recordset，以及两个字符串类型的变量connect_string和statestring，接下来的两个Set语句是为了生成一个Connection对象cnn和一个RecordSet对象my_recordset。然后是连接Access数据库，先把连接字符串“DSN=Access_db;UID=;PSW="赋给字符串 变量connect_string。连接字符串中的具体各项内容是根据ODBC数据源的配置而定的，不同的配置方式和配置内容就会有不同的连接字符串。cnn的Open事件用来执行与数据库的连接工作。为了验证与数据库的连接是否正确，这里我们读取了cnn的State属性。State属性可用用来说明其对象状态是打开或关闭的。在使用了State属性后，通过系统函数MsgBox把与数据库的连接状态显示给用户。如果连接状态是打开的，对话框标题栏的文字是“adStateOpen"，如下图: 如果连接状态是关闭，则对话框标题栏显示“adStateClose”。 其后的语句my_recordset.Open "Select * from wzdz "，cnn则示范了如何从数据库中查询所需要的数据。 注意:在程序中每当用一个Set语句来生成一个Connection或RecordSet对象时，最后使用完毕之后应操作使用Close方法对其进行关闭操作。 例程调试中可能出现的问题: 上述代码运行时可能会显示"用户定义类型未定义"，错误定位在“Dim cnn As ADODB.Connection”这一句上。 解决方法:单击“工程”?“引用”，勾选“Microsoft ActiveX Data Object 2.6”，再运行程序即无此问题。 vb神童教程(续)--使用ADO Data控件连接Access的简单实例 时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。 ADO Data控件使用Microsoft ActiveX数据对象(ADO)来快速建立数据绑定的控件和数据提供者之间的连接.尽管可以在应用程序中直接使用ActiveX数据对象，但ADO Data控件有作为一个图形控件的优势(具有“向前”和“向后”按钮)，以及一个易于使用的界面，使用户可以用最少的代码创建数据库应用程序。数据绑定控件是任何具有“数据源”属性的控件。在VB的工具箱中不少控件都可以作为数据绑定的控件，包括复选框、组合框、图像、标签、列表框、图片框及文本框控件等。此外，VB还包括了若干种数据绑定的ActiveX控件，例如DataGrid、DataCombo、Chart及DataList控件等。用户也可以创建自己的数据绑定的ActiveX控件，或使用从其他开发商购买的控件。数据提供者可以是任何符合OLEDB规范的数据源，使用VB的类模块也可以很方便地创建子集的数据提供者。 下面的程序示例中，将使用一个ADO Data控件及一个DataGrid控件，程序执行时如下图: DataGrid控件显示并允许对Recordset对象中代表记录和字段的一系列行和列进行数据操作,它是一种数据绑定的ActiveX控件。DataGrid控件的每一个单元格都可以包含文本值，但不能链接或内嵌对象。可以在代码中指定当前单元格，或者用户可以使用鼠标或箭头键在运行时改变它。通过在单元格中键入或编程的方式，单元格可以交互地编辑。单元格能够被单独地选定或按照行来选定。 下面我们来完成此程序。首先新建一个标准exe工程，并把工程中form1的caption属性设置为“使用ADO Data控件连接Access的简单实例”，width属性值设为8490。在窗体中加入1个ADO Data控件。如果在工具箱中找不到ADO Data控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的 ”选项卡中选中Microsoft ADO Data Control6.0(OLEDB)。然后再向form1“控件 上加入一个DataGrid控件，并将其width属性值设为8055。如果工具箱中不存在这个控件，可以右击工具箱，在“部件”窗口的“控件”选项卡中选中Microsoft DataGrid Control6.0(OLEDB)。完成后如下图所示: 下面我们对这些控件的一些属性进行设置。 设置Adodc1: (1) ConnectionString属性 ConnectionString属性表示Adodc1的连接字符串，可以通过三种方法来设置连接字符串属性，如下图所示。这里我们选择“使用ODBC数据源名称”，并在下拉框中选择Access_db，单击确定按钮，就可以在ConnectionString属性中看到“DSN=Access_db”的字符串形式。 (3) RecordSource属性 RecordSource属性设置RecordSet源，这里我们将在属性页的命令文本下输入如下的SQL语句: Select * From wzdz Order By 网站名称 单击确定按钮，就可以在RecordSource属性中看到“Select * From wzdz Order By 网站名称”的字符串形式，如下图: 设置DataGrid1的DataSource属性:DataSource属性为该控件指定数据源，本例中该属性被设置为名为“Adodc1”的ADO Data控件，这将返回“网站地址”表中的所有记录。 运行一下程序,可以看到程序已经成功连接到了Access_db.mdb数据库,并读取“wzdz”表的所有记录显示到DataGrid控件中。 更进一步的，如果将DataGrid控件的AllowAddNew、AllowDelete和AllowUpdate属性分别设置为true，则可在程序运行时通过其添加、删除和更新数据库中的记录。