VB 数据库实例

我需要一段VB6.0 access 2.0数据库的操作实例~
 
比如 连接 读取 修改 和查询~    最好有注释
 
能发给我最好 QQ308974268 
 
   复制流不给分~    
 
 

追问：很详细 很棒~ 
 图片~ 的咋弄额？  
 
  不过你不回答~我也是会给5星~

答案：几年前讲课用的，差点丢了。
 
VB6.0+Access数据库-ADOData
2、命令行操作方式：
通过命令行操作连接数据源 、打开数据源、数据绑定到控件。操作如下：
2.1引用ADOData控件到工程中，并添加到窗体上。
2.2设置ADOData控件连接数据库：
数据库连接通常在窗体载入时完成，即在Form_Load()窗体载入事件中操作。
VB6.0+Access数据库-ADOData
Private Sub Form_Load()
'首先连接数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB2实验\学生信息管理系统\学生管理.mdb;Persist Security Info=False"
'打开数据表
Adodc1.RecordSource = "学生基本信息表"
‘刷新数据显示
Adodc1.Refresh
‘以下为数据绑定，并显示
Text1.Text = Adodc1.Recordset.Fields(“学号").Value
……
End Sub
VB6.0+Access数据库-ADOData
说明：连接数据库代码中使用了绝对地址，这种方法在地址变化时会产生错误，因此建议改为下面方式：
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=  & " App.Path & "\学生管理.mdb;Persist Security Info=False"
'打开数据表
Adodc1.RecordSource = "学生基本信息表"
注：App.Path表示为当前地址，即运行工程或程序时的地址。
VB6.0+Access数据库-记录操作
记录操作：
1、当前记录：是记录集在被访问的记录，我们可以通过Recordset对像的四个方法操作
1.1、MoveFirst把第一条记录设为当前记录
格式：Ado控件名.Recordset.MoveFirst
例：Adodc1.Recordset.MoveFirst
1.2、MoveLast把最后一条记录设为当前记录
格式：Ado控件名.Recordset.MoveLast
例：Adodc1.Recordset.MoveLast
VB6.0+Access数据库-记录操作
1.3、MoveNext把下一条记录设为当前记录
格式：Ado控件名.Recordset.MoveNext
注：当记录为最后一个时EOF属性变为True如再向下移动指针出错。因此用下面代码防止出错
例：If Adodc1.Recordset.EOF=False Then
      Adodc1.Recordset.MoveNext
      End If
1.4、MovePrevious把上一条记录设为当前记录
格式：Ado控件名.Recordset.MovePrevious
注：当记录为第一个时BOF属性变为True如再向上移动指针出错。因此用下面代码防止出错
例：If Adodc1.Recordset.BOF=False Then
      Adodc1.Recordset.MovePrevious
      End If
VB6.0+Access数据库-记录操作
2、追加记录
使用ADO控件的AddNew方法添加一条空记录，系统将保存并把当前记录指针移到新记录上。
格式：
ADO控件名.Recorset.AddNew
例：在Adodc1控件连接数据表中添加一条空记录
Adodc1.Recordset.AddNew
注：此时如要使用文本框或相关控件输入信息，应先把当前文本框中数据清空。
VB6.0+Access数据库-记录操作
3、保存记录
当在文本框（或相关）控件中输入信息后，使用下面方法保存数据：
‘把文本框中的数据存字段中
Adodc1.Recordset.Fields("学号").Value = Text1.Text
Adodc1.Recordset.Fields("姓名").Value = Text2.Text
……
Adodc1.Recordset.Update
注：在程序编写过程中，此方法用来进行数据保存，多用在添加记录后。也可在当前记录修改后保存修改值
VB6.0+Access数据库-记录操作
4、删除记录
当前记录要删除时，可使用ADO控件的Delete方法完成。
操作：
使用移动记录指针方法（如下一条、上一条）命令把记录指针移动到要删除记录上，运行下面语句。
Adodc1.Recordset.Delete
注：记录删除后窗体上还是在显示与删除记录，可刷新一次数据库，并重新显示。方法如下。
Adodc1.Refresh  ’刷新数据库存
显示记录语句略
VB6.0+Access数据库-记录操作
5、查找记录
ADO控件可以使用Find方法根据条件寻找满足条件的记录，并把记录指针指向此记录做为当前记录。
例：查找姓名为李四的人
Adodc1.Recordset.Find "姓名 = '李四'"
显示语句略
VB6.0+Access数据库-记录操作
6、关闭记录集
当数据记录访问结束时，可使用下面语句关闭记录集。
Adodc1.Recordset.Close
注：在退出按钮中使用时，还应在后面加上Unload Me语句
 

上一个：vb列举进程代码
下一个：怎么用VB做一个屏保？