大学
数据库课程设计报告
题目：学生信息管理系统
班级：计本063班
姓名：
学号：
指导教师：
2009年 6 月 24 日
数据库课程设计评分表
在90～100为优，80～89为良，70～79为中，60～69为及格，60分以下为不及格。
学生信息管理系统
摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。学生成绩管理系统主要提供方便高效的管理功能，该实现以下一些基本功能：
1.系统管理模块：维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。
2.班级管理模块：实现对全校班级的管理工作，包括：班级游览、班级添加、班级修改等，这三个功能模块各自独立，完成学校的全部班级的管理。
3.学生学籍管理模块：实现对学生的个人信息的管理工作，包括学籍添加、学籍查询、学籍修改等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。
4.课程管理模块：该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设置和班级课程设置两个模块。
5.成绩管理模块：检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。
6.奖惩信息管理模块：奖惩信息是用来督促学习学习活动的一种手段，包括奖惩信息的添加和修改。
7.个人信息查询模块：用于学生个人信息的查询，分为奖惩信息查询和成绩查询两个模块。
8. 退出模块：此模块完成程序的退出。
该程序界面友好，功能强大，适合实际应用。
关键字：数据库ACCESS数据库学生信息操作 VB编程
1.概述
该信息管理系统可以说是一个综合性的学校学生管理系统，它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统等多种功能，因而具有较强的实用性和先进性。
项目开发背景：学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,对学生来说也可以轻松的查阅自己在校的成绩以及信息等.但是一直以来人们都是靠传统人工的方式管理学生成绩,这种管理方式存在着许多缺点,如:效率低,保密性差,另外时间一长,将产生
大量的文件和数据,这对于查找,更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机对学生信息进行管理,有着手工管理所无
法比拟的优点.例如:检索迅速,查找方便,可靠性高,存储量大,保密性好,寿命长,成本低等。这些优点能够极大地提高学生信息管理的效率,方便系统管理员对学生成绩等信息的添加,修改,删除,查询,留言等操作,同时一样的方面学生对自己各科成绩查询,学习的交流。
项目开发的目标：建立学生信息管理系统，采用计算机对学生信息进行管理，进一步提高办学效益和现代化水平.帮助广大教师提高工作效率，实现学生信息管理工作流程的系统化、规范化和自动化.
项目提出的意义：现在我国的大中专院校的学生信息管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的发展，因为它浪费了了许多的人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被学校所采用，将会改变以前靠手工管理学生成绩的状况，可以树立良好的办学形象，提高工作效率。
2.需求分析
2.1系统需求：
通过调查,要求系统需要有以下功能:
⑴要求有良好的人机界面；
⑵较好的权限管理；
⑶原始数据修改简单方便,支持多条件修改；
⑷方便的数据查询，支持多条件查询；
⑸相应的权限下，删除数据方便简单，数据稳定性好；
⑹数据计算自动完成，尽量减少人工干预；
2.2可行性分析：
由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校
用于学生管理的微机都是奔腾3以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。
数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：
Visu al B asic是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大。在Vis ual Ba sic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
2.3业务流程分析
图1班级管理业务流程图
图2档案管理业务流程图
图3课程管理业务流程图
图4成绩管理业务流程图
2.4数据流程分析：
数据流程图：
图5学生成绩管理系统0层数据流程图
图6学生成绩管理系统1层数据流程图
3．数据库逻辑设计
3.1软件模块结构设计
3.1.1系统方案确定
通过对系统的调研与分析，系统主要应完成的功能有：班级管理、学生档案管理、课程管理、成绩管理、奖惩信息管理、个人信息查询等功能。
3.1.2 软件结构设计
本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务
图7事务型管理模块图
3.2数据库建模
数据模型设计。首先来做出学生成绩管理系统的E-R 图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。
再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，
应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的；“学生甲70分”或“英语70分”是不完全的，说“学生甲英语70分”才是正确的，因为70分是学生甲和英语课二者共有的。这个E-R 图可画成下图。
图8学生成绩管理系统中学生与课程的E-R 图
教师与课程这两个实体之间，是一对多联系；一位教师可以教多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对某个固定的学生来说只能有一位教师
)。其E-R 图，如下所示。
图9一对多E-R 图
教师与课程的E-R 图组合到一起，得到最后的E-R 图，有了E-R 图，就可以设计数据库。下图为数据模型图。
学生
课程
成绩 学习
m
n
实体模型数据模型
图10教师与课程的E-R图
3.3数据库逻辑设计
数据库采用了Microsoft推出的Access数据库，这是微软集成到Office 中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server 模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。
本系统中所涉及到的主要实体共有八个数据表：
class_Cour班级课程表：
{ class_NO班级编号,course_Name课程名 }
class_Form班级表：
{class_NO班级编号,class_Name班级名称,class_Teacher导员姓名,class_Remarks备注信息}
course_Form课程表：
{course_Name课程名,course_Rem备注}
prize_Form奖惩表：
{prize_Name奖惩名称,prize_Rem备注信息}
prize_Stud学生奖惩表：
{prize_NO奖惩编号,prize_Stu奖惩学生学号,prize_Dat奖惩日期,prize_Nam奖惩名称}
score_Form成绩表：
{score_NO成绩号,score_Per考试期号,score_Cla学生班号, score_Stu学生编号,score_Cou考试课程,score_Sco考试分数}
student_Form学籍表：
{student_NO学号, student_Name姓名, student_Sex性别,
student_Bir出生日期, student_Cla学生编号, student_Tel练习电话, student_Esd入学日期, student_Add家庭住址, student_Rem备注信息} user_Form用户表：
{user_ID用户名称, user_PWD用户密码, user_DATE创建日期} 3.4 数据库的物理设计
表1班级课程表（class_Cour）
表2班级表（class_Form）
表3课程表（course_Form）
表4奖惩表（prize_Form）
表5学生奖惩表（prize_Stud）
表6成绩表（Score_Form）
表7学生表（student_Form）
表8 user_Form用户表
4．软件功能设计
图11 功能模块图
4.1系统管理模块
该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。
修改：Private Sub Command2_Click()
Text1(0) = ""
Text1(1) = ""
Text1(2) = ""
End Sub
Set mrc = ExecuteSQL(txtSQL, MsgText)
txtSQL = "select * from user_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0) = Trim(Text1(3))
mrc.Fields(1) = Trim(Text1(5))
mrc.Fields(2) = Now
mrc.Update
mrc.Close
For i = 3 To 6
Text1(i) = ""
Next
MsgBox "用户信息修改成功!", vbOKOnly, "提示"
End Sub
4.2班级管理模块
该模块的功能是实现对全校班级的管理工作，包括：班级游览、班级添加、班级修改等，这三个功能模块各自独立，完成学校的全部班级的管理。
Private Sub Command5_Click()
txtSQL = "delete from class_Form where class_NO='" & Trim(Text1(8)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
For i = 8 To 11
Text1(i) = ""
Next
MsgBox "班级信息以经删除!", vbOKOnly, "警告"
ShowData
End Sub
4.3学生学籍管理模块
该模块的主要功能是实现对学生的个人信息的管理工作，包括学籍添加、学籍查询、学籍修改等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。
4.4课程管理模块
该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设置和班级课程设置两个模块。
Private Sub Command2_Click()
Dim txtSQL As String
If List2.Text <> "" Then
txtSQL="delete from course_Form where course_Name='" & Trim(List2.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
MsgBox "课程信息已经删除!", vbOKOnly, "提示"
List2Text
End If
End Sub
4.5成绩管理模块
学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。
Private Sub Command7_Click()
Dim j As Integer
Dim txtSQL As String
If Text4(0) = "" Then
MsgBox "请选择要删除的纪录!", vbOKOnly, "提示"
MSFlexGrid1.SetFocus
Exit Sub
End If
txtSQL = "Delete from score_Form where score_NO='" & Trim(Text4(0)) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
MsgBox "考试信息修改成功!", vbOKOnly, "提示"
j = 0
For i = 1 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.TextMatrix(i, 0) = Text4(0) Then
j = i
End If
4.6奖惩信息管理模块
奖惩信息是用来督促学习学习活动的一种手段，包括奖惩信息的添加和修改。
Private Sub Command1_Click()
Dim txtSQL As String
mrc.Close
txtSQL = "select * from prize_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0) = Trim(Text1(0))
mrc.Fields(1) = Trim(Text1(1))
mrc.Update
mrc.Close
Text1(0) = ""
Text1(1) = ""
MsgBox "奖惩信息添加成功!", vbOKOnly, "提示"
List1Text
End Sub
4.8 退出模块
此模块完成程序的退出。
5．界面设计
5.1系统登陆界面：
本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用ID;PWD（大写）为用户名和密码来登陆本系统。
5.2系统主界面：
本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有7个功能菜单，从而实现了本系统从用户管理、班级管理、学籍管理、课程管理、成绩管理、奖惩管理、个人信息查询等系统功能，同时，在系统管理模块中可以完成对本系统的安全性管理。
5.3用户管理模块：
本模块是本系统的安全性设置模块，实现了对用户帐户信息管理功能。
5.4班级信息管理模块：
班级信息管理模块用于实现班级信息的添加、删除、修改的功能。包括班级编号，班级名称，导员姓名，备注信息。当对其中某个属性进行操作时，对其基本的信息进行填写完整。否则会出现提示信息。当班级编号，班级名称，导员姓名为空时会自动的出现提示信息，提示某个属性列必须要填写，否则显示操作成功。
如图12所示班级信息管理模块
5.5学籍信息管理模块：
学籍信息管理模块是对学生的个人信息进行统计。实现该模块的添加、查询、修改、删除功能。例如点击添加时，系统弹出如图1-2所示的界面，当点击界面下方面的控件时，其所对应的位置会显示为输入形式，对信息进行输入。输入完成后，点击添加时，系统会自动对信息进行验证，如果学号以存在时，则提示
学号存在无法添加；如果除备注信息中有信息落填时，会提示某个属性列没有填写，否则提示信息添加成功，并对添加后的信息进行显示。
如图13所示学籍信息管理模块(添加功能)
5.6课程信息管理模块：
5.7成绩信息管理模块：
5.8奖惩信息管理模块：
5.9个人信息查询模块：
6.结束语
在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。因此，该系统必然会存在一些缺陷和不足。因为对学生管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然网络在学生管理系统中的应用不是很多，但是未来的发展方向，在本次开发过程由于硬件的限制，未能实现网络功能，因此在以后的系统更新过程中可能会造成一些不必要的数据损失。
通过开发这个系统，我掌握了项目的基本开发过程，了解了的基本知识巩固了我对Visual Basic的学习，但在这次设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。
7.参考文献
[1] 周佩德.《数据库原理及应用》.电子工业出版社
[2] 刘炳文等，VISUAL BASIC程序设计——数据库篇，1999
[3] 李光明.《Visual Basic编程实例大制作》.冶金工业出版社
[4] 李红等编著，管理信息系统开发与应用，电子工业出版社，2003
[5] 软件工程，人民邮电出版社，2002年3月第一版
[6] 康博工作室，张红军，王红等缟著《Visual Basic中文版高级应用与开发指南》，人民邮电出版社，2001年4月第一版
[7] 林立军，程斌，翁迪恩缟著《Visual Basic 数据库开发指南》，西安电子科技大学出版社，2000年2月第一版
[8] 宋伟，吴建国等编著《中文Visual Basic编程基础》，北京，清华大学出版社
8.源程序：
8.1系统登录界面：
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim miCount As Integer
Private Sub Form_Load()
Dim i As Integer
i = 0
txtSQL = "select * from user_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With txtUserName
Do While Not mrc.EOF
i = i + 1
.AddItem Trim(mrc!user_ID)
mrc.MoveNext
Loop
.ListIndex = i - 1
End With
mrc.Close
OK = False
miCount = 0
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
txtSQL = "select * from user_Form where user_ID = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
miCount = miCount + 1
vb连接ACCESS数据库实例 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close '首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library '必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可） Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关 '连接数据库的代码段 Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读） Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb" '自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨 If Rs.State <> adStateClosed Then Rs.Close Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层 面积, 欠费明细, 欠费金额FROM data WHERE 首层面积is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt = Rs.RecordCount '关闭数据库链接（一般放到子过程结束处，关闭数据库链接） Rs.Close Conn.Close Set Rs = Nothing
vb6.0连接sql2000数据库的具体步骤 悬赏分：200|解决时间：2010-3-1310:01|提问者：能者天下 初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要做前台界面，用vb做，无从下手，望高手指点了，谢谢！有详细视频教程的网站或现成的视频也可以。 最佳答案 VB6.0使用ADO对象连接数据库： 有偿征集原创文章，为您创收投递文章减小字体增大字体 1．定义连接对象Global DBconnect As New ADODB.Connection2．执行连接语句If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l连接ODBC DBconnect.ConnectionString="dsn 1．定义连接对象 Global DBconnect As New ADODB.Connection 2．执行连接语句 If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen)Then DBconnect.Close λ连接ODBC DBconnect.ConnectionString= "dsn=DataAliasName;uid=UserID;pwd=Passwd;" λ直接连接Access为 Dbconnect.Provider="Microsoft.jet.OLEDB.4.0"//Access97为3.51 DBconnect.ConnectionString="FilePathFileName.mdb" λ连接Oracle DBconnect.Provider="MSADORA" DBconnect.ConnectionString="user/mypass@servicename λ连接SQL Server DBconnect.Provider="SQLOLEDB.1" DBconnect.ConnectionString="DATABASE=;SERVER=;UID=;PWD=;" 或者可以使用DBconnect.Open"SERVER","USERID","PASSWORD" DBConnect.Open 3．取查询结果集 Global RS As New ADODB.Recordset Global PS As New ADODB.Recordset If RS.State=adStateOpen And Not IsEmpty(adStateOpen)Then RS.Close RS.Open SQLStr,DBconnect,adOpenKeyset 4．执行SQL语句 DBconn.Execute SQLStr
首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据 如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步: 打开数据库 -- 查找数据 -- 使用数据 -- 关闭数据库 从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项. 由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API 来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始"数据库编程"了. 首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.
VB2010+Access用户登陆验证(精简) Public Class login '管理员登陆 Private Sub Button1_Click(ByVal sender As System.Object, ByVa l e As System.EventArgs) Handles Button1.Click Dim ObjConn As New OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;Data Source=cardbs.mdb") Dim ObjCom As New OleDb.OleDbCommand("select * from admin ", ObjConn) Dim ObjDap As New OleDb.OleDbDataAdapter Dim ObjDar As OleDb.OleDbDataReader Dim pd As Boolean = False Dim i As Integer ObjCom = New OleDb.OleDbCommand("select * from admin", Ob jConn) '与数据库建立连接 ObjConn.Open() ObjDar = ObjCom.ExecuteReader '循环判断与数据库中数据是否相同 Do While ObjDar.Read() If ComboBox1.Text = "" Then MsgBox("请输入用户名！") ElseIf Trim(ComboBox1.Text) <> (ObjDar.Item("admin_na me")) Then MsgBox("用户名不存在！") ComboBox1.Focus() ElseIf TextBox2.Text = "" Then MsgBox("请输入密码！") 'End If ElseIf Trim(TextBox2.Text) <> (ObjDar.Item("admin_psw ")) Then MsgBox("密码输入不正确！") 'TextBox2.Focus() Else For i = 0 To ObjDar.FieldCount - 1 If Trim(ComboBox1.Text) = (ObjDar.Item("admin _name")) And Trim(TextBox2.Text) = (ObjDar.Item("admin_psw")) Then 'MsgBox("成功登陆") Me.Hide() Form_main.Show() pd = True Exit Sub End If
VB中怎么载如或显示Access数据库中的报表 '首先在“工程/引用”菜单下引用Microsoft Access 9.0 Object Library Option Explicit Dim MSAccess As Access.Application Private Sub Command1_Click() Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase (App.Path & "\db1.mdb") MSAccess.DoCmd.OpenReport "rptTB", acViewNormal MSAccess.CloseCurrentDatabase Set MSAccess = Nothing End Sub rptTB是access中的一个报表名称 要引用Microsoft Access 9.0 Object Library dim objAccess As Access.Application Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase ("c:\1.mdb") objAccess.DoCmd.OpenReport "ReportName", acViewPreview objAccess.Visible = True 这个要引用Microsoft Access 9.0 Object Library(Office 2000) 我没试过Office97会怎么样。 ?VB中打印ACCESS报表 ?作者:aspxer 来源:internet 日期:2007-5-20 13:56:44 关键字: ? VB中打印ACCESS报表 acc As Object Set acc = CreateObject("Access.Application") If Right$(Trim$(App.Path), 1) = "\" Then
ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2
图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4
4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6
图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面
图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面
图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1
ACCESS数据库和 VB 的连接 Edited by Ryan 2013 1、建立 Access 数据库 2、启动 VB，建立标准EXE 图 1 3、添加 ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面图2
图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ”，出现如图 4 所示控件图4
4、添加控件Adodc 图5 4、在控件 Adodc 上添加数据源 鼠标指向控件Adodc1 ，单击右键，选择“ADODC 属性”，弹出如图7 所示界面图6
图7 单击“生成(U). . .”，弹出如图8 所示界面 图8 选择“ Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图 9 所示界面
图9 单击“ . . .”，添加数据源（第一步所建Access 数据库），如图 10 所示 图10 单击“测试连接（T）”，出现提示框，如图11 所示 图11 之后点击“确定” ，退回到如图12 所示界面
图12 单击“记录源” ，弹出如图13 所示界面 图13 在“命令类型”下，选择“ 1 - adCmdText”，在“命令文本（ SQL）”下，输入“ Select * from test1 ”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click()‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open‘打开数据库 rs.Open "select * from test1", mydb, 3, 3‘打开数据库中的表test1
ACCESS^据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB,建立标准EXE r?l? 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择"部件( O)”，出现图3所示界面片-llfil Ai￡；xo 1.0 启侵蓝 Sicr-iEoft hc?is BtrCile Cntrol 9.0 fillers so ft Will D^T 4 Cootrcil 冬0 IDLJIE J L Chut C4LtF91 E.O (CLED3) IU GTO初It Cunir> CtnlroL &. 0 Nicrgisoft ConRidn Di&l'js Ccurikrtl 3 0 Hicroioft Dtlt Bm-d List Canirols 6.C Nicroidft QtlfiiGri i Control 6 0 UU1B) 匚0■ 肛辽CQ^trdE 6. 0 COLE DE 匚lliarjs^ft C OT.^FP16- D 口 IlicrQsgft 7阳60 < > Micro soft 110 D A I Q Cineol 6.0 (OLEDEt) 定fir. C. 'iTIBKrtS \ i js t EffcK'illSiK? C. C CX 图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ” ,出现如图4 所示控件2J & 二 r- B“* -si- i；?同同 这里以链接acｃｅss数据库为例。 第一部分就是通过语句链接，第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。 1、首先定义几个全局变量 Diｍcn As NｅｗADＯDB、Cｏnnｅctioｎ Dim rs Ａs New AＤＯDB、Recｏrdset Dｉm cｏnｓtｒAｓStrｉｎg 2、给这些变量赋值，方便链接数据库 coｎstr = "Provｉｄer=Mｉcｒosｏft、Jet、OＬEDＢ、4、0;＂＆"ＤａtａＳouｒce=Ｄ:\EffeｃtSｏlutｉｏｎ\科学效应数据库、mdb" 红色部分写您自己得数据库路径。 ３、打开数据库 ｃn、opｅｎconstr 打开表 ｒs、oｐeｎ“sｅlect * from 效应表ｗhereｉd=5“,ｃn 取字符串并赋值给相应得文本 Text1、text=rs、ｆields（“效应与现象名称”) Teｘt2、text=rｓ、ｆiｅlｄs(“文字解说”） 关闭表 rｓ、cloｓe 关闭数据库 cn、close 注意,最后两步骤一定要有,不然下次打开数据库得时候会提 示出错得,这样得话，在窗口上建立两个文本框就够了。 但就是，在此之前还有一步一定要做， 点"工程"-"引用"-找到＂Micrｏsoｆt ActiｖeX Dａta Ｏbjｅcｔ2、6 ",如图所 示: 显示得结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下: Pｒｉｖａte Sｕb Form＿Load() Dｉm cn As Ｎew ＡDODＢ、Cｏｎnｅcｔion Ｄｉm rs As NeｗAＤOＤＢ、Ｒeｃordseｔ Dim cｏnstｒＡｓStｒinｇ coｎｓtｒ＝＂Pｒoｖｉdeｒ＝Ｍｉcrosｏfｔ、Jeｔ、OLＥDB、4、0;" &＿ "Data Sｏuｒce=D:\EffeｃtＳｏｌution\科学效应数据库、mdb" '空格加短下划线表示续行 cｎ、ｏpen cｏｎsｔｒ ｒs、open ＂selｅct*from 效应表ｗhere id ＝５", cｎ Tｅxt1、Tｅxt = rs、fieｌｄs(＂效应与现象名称") Ｔeｘt2、Ｔｅｘt = rs、ｆｉelds("文字解说＂) 在用vb连接access数据库时，出现了这样的错误： 这是你的数据库格式不被程序识别。vb默认的一般是.,mdb access数据库格式！这时我们看一下我们要连接的 是.accdb格式的。 看一下代码，我们以前使用的是： Provider=Microsoft.jet.oledb.4.0 当数据库格式发生变化时，连接语法格式就变了：Microsoft office 12.0 access database engine oledb provider 这时连 接字符创立已经有的，我们把它填上以后就成如下错误了。 为什么呢？原因是，.accdb数据格式不适用jet 引擎连接了。而是：provider=microsoft.ace.oledb.12.0 这样一改就可以连接上了。 o7版以前的access数据库的格式都是.mdb的，而vb6.0 本身带的数据库格式也是.mdb的，所以大家也都习惯了连 接.mdb格式的access数据库，但是07版以后的数据库格式就成 了 .accdb的了，在连接的过程中可就要做一下改变 了。 总结一下：通常连接数据库我们可以使用下面两种连接方法： 添加引用，使用代码连接。 解决如下： 一、引用连接 添加引用，使用代码连接。工程——引用——microsoft activeX data objects 2.5 library 代码窗口中加入： Dim objcn As NewConnection Dim objrs As New Recordset Dim strsql As String objcn.ConnectionString ="provider=microsoft.ace.oledb.12.0;" & "data source="&App.Path& "\3.accdb" （3为数据库的名字）objcn.Open strsql = "select 密码from 3 where账号='" & username & "'" （账号表中的字段，username为自定义的变量） Set objrs.ActiveConnection = objcn objrs.Open (strsql) 二、控件连接： 1，工程——部件——添加microsoft ado data control 6.0 控件。 2、属性设置： 点击生成按钮，打开连接字符串，选中，microsoft office 12.0 access database engine ole db provider 怎样用VB的代码创建Access数据库 用 ADOX: '菜单“工程”--> "引用 "--> Microsoft ADO Ext.2.7 for DDL ado Security ' 建数据库: Private Sub Form_Load() Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog '在当前目录下建立名为newdata的Access数据库 cat.Create ( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path & "\newdata.mdb " + "; ") MsgBox "数据库已经创建成功！ " End Sub ' 建表: Private Sub Command1_Click() Dim cn As New ADODB.Connection cn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "newdata.mdb;Persist Security Info=False " cn.Open cn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double) " cn.Close End Sub '删表: Private Sub Command2_Click() Dim cn As New ADODB.Connection cn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source== " & App.Path & "newdata.mdb;Persist Security Info=False " cn.Open cn.Execute "DROP TABLE [aaa] " cn.Close End Sub /////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////Option Explici t Dim i As Integer Dim j As Integer Private Sub Form_Load() '菜单“工程”--> "引用 "--> "Microsoft ActiveX Data Objects 2.7 Library " 'Microsoft ADO Ext.2.7 for DDL ado Security Dim cat As ADOX.Catalog 附件2： VB6+Access编程中的数据库操作方法 例1： 首先，在工程里引用microsoft activex data objects2.7library Dim cn As New ADODB.Connection,rs1As New ADODB.Recordset,sql As String'在通用声明里定义，其中cn是连接对象，rs1是记录集，sql是查询语句 cn.Open"provider=microsoft.jet.oledb.4.0;data source="+App.Path+"\数据库名.mdb"+"" sql="select*from表名" rs1.Open sql,cn rs1.MoveFirst Do While Not rs1.EOF Combo1.AddItem rs1("字段名") rs1.MoveNext Loop rs1.Close 例2： 一个用户登录系统 '准备工作:数据库D:\Mydb.mdb数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 '点工程->引用选中Microsoft Activex Data Objects2.7Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s=Text1.Text If s="1"Or s="2"Then UserName=InputBox("请输入用户名") Password=InputBox("请输入用户密码") sql="Select*From[UserInfo]where User='"&UserName&"'" 'UserInfo请换成你的实际数据表名 Rs.Open sql,Conn,1,3 If Rs.EOF Then 1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。) 2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613) 你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉. 1、使用控件 ①Data控件 Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。通过Data控件连接加密的数据库的方法有两种： 一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。 另一种方法是在运行时，通过代码对connect属性赋值来实现。如： Data1.connect=”; pwd=1234” Data1.DatabaseName=APP.path + “\ssgl.mdb” 其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。 ②Adodc控件 Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。 2、使用数据对象 怎样才能在VB6.0 中连接Access 2003数据库 2009年06月18日 21:01 怎样才能在VB6.0 中连接Access 2003数据库 1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。) 2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613) 你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉. 1、使用控件 ① Data控件 Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。通过Data控件连接加密的数据库的方法有两种： 一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。 另一种方法是在运行时，通过代码对connect属性赋值来实现。如： Data1.connect=”; pwd=1234” Data1.DatabaseName=APP.path + “\ssgl.mdb” 其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。 ②Adodc控件 Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 这里以链接access数据库为例。 第一部分是通过语句链接，第二部分是通过控件链接 一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便链接数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * from 效应表where id=5“，cn 取字符串并赋值给相应的文本 Text1.text=rs.fields(“效应和现象名称”) Text2.text=rs.fields(“文字解说”) 关闭表 rs.close 关闭数据库 cn.close 注意，最后两步骤一定要有，不然下次打开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。但是，在此之前还有一步一定要做， 点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6 "，如图所示： 显示的结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下： Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表where id =5", cn Text1.Text = rs.fields("效应和现象名称") Text2.Text = rs.fields("文字解说") 这里以access数据库为例。 第一部分是通过语句，第二部分是通过控件 一、 通过语句数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * from 效应表where id=5“，cn 取字符串并赋值给相应的文本 Text1.text=rs.fields(“效应和现象名称”) Text2.text=rs.fields(“文字解说”) 关闭表 rs.close 关闭数据库 cn.close 注意，最后两步骤一定要有，不然下次打开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。但是，在此之前还有一步一定要做， 点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6 "，如图所示： 显示的结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下： Private Sub Form_Load() Dim As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表 where id =5", Text1.Text = rs.fields("效应和现象名称") ACCESS 数据库和VB 的连接 Edited by Ryan 2013 1、建立Access 数据库 2、启动VB，建立标准EXE 图 1 3、添加ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图3 所示界面 图 2 图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4 所示控件 图4 4、添加控件Adodc 图5 4、在控件Adodc 上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7 所示界面 图 6 图7 单击“生成(U). . .”，弹出如图8 所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9 所示界面 图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10 所示 图10 单击“测试连接（T）”，出现提示框，如图11 所示 图11 之后点击“确定”，退回到如图12 所示界面 图12 单击“记录源”，弹出如图13 所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1 这里以链接access数据库为例。 欧阳歌谷（2021.02.01） 第一部分是通过语句链接，第二部分是通过控件链接 一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便链接数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * from 效应表where id=5“，cn 取字符串并赋值给相应的文本 Text1.text=rs.fields(“效应和现象名称”) Text2.text=rs.fields(“文字解说”) 关闭表 rs.close 关闭数据库 cn.close 注意，最后两步骤一定要有，不然下次打开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。 但是，在此之前还有一步一定要做， 点"工程""引用"找到"Microsoft ActiveX Data Object 2.6 "，如图所示： 显示的结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下： Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表 where id =5", cn Text1.Text = rs.fields("效应和现象名称") Text2.Text = rs.fields("文字解说") rs.Close cn.Close End Sub 二、 通过ado控件链接数据库，然后通过datagrid控件显示数据库中的相关表。 过程示例： 1.添加部件ado控件和datagrid控件，如图所示： 这样工具栏里面会出现这样两个图标（最下面）： 2.把这两个控件添加到你的form1里面，这个不用演示吧 3.右击你添加的adodc1控件，选最后一个vb连接access数据库常用的方法两种示例
visual basic 6.0成功连接access2010方法
用VB的代码创建Access数据库
VB6+ACCESS对数据库进行添加删除项目
VB6连接Access数据库
怎样才能在VB6连接Access 2003
vb连接access数据库常用的方法两种示例
vb连接access数据库常用的方法两种示例
vb连接access数据库及数据读写操作(可编辑修改word版)
vb连接access数据库常用的方法两种示例之欧阳歌谷创作
相关主题
文本预览