ifixVB连接数据库,数据库数据处理附带代码参考.doc

一 在 ifix 帮组手册中的参考内容 1 二 在 vb 中需要引用内容 6 三 采用 2 中引用的 ADO ext 方式连接用户数据库参考 6 四 具体的参考代码 8 4 1 创建新表 8 4 2 删除不需要时间范围数据 9 4 3 删除某个表 10 4 4 清除表中重复数据 11 4 5 将临时数据表中数据倒回主数据表 15 4 6 删除某个表中全部数据 17 4 7 读一个数据库中数据 将该数据写入另一个数据库 18 附件 1 网络下载参考数据 25 附录 2 sql 参考 36 附录 3 附带一个小资料 sql 参数 40 SQL 常用命令使用方法 43 参考 1 日表代码 50 参考 2 污水月表代码 55 参考 3 单年表代码 63 参考 4 多年表代码 69 参考 5 污水设备运行时间表代码 75 参考 6 删除某表指定时间前数据 81 一 在 ifix 帮组手册中的参考内容 Driver Microsoft Access Driver MDB DBQ E 报表 gyws report mdb INSERT INTO fixreport datatime datatag datavalue VALUES 2010 7 13 10 11 23 addbc 124 45 二 在 vb 中需要引用内容 三 采用 2 中引用的 ADO ext 方式连接用户数据库参考 四 具体的参考代码 4 1 创建新表 Private Sub close pic16 Click 再已存在库中创建表 Dim cat As ADOX Catalog Dim tbl As New ADOX Table Set cat New ADOX Catalog cat ActiveConnection Provider Microsoft Jet OLEDB 4 0 With tbl Name fixreport temp Create a field and append it to the new Table object This must be done before appending the Table object to the Tables collection of the Catalog Columns Append datatime adDate Columns Append datatag adVarWChar Columns Append datavalue adDouble Columns Append datatxt adVarWChar End With Add the new table to the database cat Tables Append tbl Clean up the references Set cat Nothing Set tbl Nothing End Sub 4 2 删除不需要时间范围数据 Private Sub close pic14 Click Dim conADO As ADODB Connection Dim rsADO As ADODB Recordset Dim strQuery1 As String Dim StartTime 报表设计 datestar Refresh StartTime Format 报表设计 datestar Value yyyy mm dd DBQ E 污水报表 gyws report mdb UID aa PWD strQuery1 delete FROM fixreport WHERE datatime 1 and rowid not in select min rowid from people group by peopleId having count peopleId 1 以下内容为从 fix 系统数据读出需要数据 datatime not in SELECT DISTINCT count datatime FROM fixreport group by datatime having DISTINCT count datatime 1 and Tag AA1 Tag 10 AA1 fixreport datatime DISTINCT fixreport having count datatime 1 delete strQueryfix SELECT fixreport datatime fixreport datatag fixreport datavalue fixreport datatxt FROM fixreport WHERE fixreport datatag AA1 DISTINCT strQuery SELECT sum datavalue from SELECT DISTINCT datatime datatag datavalue datatxt FROM fixreport WHERE datatag AA1 datatime not in SELECT datatime FROM fixreport group by datatime having count DISTINCT datatime and datatag AA1 Set conADO New ADODB Connection conADO ConnectionString Driver Microsoft Access Driver MDB DBQ E 污水报表 gyws report mdb UID aa PWD conADO Open Set rsADO New ADODB Recordset rsADO Open strQuery conADO adOpenDynamic adLockOptimistic adCmdText i rsADO 0 j i 1 k i 2 End Sub Private Sub close pic27 Click Dim conADO As ADODB Connection Dim rsADO As ADODB Recordset Dim strQuery As String fix 数据连接定义 Dim conADOfix As Connection Dim rsADOfix As Recordset Dim strQueryfix As String fix 数据处理定义 On Error GoTo ErrorHandler 自建数据库数据连接定义 Dim StartTime StartTime1 EenTime EenTime1 As String Dim Tag 15 As String Dim i j k Dim Datat Datatag Datav Datasm Tagsm 1 Dim smtime smm As String 以下内容为从 fix 系统数据读出需要数据 时间控件取值 StartTime1 dateadd d 1 Now StartTime Format StartTime1 yyyy mm dd UID sa PWD conADOfix i Open Set rsADOfix i New ADODB Recordset rsADOfix i Open strQueryfix i conADOfix i adOpenForwardOnly adLockReadOnly adCmdText Next i 以下内容为向数据库中插入数据 Datasm 当前插入数据为时间 本数据为 DBQ E 污水报表 gyws report mdb UID aa PWD conADO Open strQuery INSERT INTO fixreport datatime datatag datavalue datatxt VALUES StartTime Data2 Data1 Datasm Set rsADO New ADODB Recordset rsADO Open strQuery conADO adOpenForwardOnly adLockReadOnly adCmdText 以下内容为将读出 fix 数据写入数据库 fixreport Dim Datat Datatag Datav Datasm Tagsm 1 Dim j Dim smtime smm As String For j 0 To 9 Set conADO j New ADODB Connection conADO j ConnectionString Driver Microsoft Access Driver MDB DBQ 192 168 1 222 新建文件夹 gyws report mdb UID aa PWD conADO j Open While rsADOfix j EOF True Datasm 当前插入数据为时间 本数据为 DBQ E 污水报表 gyws report mdb UID aa PWD conADO Open strQuery DROP TABLE fixreport temp Set rsADO New ADODB Recordset rsADO Open strQuery conADO adOpenForwardOnly adLockOptimistic adCmdText 再已存在库中创建表 Dim cat As ADOX Catalog Dim tbl As New ADOX Table Set cat New ADOX Catalog cat ActiveConnection Provider Microsoft Jet OLEDB 4 0 With tbl Name fixreport temp Create a field and append it to the new Table object This must be done before appending the Table object to the Tables collection of the Catalog Columns Append datatime adDate Columns Append datatag adVarWChar Columns Append datavalue adDouble Columns Append datatxt adVarWChar End With Add the new table to the database cat Tables Append tbl Clean up the references Set cat Nothing Set tbl Nothing 附件 1 网络下载参考数据 删除 Access 中的重复记录 用 sql 如何写 PL SQL 2007 12 13 13 52 32 阅读 200 评论 0 字号 大中小 1 查找表中多余的重复记录 重复记录是根据单个字段 peopleId 来判断 select from people where peopleId in select peopleId from people group by peopleId having count peopleId 1 2 删除表中多余的重复记录 重复记录是根据单个字段 peopleId 来判断 只留有 rowid 最小的记录 delete from people where peopleId in select peopleId from people group by peopleId having count peopleId 1 and rowid not in select min rowid from people group by peopleId having count peopleId 1 3 查找表中多余的重复记录 多个字段 select from vitae a where a peopleId a seq in select peopleId seq from vitae group by peopleId seq having count 1 4 删除表中多余的重复记录 多个字段 只留有 rowid 最小的记录 delete from vitae a where a peopleId a seq in select peopleId seq from vitae group by peopleId seq having count 1 and rowid not in select min rowid from vitae group by peopleId seq having count 1 5 查找表中多余的重复记录 多个字段 不包含 rowid 最小的记录 select from vitae a where a peopleId a seq in select peopleId seq from vitae group by peopleId seq having count 1 and rowid not in select min rowid from vitae group by peopleId seq having count 1 几个删除重复记录的几个删除重复记录的 SQL 语句语句 来源 2007 年 11 月 29 日 09 53 网友评论 0 条 点击 5553 比如现在有一人员表 表名 peosons 若想将姓名 身份证号 住址这三个字段完全相同的记录查询出来 select p1 from persons p1 persons p2 where p1 idp2 id and p1 cardid p2 cardid and p1 pname p2 pname and p1 address p2 address 可以实现上述效果 几个删除重复记录的几个删除重复记录的 SQL 语句语句 1 用 rowid 方法 2 用 group by 方法 3 用 distinct 方法 1 用 用 rowid 方法方法 据据 oracle 带的 rowid 属性 进行判断 是否存在重复 语句如下 查数据查数据 select from table1 a where rowid select max rowid from table1 b where a name1 b name1 and a name2 b name2 删数据 删数据 delete from table1 a where rowid select max rowid from table1 b where a name1 b name1 and a name2 b name2 2 group by 方法方法 查数据查数据 select count num max name from student 列出重复的记录数 并列出他的 name 属性 group by num having count num 1 按 num 分组后找出表中 num 列重复 即出现次数大于一次 删数据 删数据 delete from student group by num having count num 1 这样的话就把所有重复的都删除了 3 用 distinct 方法 对于小的表比较有用 create table table new as select distinct from table1 minux truncate table table1 insert into table1 select from table new 查询及删除重复记录的方法大全查询及删除重复记录的方法大全 1 查找表中多余的重复记录 重复记录是根据单个字段 peopleId 来判断 select from people where peopleId in select peopleId from people group by peopleId having count peopleId 1 2 删除表中多余的重复记录 重复记录是根据单个字段 peopleId 来判断 只留有 rowid 最小的记录 delete from people where peopleId in select peopleId from people group by peopleId having count peopleId 1 and rowid not in select min rowid from people group by peopleId having count peopleId 1 3 查找表中多余的重复记录 多个字段 select from vitae a where a peopleId a seq in select peopleId seq from vitae group by peopleId seq having count 1 4 删除表中多余的重复记录 多个字段 只留有 rowid 最小的记录 delete from vitae a where a peopleId a seq in select peopleId seq from vitae group by peopleId seq having count 1 and rowid not in select min rowid from vitae group by peopleId seq having count 1 5 查找表中多余的重复记录 多个字段 不包含 rowid 最小的记录 select from vitae a where a peopleId a seq in select peopleId seq from vitae group by peopleId seq having count 1 and rowid not in select min rowid from vitae group by peopleId seq having count 1 二 比方说 在 A 表中存在一个字段 name 而且不同记录之间的 name 值有可能会相同 现在就是需要查询出在该表中的各记录之间 name 值存在重复的项 Select Name Count From A Group By Name Having Count 1 如果还查性别也相同大则如下 Select Name sex Count From A Group By Name sex Having Count 1 三 方法一 declare max integer id integer declare cur rows cursor local for select 主字段 count from 表名 group by 主字段 having count 1 open cur rows fetch cur rows into id max while fetch status 0 begin select max max 1 set rowcount max delete from 表名 where 主字段 id fetch cur rows into id max end close cur rows set rowcount 0 方法二 重复记录 有两个意义上的重复记录 一是完全重复的记录 也即所有字段均重复的记录 二是部分关键字段重 复的记录 比如 Name 字段重复 而其他字段不一定重复或都重复可以忽略 1 对于第一种重复 比较容易解决 使用 select distinct from tableName 就可以得到无重复记录的结果集 如果该表需要删除重复的记录 重复记录保留 1 条 可以按以下方法删除 select distinct into Tmp from tableName drop table tableName select into tableName from Tmp drop table Tmp 发生这种重复的原因是表设计不周产生的 增加唯一索引列即可解决 2 这类重复问题通常要求保留重复记录中的第一条记录 操作方法如下 假设有重复的字段为 Name Address 要求得到这两个字段唯一的结果集 select identity int 1 1 as autoID into Tmp from tableName select min autoID as autoID into Tmp2 from Tmp group by Name autoID select from Tmp where autoID in select autoID from tmp2 最后一个 select 即得到了 Name Address 不重复的结果集 但多了一个 autoID 字段 实际写时可以写在 select 子句中省去此列 四 查询重复 select from tablename where id in select id from tablename group by id having count id 1 快速删除重复记录 SQL Server 如何实现 如果一张表的数据达到上百万条 用游标的方法来删除简直是个噩梦 因为它会执行相当长的一段时间 开发人员的噩梦开发人员的噩梦 删除重复记录删除重复记录 想必每一位开发人员都有过类似的经历 在对数据库进行查询或统计的时候不时地会碰到由于表中存在重复的记录而导致 查询和统计结果不准确 解决该问题的办法就是将这些重复的记录删除 只保留其中的一条 在 SQL Server 中除了对拥有十几条记录的表进行人工删除外 实现删除重复记录一般都是写一段代码 用游标的方法一 行一行检查 删除重复的记录 因为这种方法需要对整个表进行遍历 所以对于表中的记录数不是很大的时候还是可行的 如 果一张表的数据达到上百万条 用游标的方法来删除简直是个噩梦 因为它会执行相当长的一段时间 四板斧四板斧 轻松消除重复记录轻松消除重复记录 殊不知在 SQL Server 中有一种更为简单的方法 它不需要用游标 只要写一句简单插入语句就能实现删除重复记录的功 能 为了能清楚地表述 我们首先假设存在一个产品信息表 Products 其表结构如下 CREATE TABLE Products ProductID int ProductName nvarchar 40 Unit char 2 UnitPrice money 表中的数据如图 1 图表 图 1 中可以看出 产品 Chang 和 Tofu 的记录在产品信息表中存在重复 现在要删除这些重复的记录 只保留其中的一 条 步骤如下 第一板斧 建立一张具有相同结构的临时表 CREATE TABLE Products temp ProductID int ProductName nvarchar 40 Unit char 2 UnitPrice money 第二板斧 为该表加上索引 并使其忽略重复的值 方法是在企业管理器中找到上面建立的临时表 Products temp 单击鼠标右键 选择所有任务 选择管理索引 选择新 建 如图 2 所示 按照图 2 中圈出来的地方设置索引选项 图 2 第三板斧 拷贝产品信息到临时表 insert into Products temp Select from Products 此时 SQL Server 会返回如下提示 服务器 消息 3604 级别 16 状态 1 行 1 已忽略重复的键 它表明在产品信息临时表 Products temp 中不会有重复的行出现 第四板斧 将新的数据导入原表 将原产品信息表 Products 清空 并将临时表 Products temp 中数据导入 最后删除临时表 Products temp delete Products insert into Products select from Products temp drop table Products temp 这样就完成了对表中重复记录的删除 无论表有多大 它的执行速度都是相当快的 而且因为几乎不用写语句 所以它也 是很安全的 小提示 上述方法中删除重复记录取决于创建唯一索引时选择的字段 在实际的操作过程中读者务必首先确认创建的唯一 索引字段是否正确 以免将有用的数据删除 本例中我们使用 ADOX 来创建 Access 数据库 Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security ADOX 是对 ADO 对象 和编程模型的扩展 ADOX 包括用于模式创建和修改的对象 以及安全性 由于它是基于对象实现模式操作 所以用户可以编 写对各种数据源都能有效运行的代码 而与它们原始语法中的差异无关 ADOX 是核心 ADO 对象的扩展库 它显露的其他对象可用于创建 修改和删除模式对象 如表格和过程 它还包括安全对 象 可用于维护用户和组 以及授予和撤消对象的权限 要通过开发工具使用 ADOX 需要建立对 ADOX 类型库的引用 对 ADOX 库的说明为 Microsoft ADO Ext for DDL and Security ADOX 库文件名为 Msadox dll 程序 ID ProgID 为 ADOX 有关建立库引用的详细信息 请参阅开发 工具的文档 使用 ADOX 对象模型中的 Catalog 对象来创建数据库 创建 Access 数据库的方式非常简单 使用的字符串和 ADODB Connection 对象的连接字符串是一样的 较为简单的示例如下 1 创建数据库 声明 Catalog 对象 Dim cat As New ADOX Catalog 设置创建数据库用到的字符串 和 ADODB Connection 对象的连接字符串相同 Dim Workstring As String Workstring Provider Microsoft Jet OLEDB 4 0 Db Execute SQL End if 附录 2 sql 参考 1 ASP 与 Access 数据库连接 2 ASP 与 SQL 数据库连接 建立记录集对象 set rs server createobject adodb recordset rs open SQL 语句 conn 3 2 3 SQL 常用命令使用方法 1 数据记录筛选 sql select from 数据表 where 字段名 字段值 order by 字段名 desc sql select from 数据表 where 字段名 like 字段值 order by 字段名 desc sql select top 10 from 数据表 where 字段名 order by 字段名 desc sql select from 数据表 where 字段名 in 值 1 值 2 值 3 sql select from 数据表 where 字段名 between 值 1 and 值 2 2 更新数据记录 sql update 数据表 set 字段名 字段值 where 条件表达式 sql update 数据表 set 字段 1 值 1 字段 2 值 2 字段 n 值 n where 条件表达式 3 删除数据记录 sql delete from 数据表 where 条件表达式 sql delete from 数据表 将数据表所有记录删除 4 添加数据记录 sql insert into 数据表 字段 1 字段 2 字段 3 values 值 1 值 2 值 3 sql insert into 目标数据表 select from 源数据表 把源数据表的记录添加到目标数据表 5 数据记录统计函数 AVG 字段名 得出一个表格栏平均值 COUNT 字段名 对数据行数的统计或对某一栏有值的数据行数统计 MAX 字段名 取得一个表格栏最大的值 MIN 字段名 取得一个表格栏最小的值 SUM 字段名 把数据栏的值相加 引用以上函数的方法 sql select sum 字段名 as 别名 from 数据表 where 条件表达式 set rs conn excute sql 用 rs 别名 获取统的计值 其它函数运用同上 5 数据表的建立和删除 CREATE TABLE 数据表名称 字段 1 类型 1 长度 字段 2 类型 2 长度 例 CREATE TABLE tab01 name varchar 50 datetime default now DROP TABLE 数据表名称 永久性删除一个数据表 4 记录集对象的方法 rs movenext 将记录指针从当前的位置向下移一行 rs moveprevious 将记录指针从当前的位置向上移一行 rs movefirst 将记录指针移到数据表第一行 rs movelast 将记录指针移到数据表最后一行 rs absoluteposition N 将记录指针移到数据表第 N 行 rs absolutepage N 将记录指针移到第 N 页的第一行 rs pagesize N 设置每页为 N 条记录 rs pagecount 根据 pagesize 的设置返回总页数 rs recordcount 返回记录总数 rs bof 返回记录指针是否超出数据表首端 true 表示是 false 为否 rs eof 返回记录指针是否超出数据表末端 true 表示是 false 为否 rs delete 删除当前记录 但记录指针不会向下移动 rs addnew 添加记录到数据表末端 rs update 更新数据表记录 Recordset 对象方法 Open 方法 recordset Open Source ActiveConnection CursorType LockType Options Source Recordset 对象可以通过 Source 属性来连接 Command 对象 Source 参数可以是一个 Command 对象名称 一段 SQL 命令 一个指定的数据表名称或是一个 Stored Procedure 假如省略这个参数 系统则采用 Recordset 对象的 Source 属性 ActiveConnection Recordset 对象可以通过 ActiveConnection 属性来连接 Connection 对象 这里的 ActiveConnection 可以是一个 Conn ection 对象或是一串包含数据库连接信息 ConnectionString 的字符串参数 CursorType Recordset 对象 Open 方法的 CursorType 参数表示将以什么样的游标类型启动数据 包括 adOpenForwardOnly adOpen Keyset adOpenDynamic 及 adOpenStatic 分述如下 常数 常数值 说明 adOpenForwardOnly 0 缺省值 启动一个只能向前移动的游标 Forward Only adOpenKeyset 1 启动一个 Keyset 类型的游标 adOpenDynamic 2 启动一个 Dynamic 类型的游标 adOpenStatic 3 启动一个 Static 类型的游标 以上几个游标类型将直接影响到 Recordset 对象所有的属性和方法 以下列表说明他们之间的区别 Recordset 属性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic AbsolutePage 不支持 不支持 可读写 可读写 AbsolutePosition 不支持 不支持 可读写 可读写 ActiveConnection 可读写 可读写 可读写 可读写 BOF 只读 只读 只读 只读 Bookmark 不支持 不支持 可读写 可读写 CacheSize 可读写 可读写 可读写 可读写 CursorLocation 可读写 可读写 可读写 可读写 CursorType 可读写 可读写 可读写 可读写 EditMode 只读 只读 只读 只读 EOF 只读 只读 只读 只读 Filter 可读写 可读写 可读写 可读写 LockType 可读写 可读写 可读写 可读写 MarshalOptions 可读写 可读写 可读写 可读写 MaxRecords 可读写 可读写 可读写 可读写 PageCount 不支持 不支持 只读 只读 PageSize 可读写 可读写 可读写 可读写 RecordCount 不支持 不支持 只读 只读 Source 可读写 可读写 可读写 可读写 State 只读 只读 只读 只读 Status 只读 只读 只读 只读 AddNew 支持 支持 支持 支持 CancelBatch 支持 支持 支持 支持 CancelUpdate 支持 支持 支持 支持 Clone 不支持 不支持 Close 支持 支持 支持 支持 Delete 支持 支持 支持 支持 GetRows 支持 支持 支持 支持 Move 不支持 支持 支持 支持 MoveFirst 支持 支持 支持 支持 MoveLast 不支持 支持 支持 支持 MoveNext 支持 支持 支持 支持 MovePrevious 不支持 支持 支持 支持 NextRecordset 支持 支持 支持 支持 Open 支持 支持 支持 支持 Requery 支持 支持 支持 支持 Resync 不支持 不支持 支持 支持 Supports 支持 支持 支持 支持 Update 支持 支持 支持 支持 UpdateBatch 支持 支持 支持 支持 其中 NextRecordset 方法并不适用于 Microsoft Access 数据库 LockType Recordset 对象 Open 方法的 LockType 参数表示要采用的 Lock 类型 如果忽略这个参数 那么系统会以 Recordset 对 象的 LockType 属性为预设值 LockType 参数包含 adLockReadOnly adLockPrssimistic adLockOptimistic 及 adLoc kBatchOptimistic 等 分述如下 常数 常数值 说明 adLockReadOnly 1 缺省值 Recordset 对象以只读方式启动 无法运行 AddNew Update 及 Delete 等方法 adLockPrssimistic 2 当数据源正在更新时 系统会暂时锁住其他用户的动作 以保持数据一致性 adLockOptimistic 3 当数据源正在更新时 系统并不会锁住其他用户的动作 其他用户可以对数据进行增 删 改的操作 adLockBatchOptimistic 4 当数据源正在更新时 其他用户必须将 CursorLocation 属性改为 adUdeClientBatch 才能对数据进行增 删 改的操作 附录 3 附带一个小资料 sql 参数 附带一个小资料 常数 常数值 说明 adOpenForwardOnly 0 缺省值 启动一个只能向前移动的游标 Forward Only adOpenKeyset 1 启动一个 Keyset 类型的游标 adOpenDynamic 2 启动一个 Dynamic 类型的游标 adOpenStatic 3 启动一个 Static 类型的游标 以上几个游标类型将直接影响到 Recordset 对象所有的属性和方法 以下列表说明他们之间的区别 Recordset 属性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic AbsolutePage 不支持 不支持 可读写 可读写 AbsolutePosition 不支持 不支持 可 读写 可读写 ActiveConnection 可读写 可读写 可 读写 可读写 BOF 只读 只读 只读 只读 Bookmark 不支持 不支持 可读写 可读写 CacheSize 可读写 可读写 可读写 可读写 CursorLocation 可读写 可读写 可读写 可读写 CursorType 可读写 可读写 可读写 可读写 EditMode 只读 只读 只读 只读 EOF 只读 只读 只读 只读 Filter 可读写 可读写 可读写 可读写 LockType 可读写 可读写 可读写 可读写 MarshalOptions 可读写 可读写 可读写 可读写 MaxRecords 可读写 可读写 可读写 可读写 PageCount 不支持 不支持 只读 只读 PageSize 可读写 可读写 可读写 可读写 RecordCount 不支持 不支持 只读 只读 Source 可读写 可读写 可读写 可读写 State 只读 只读 只读 只读 Status 只读 只读 只读 只读 AddNew 支持 支持 支持 支持 CancelBatch 支持 支持 支持 支持 CancelUpdate 支持 支持 支持 支持 Clone 不支持 不支持 Close 支持 支持 支持 支持 Delete 支持 支持 支持 支持 GetRows 支持 支持 支持 支持 Move 不支持 支持 支持 支持 MoveFirst 支持 支持 支持 支持 MoveLast 不支持 支持 支持 支持 MoveNext 支持 支持 支持 支持 MovePrevious 不支持 支持 支持 支持 NextRecordset 支持 支持 支持 支持 Open 支持 支持 支持 支持 Requery 支持 支持 支持 支持 Resync 不支持 不支持 支持 支持 Supports 支持 支持 支持 支持 Update 支持 支持 支持 支持 UpdateBatch 支持 支持 支持 支持 其中 NextRecordset 方法并不适用于 Microsoft Access 数据库 LockType Recordset 对象 Open 方法的 LockType 参数表示要采用的 Lock 类型 如果忽略这个参数 那么系统 会以 Recordset 对象的 LockType 属性为预设值 LockType 参数包含 adLockReadOnly adLockPrssimistic adLockOptimistic 及 adLockBatchOptimistic 等 分述如 下 常数 常数值 说明 adLockReadOnly 1 缺省值 Recordset 对象以只读方式启动 无法运行 AddNew Update 及 Delete 等方法 adLockPrssimistic 2 当数据源正在更新时 系统会暂时锁住其他用户的动作 以保持数据一 致性 adLockOptimistic 3 当数据源正在更新时 系统并不会锁住其他用户的动作 其他用户可以对 数据进行增 删 改的操作 adLockBatchOptimistic 4 当数据源正在更新时 其他用户必须将 CursorLocation 属性改为 adUdeClientBatch 才能对数据进行增 删 改的操作 定义数据库连接的一些常量 SQL 常用命令使用方法常用命令使用方法 1 数据记录筛选 sql select from 数据表 where 字段名 字段值 order by 字段名 desc sql select from 数据表 where 字段名 like 字段值 order by 字段名 desc sql select top 10 from 数据表 where 字段名 order by 字段名 desc sql select from 数据表 where 字段名 in 值 1 值 2 值 3 sql select from 数据表 where 字段名 between 值 1 and 值 2 2 更新数据记录 sql update 数据表 set 字段名 字段值 where 条件表达式 sql update 数据表 set 字段 1 值 1 字段 2 值 2 字段 n 值 n where 条件表达式 3 删除数据记录 sql delete from 数据表 where 条件表达式 sql delete from 数据表 将数据表所有记录删除 4 添加数据记录 sql insert into 数据表 字段 1 字段 2 字段 3 values 值 1 值 2 值 3 sql insert into 目标数据表 select from 源数据表 把源数据表的记录添加到目标数据表 5 数据记录统计函数 AVG 字段名 得出一个表格栏平均值 COUNT 字段名 对数据行数的统计或对某一栏有值的数据行数统计 MAX 字段名 取得一个表格栏最大的值 MIN 字段名 取得一个表格栏最小的值 SUM 字段名 把数据栏的值相加 引用以上函数的方法 sql select sum 字段名 as 别名 from 数据表 where 条件表达式 set rs conn excute sql 用 rs 别名 获取统的计值 其它函数运用同上 5 数据表的建立和删除 CREATE TABLE 数据表名称 字段 1 类型 1 长度 字段 2 类型 2 长度 例 CREATE TABLE tab01 name varchar 50 datetime default now DROP TABLE 数据表名称 永久性删除一个数据表 4 记录集对象的方法 rs movenext 将记录指针从当前的位置向下移一行 rs moveprevious 将记录指针从当前的位置向上移一行 rs movefirst 将记录指针移到数据表第一行 rs movelast 将记录指针移到数据表最后一行 rs absoluteposition N 将记录指针移到数据表第 N 行 rs absolutepage N 将记录指针移到第 N 页的第一行 rs pagesize N 设置每页为 N 条记录 rs pagecount 根据 pagesize 的设置返回总页数 rs recordcount 返回记录总数 rs bof 返回记录指针是否超出数据表首端 true 表示是 false 为否 rs eof 返回记录指针是否超出数据表末端 true 表示是 false 为否 rs delete 删除当前记录 但记录指针不会向下移动 rs addnew 添加记录到数据表末端 rs update 更新数据表记录 Recordset 对象方法 Open 方法 recordset Open Source ActiveConnection CursorType LockType Options Source Recordset 对象可以通过 Source 属性来连接 Command 对象 Source 参数可以是一