在通过编写代码方式下访问数据库:

1. Data 控件的其它常用属性:
Connect 指定数据控件所要连接的数据库类型，默认为Access的MDB数据库
RecordsetType 确定记录集类型，0—Table(表);1—Dynaset(动态);2—Snapshot(快照)
BofAction 当记录指针指向记录集的开始时，确定数据控件该采取的操作：
0—重定位到第一个记录 1—定位到一个无效记录，触发一个无效事件Validate
EofAction 当记录指针指向记录集的结束时，确定数据控件该采取的操作：
0—重定位到最后一个记录
1—定位到一个无效记录，触发一个记录的无效事件Validate
2—向记录集加入新的空记录，可以对新记录进行编辑，移动记录指针新记录写入数据库

2.可以与Datat控件绑定的其它常用控件属性:
MSFlexGrid 控件属性:DataSourse 位置:Microsoft FlexGrid Control 6.0(OLE DB)
DBCombo和DBList控件属性:DataField、DataSource、ListField、RowSource、BoundColumn
位置Microsoft Data Bound List Controls 6.0
DBGrid 控件属性:DataSourse 位置: Microsoft Data Bound Grid ontrol5.0(SP3)

3.数据控件的事件
Reposition事件: 当一条记录成为当前记录后就会触发此事件。
Validate 事件:
在一条不同的记录成为当前记录之前，Update 方法之前,以及 Delete、Unload 或 Close

操作之前会发生该事件。它检查被数据控件绑定的控件内的数据是否发生变化。
语法:Private Sub Data_Validate(Action As Integer, Save As Integer) …… End Sub

4.数据控件的常用方法
Refresh 激活数据控件，使各用户对数据库的操作有效。
UpdateControls 将数据从数据库中重新读到数据控件绑定的控件内,取消对数据的修改。
UpdateRecord 强制数据控件将绑定控件内的数据写入到数据库中，不再触发Validate事件

5． 记录集的属性与方法
属性:AbsolutePostion 返回当前指针值，如果是第一条记录，其值为0；是只读属性
Bof / Eof 判断指针在首记录之前时返回True；指在末记录之后返回True
Bookmark 设置或返回当前指针的标签，可以用在在程序中重定位记录集的指针
NoMatch 在记录集中进行查找时，如果找到相匹配的记录，则为Falue，找不到则为True。
RecordCount 返回记录集中的记录数,要先用MoveLast方法重置指针移到最后一条记录上

方法:Move 用于移动记录指针，共有5种方法：
MoveFirst —将指针移到第1条记录
MoveLast —将指针移到最后一条记录
MoveNext —将指针移到下一条记录
MovePrevious —将指针移到上一条记录
Move n —将指针向前或向后移动n条记录

方法:Find 在指定对象中搜寻含有特定字符串的记录,并使之成为当前记录,共有4种方法
FindFirst —从记录集的开始查找满足条件的第1条记录
FindLast —从记录集的尾部向前查找满足条件的第1条记录
FindNext —从当前记录开始查找满足条件的下一条记录
FindPrevious —从当前记录开始查找满足条件的上一条记录
Option Compare Text --设置通配符不区分大小写,默认情况下可以省略此句
Option Compare Binary --设置通配符区分大小写

方法:Seek 必需先打开表的索引,再搜索与索引规则相符的第一条记录,将其设为当前记录
Data1.Recordset.Index= "字段名" '打开表索引
Data1.Recordset.Seek "=", "数据内容" '在Table表中查找

6.利用数据控件对数据库进行增、删、改操作
增加记录:
1)调用AddNew方法：Data1.Recordset. AddNew
2)给各字段赋值：Recordset.Fields("字段名")=值或在绑定控件中直接输入内容
3)调用Update方法，将缓冲区内的数据写入数据库: Data1.Recordset. Update
4)调用MoveLast方法显示新记录: Data1.Recordset. MoveLast

注意:如果缺少第 3步而指针指到其他记录或关闭了记录,则所做的输入全部丢失；
若没有第 4步 加入了新记录后指针自动返回新记录前一个位置上,并不显示新记录

删除记录:
1)定位被删除记录使之成为当前记录(用Move或Find方法)
2)调用Delete方法: Data1.Recordset. Delete
3)调用MoveNext方法移动记录指针

注意:使用Delete方法时,虽然当前记录被删除了,但数据库绑定的控件仍旧显示
该记录的内容,所以用第 3步刷新绑定控件的内容

修改记录:
1)调用Edit方法：Data1.Recordset. Edit
2)给各字段赋值：在绑定控件中直接修改
3)调用Update方法，确定所做的修改: Data1.Recordset. Update

注意:如果要放弃对数据的所有修改,在第 3步之前用Refresh方法,重读数据库,刷新记录

Data控件的方法主要是通过初始值所创建的记录集 Recordset 来 移动、查找和修改的
例2 : 本例在前 例1 的基础上再增加了以下控件.Recordset 方法:返回当前记录的书签
五个Command控件:
1.Name名称=CmdFirst Caption=首记录
2.Name名称=CmdPrevious Caption=前记录
3.Name名称=CmdNext Caption=后记录
4.Name名称=CmdLast Caption=末记录
5.Name名称=Command1 Caption=退出

