Question

VB连接ACCESS数据库，在工程上实现查询，添加记录，删除记录等功能

VB连接ACCESS数据库，在工程上实现查询，添加记录，删除记录等功能

希望能写出全过程＋代码

Answer 1

详细的介绍了什么是操作系统和操作系统的演变，在此基础上详细的介绍了如何实现一个自己的操作系统 ,,C-C++,EBooks
实现了用ＳＰＩＨＴ和ＥＺＷ结合算术编码对图象进行压缩，为方便起见，处理的图象的长和宽相等，并且为２的整数次幂,,Visual C++,GDI-Bitmap
自己做的一个小游戏程序（五子棋），其中的算法设计，我还是比较满意的。各位可以根据自己的要求去扩充它的功能。其他的就不多说了。看程序吧！,,Visual C++,Other windows programs
自己编写的一个对话框向导程序，相信对初学者有一点意义，其他的也不说了，堪称序吧，有注释的。,,Visual C++,Dialog_Window
分层中层得相对位置分层中层得相对位置分层中层得相对位置分层中层得相对位置分层中层得相对位置,,多平台,Menu control
n阶行列式求值的C++类. 输入行列式各分量后，可得到行列式的值。 ,,Visual C++,Mathimatics-Numerical algorithms
一个J2ME Mobile 3D的培训教程-,Java,J2ME/J2ME
优化设计中使用的单纯形法的类。稍改进，增加了顶点个数，使计算稍精确。,,Visual C++,Mathimatics-Numerical algorithms
基于单纯形法的惩罚函数外点法的类。在优化设计中使用。,,Visual C++,Mathimatics-Numerical algorithms
优化设计中powell法的类，适合n个优化变量。,,Visual C++,Mathimatics-Numerical algorithms
二次插值的计算方法，其它优化设计方法的基础。,,Visual C++,Mathimatics-Numerical algorithms
混沌系统工具箱，中间包括混沌特征分析的一些基本方法,,matlab,matlab
商业企业管理，包括商品入库，商品销售，商品信息等。,,VFP,ADO-ODBC
关于LCD液晶屏的显示驱动，包括控制器，驱动器，时序等等…………,,Unix_Linux,Linux-Unix program
VisualC++开发GIS系统（陈建春著），这本书很好的，网上也很少见。我好不容易才套来的。共享大家了。,,Visual C++,Visual C++ Books
这是本人刚发表的一篇文章.主要涉及人才预测,软件分析,vb,access几个方面,,Visual Basic,Program Document
真彩进度条类源程序,可放置在窗体任意地方，本程度以放置在状态栏为例，介绍如何使用,,Visual C++,GDI-Bitmap
在线考试系统设计与关键技术研究.论述了在线考试系统的目标、体系结构与功能，探讨了在线考试系统中部分关键技术的实现方法,,ASP,software engineering
c++写外挂 c++写外挂 c++写外挂 c++写外挂 c++写外挂,,Visual C++,CSharp
良精企业管理系统 希望大家喜欢 有解压密码的要说明密码,,ASP,WEB(ASP,PHP,...)
windows 漂亮的按牛原代码,,Visual C++,GUI Develop
jsp+mysql数据库编写的交友程序，可以很好的保护会员的照片不被复制。-,JavaScript,WEB源码(ASP,PHP,...)/WEB(ASP,PHP,...)

Answer 2

因为这个小工程的代码无法全部发上来,代码太长了,系统不允许!现在发你需要的功能
Private Sub Form_Load()
set rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "数据库名"

rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

这样你就连上数据库并已经创建一个Recordset对象了

rs.Open "select * from info", conn
TName.Text = rs.Fields(0)
TAge.Text = rs.Fields(1)
TNo.Text = rs.Fields(2)
TXi.Text = rs.Fields(3)
TClass.Text = rs.Fields(4)
TTel.Text = rs.Fields(5)
TSchool.Text = rs.Fields(6)
Text1.Text = rs.Fields(7)
Text2.Text = rs.Fields(8)
这样你就执行了查询并把结果显示在控件上了

rs.AddNew
rs.Fields(0) = TName.Text
rs.Fields(1) = TAge.Text
rs.Fields(2) = TNo.Text
rs.Fields(3) = TXi.Text
rs.Fields(4) = TClass.Text
rs.Fields(5) = TTel.Text
rs.Fields(6) = TSchool.Text
rs.Fields(7) = Text1.Text
rs.Fields(8) = Text2.Text
rs.update
这样你就新增一条记录并把控件上输入的内容保存到数据库了.

rs.Delete
rs.update
这样你就删除了一条你选择了的记录了