Private Sub Command1_Click()
End '当按下退出键时关闭窗口
End Sub

Private Sub CmdFirst_Click()
Data1.Recordset.MoveFirst '把当前记录指向第一条记录
End Sub
Private Sub CmdPrevious_Click()

Data1.Recordset.MovePrevious '把当前记录指向上一条记录
If Data1.Recordset.BOF Then '如果已经指向到首记录的前一位置
Data1.Recordset.MoveFirst '则要指向到首记录，以防超出记录集
End If
End Sub

Private Sub CmdNext_Click()
Data1.Recordset.MoveLast '把当前记录指向下一条记录
If Data1.Recordset.EOF Then '如果已经指向到末记录的后一位置
Data1.Recordset.MoveLast '则要指向到末记录，以防超出记录集
End If
End Sub

Private Sub CmdLast_Click()
Data1.Recordset.MoveLast '把当前记录指向最后一条记录
End Sub

引用控件：右键点击工具箱→部件→.....
一. 高级约束数据网格控件(DBGrid)
Microsoft Data Bound Grid Control5.0(SP3):c:\winnt\system32\dbgrid32.ocx
　　DataSource属性:返回Data控件记录集来自动填充网格
DBGrid 控件的列 Columns 集合的 Count 属性和 Recordset 对象
的 RecordCount 属性可以确定控件中的行和列的数

二. 高级约束列表控件（DBList）和高级约束组合框控件（DBCombo）
Microsoft Data Bound List Controls 6.0 :c:\winnt\system32\dblist32.ocx
　　它们能列显示Data 控件的字段值，并可以更新其它相关表的字段。通过简单地设置
能更新在不同的 Data 控件的相关的字段

　　DBList 与DBCombo常用的属性：
RowSource：指定数据控件中的一个字段内容来填充列表控件的列表区；
ListField：返回或设置 Recordset 对象中的字段名，用于填充列表；
SelectedItem：返回一个控件中选中的记录的书签。


　　 例题：
在列表中选定一个人名，则在其它的几个文本框中就显示这个人的所有完整的信息

在新窗体放置一个Data控件;DatabaseName=E:\szk\myfile.mdb:RecordSource=Phone 表
一个DBList控件;RowSource=Data1:ListField=姓名
四个Text控件;DataSource都=Data1: DataField分别=序号、姓名、电话、地址
在DBLIST控件的单击事件里加入代码:Data1.RecordSet.Bookmark=DBList1.SelectedItem

　　OK运行,什么地方就点过一次后发现的确太好用了,呵呵.
Bookmark属性: 返回或设置Data控件重新定位到特定的行。
SelectedItem属性: 返回或设置所选字段所属的记录书签

ADO数据库查询 --本文由群友 盗帅留香 提供
-------------------------------------------------


Option Explicit
'==================================================
' 用于ADO 数据库查询的枚举类型定义
'==================================================
Public Enum SeekType
MistySeek = 0 '模糊查询
Exactitude = 1 '精确查询
End Enum
'==================================================
' 用于模糊查询的 SQL 关系枚举定义
'==================================================
Public Enum Compare '数字关系比较
Equal = 0 '等于
NotEqual = 1 '不等于
Lessness = 2 '小于
Greatness = 3 '大于
End Enum
Public Enum Range '范围
Between = True '两记录之间
NotBetween = False '不再两记录之间的
End Enum
Public Enum RelateList '数据表
InList = True '属于 表中的
NotInList = False '不属于 表中的
End Enum
Public Enum ModeMatch '模式匹配
LikeThis = True '象...(Like)
NotLikeThis = False '(Not Like)
End Enum
Public Enum FieldEmpty '空值
EnptIsNull = True '是空值
EnptIsNotNull = False '不是空值
End Enum
Public Enum AllRst '所有记录
EqualAll = 0 '=All
MoreAll = 1 '>All
LessEqAll = 2 '<=All
AnyRst = 3 ' Any
End Enum
Public Enum MistyType
Comp = 0 '数字关系比较
Rang = 1 '范围
RelList = 2 '数据表
ModMatch = 3 '模式匹配
FldEmpty = 4 '空值
ForRst = 5 '所有记录
End Enum
'保持属性值 DBName的局部变量
Private mvarDBName As String '局部复制,用于存储数据库名
'保持属性值 SQLSeekStr的局部变量
Private mvarSQLSeekStr As String '局部复制
'==================================================
' 用于存储数据库SQL查询字符串的属性声明
'==================================================
Public Property Let SQLSeekStr(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.SQLSeekStr = 5
mvarSQLSeekStr = vData
End Property

Public Property Get SQLSeekStr() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.SQLSeekStr
SQLSeekStr = mvarSQLSeekStr
End Property
'==================================================
' 用于存储数据库名称的属性声明
'==================================================
Public Property Let DBName(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.DBName = 5
mvarDBName = vData
End Property

Public Property Get DBName() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.DBName
DBName = mvarDBName
End Property
'==================================================
' 用于打开单数据库连接，并实现多表查询
'==================================================
Public Function OpenDBMTSeek(Searchtype As SeekType, DBTableName() As String, myStr As String) As ADODB.Recordset
Dim myCon As ADODB.Connection '定义myCon为ADO的连接对象
Dim myRst As ADODB.Recordset '用于存储ADO记录集对象
Dim myCmd As ADODB.Command '定义ADO的Command对象
Dim errLoop As ADODB.Error '用于存储ADO的Error对象信息
Dim SQLStr As String '用于存储SQL语句的变量定义
Dim ConStr As String '用于存储连接字符串
Dim DBTableCount As Long '用于存储数据表的总数
Dim lngLoop As Long '循环变量
Dim TmpStr As String
Dim TmpSearchStr As String
TmpStr = ""
On Error Resume Next
DBTableCount = UBound(DBTableName())
For lngLoop = 0 To (DBTableCount - 1)
If lngLoop < (DBTableCount - 1) Then
TmpStr = TmpStr & DBTableName(lngLoop) '& ","
Else
TmpStr = TmpStr & DBTableName(lngLoop)
End If
Next
SQLStr = "Select DISTINCT * from " & TmpStr & " Where " & myStr
If (Right(DBName, 4) = ".mdb" Or Right(DBName, 4) = ".MDB") Then
DBName = Trim(DBName)
Else
If Left(Right(DBName, 4), 1) <> "." Then '不含扩展名的文件名
DBName = Trim(DBName) & ".mdb"
Debug.Print DBName
Else '含扩展名的非*.mdb文件
Exit Function
End If
End If
ConStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & DBName
Set myCon = New ADODB.Connection
Set myCmd = New ADODB.Command
myCon.Open ConStr
myCmd.ActiveConnection = myCon
Set myRst = myCon.Execute(SQLStr)
Set OpenDBMTSeek = myRst

End Function
'==================================================
' 用于打开多数据库连接，并实现多表查询
'==================================================
Public Function OpenMDBMTSeek(DBName() As String, Relate() As Integer, DBTableName() As String, Searchtype As SeekType, SQLSeekStr As String) As ADODB.Recordset

End Function
'==================================================
' 用于得到数据库中所有数据表 的函数声明
'==================================================
Public Sub GetDBTable()
Dim Con As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set Con = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & DBName
'"driver={SQL Server};server=srv;" & "uid=sa;pwd=;database=pubs"
Con.Open strCnn
Set rstSchema = Con.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close
Con.Close
End Sub
'=================================================================
' 用于拼合查询SQL语句(含多字段，多数据表的模糊查询语句)
'=================================================================
Public Function ParamDeal(Searchtype As SeekType, StrTxt() As String, ParamArray TabField() As Variant) As String
Dim StrField As String '定义存储字段参数查询的动态数组
Dim ParamCount As Integer '用于存储ParamArray参数数量的变量定义
Dim IntI As Integer
Dim intSumST As Integer
intSumST = 0
For IntI = 1 To 256
If IsNull(StrTxt(IntI)) Then
'判断StrTxt字符串是否结束，以确定元素个数，函数要求传递的参数之间不能有空值
Exit For
Else
intSumST = intSumST + 1
If intSumST <> UBound(TabField) Then
ParamDeal = Null
Else
For ParamCount = 1 To UBound(TabField)
'StrTxt(ParamCount) = TabField(ParamCount)
If Searchtype = Exactitude Then
If ParamCount = 1 Then
StrField = TabField(ParamCount) & "='" & StrTxt(ParamCount)
ElseIf ParamCount <> UBound(TabField) Then
StrField = StrField & "' and " & TabField(ParamCount) & "='" & StrTxt(ParamCount)
Else
StrField = StrField & "' and " & TabField(ParamCount) & "='" & StrTxt(ParamCount) & "'"
End If
Else

End If
Next ParamCount
ParamDeal = StrField
End If
End If
Next IntI
End Function
'===============================================================
' 返回数据库记录集Rst 中记录的总条数
'===============================================================
Public Function RstCount(Rst As ADODB.Recordset) As Long
Dim Num As Long
Num = 0
Rst.MoveFirst
Do While Not Rst.EOF
Num = Num + 1
Rst.MoveNext
Loop
RstCount = Num
End Function
'==================================================
' 用于构造数据库 SQL查询字符串 的函数声明
'==================================================
Public Function DBSQLStr(DBTableName() As String, Searchtype As SeekType, DBField() As String, DBFieldVal() As Variant) As String
Dim DBTCount As Long '用于存储数据库DBName的数据表的 DBTableName数量
Dim DBFCount As Long '用于存储数据库DBName 查询字段 DBField的数量
Dim DBFValCount As Long '用于存储数据库 查询字段的值的数组定义
Dim lngDBT As Long
Dim lngDBF As Long
Dim lngDBFV As Long
DBTCount = UBound(DBTableName())
DBFCount = UBound(DBField())
DBFValCount = UBound(DBFieldVal())
If DBFCount <> DBFValCount Then
DBSQLStr = vbNull
Else

End If
End Function