怎样取得RECORDSET记录中特定某条记录？

onebluesky 2003-09-21 08:18:59

For i = 0 To rs.RecordCount - 1
vntTemp = rs（i）.value
Combo1.AddItem vntTemp
rs.MoveNext
Next
i = 0 时可以，但下一个循环中rs（i）就说记录中无此项目！
请问应该如何取得记录中的具体值呢？vntTemp = rs（i）.value正确写发应是什么？
在线等！

...全文

290 14 打赏收藏转发到动态举报

写回复

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-09-22

打赏
举报

回复

你的表是否就一个字段？

rs.movefirst
do while not rs.eof
Combo1.AddItem rs（0）.value 'rs.fields(0）.value
rs.Movenext
loop

onebluesky 2003-09-22

打赏
举报

回复

northwolves和sword281()说的方法是对的！
谢谢！已经成功！

onebluesky 2003-09-22

打赏
举报

回复

在FOR循环之前已经用过 rs.movelast 和 rs.movefirst
rs.RecordCount的值为4，已经用MSGBOX显示了！

whoiszm 2003-09-22

打赏
举报

回复

rs.movefirst
do while not rs.bof and not rs.eof
vntTemp = rs.fileds(0).value '若只有一个字段的时候，vntTemp与字段里的类型要一直！
rs.movenext
loop

BrightFire 2003-09-22

打赏
举报

回复

Recordset好像有一个EOF的属性，那就用不着For循环了，用while吧，读记录直到rs.eof=true为止

BrightFire 2003-09-22

打赏
举报

回复

看一下rs.RecordCount的值，有可能是-1

NotReady 2003-09-22

打赏
举报

回复

For i = 0 To rs.RecordCount - 1
vntTemp = rs.fileds(i)
Combo1.AddItem vntTemp
rs.MoveNext
Next

sword281 2003-09-22

打赏
举报

回复

用rs.fields(0).value这个语句不是用rs.fields(i).value

onebluesky 2003-09-22

打赏
举报

回复

Data2.RecordSource = "select * from 工作方式"
Data2.Refresh
Set rs = Data2.Recordset
另外，上面的代码是设置数据源的！

onebluesky 2003-09-22

打赏
举报

回复

我的表里就一个字段！rs.fields(i).value我也试过了！
还是没有此项目！

onebluesky 2003-09-21

打赏
举报

回复

TO：jiangjian0427(carabao)
rs.value通不过！“没有此方法或数据成员！”

onebluesky 2003-09-21

打赏
举报

回复

不行呀！空的，什么都没有！

jiangjian0427 2003-09-21

打赏
举报

回复

For i = 0 To rs.RecordCount - 1
vntTemp = rs.value
Combo1.AddItem vntTemp
rs.MoveNext
Next

战箫 2003-09-21

打赏
举报

回复

这样rs!value就可以了，不用加那个i,因为你用了rs.movenext，它会自动跳到下一条记录的。

Excel VBA与数据库整合应用范例精讲(范例文件代码) 内容简介　　《Excel VBA 数据库整合应用范例精讲》用180个实例介绍了利用Excel VBA来操作数据库（包括Access、SQL Server和FoxPro）的实用方法和技巧。　　全书共11章。第1～6章是利用Excel VBA操作Access数据库的实例；第7～8章是利用Excel VBA操作SQL Server数据库和FoxPro数据库的方法和技巧实例；第9～10章是将工作簿当作数据库以及将文本文件当作数据库进行操作的方法和技巧实例。第11章以一个具有较大使用价值的固定资产管理系统为案例，详细介绍Excel VBA开发管理系统的过程。每个实例分析透彻，代码完整，技巧全面，使用得心应手。目录第1章　动态创建Access数据库和数据表实例1-1　利用DAO创建数据库和数据表实例1-2　利用ADOX创建数据库和数据表实例1-3　利用SQL语句创建数据库和数据表实例1-4　在已有的数据库中创建数据表（DAO）实例1-5　在已有的数据库中创建数据表（ADOX）实例1-6　在已有的数据库中创建数据表（SQL，Command对象）实例1-7　在已有的数据库中创建数据表（SQL，Recordset对象）实例1-8　利用Access对象创建数据库和数据表实例1-9　利用Access对象在已有的数据库中创建数据表实例1-10　利用工作表数据创建数据表（ADOX）实例1-11　利用工作表数据创建数据表（ADO+SQL）实例1-12　利用工作表数据创建数据表（DAO）实例1-13　利用已有的数据表创建新数据表（ADO）实例1-14　利用已有的数据表创建新数据表（DAO）实例1-15　利用已有的数据表创建新数据表（Access）第2章　获取Access数据库信息实例2-1　检查数据表是否存在（ADO）实例2-2　检查数据表是否存在（ADOX）实例2-3　检查数据表是否存在（DAO）实例2-4　检查数据表是否存在（Access）实例2-5　获取数据库中所有表的名称和类型（ADO）实例2-6　获取数据库中所有表的名称和类型（ADOX）实例2-7　获取数据库中所有的表名称（DAO）实例2-8　获取数据库中所有数据表名称（ADO）实例2-9　获取数据库中所有数据表名称（ADOX）实例2-10　获取数据库中所有数据表名称（DAO）实例2-11　获取数据库中所有数据表名称（Access）实例2-12　检查某字段是否存在（ADO）实例2-13　检查某字段是否存在（ADOX）实例2-14　检查某字段是否存在（DAO）实例2-15　检查某字段是否存在（Access）实例2-16　获取数据库中某数据表的所有字段信息（ADO）实例2-17　获取数据库中某数据表的所有字段信息（ADOX）实例2-18　获取数据库中某数据表的所有字段信息（DAO）实例2-19　获取数据库中某数据表的所有字段信息（Access）实例2-20　获取数据库的所有查询信息（ADOX）实例2-21　获取数据库的所有查询信息（DAO）实例2-22　获取数据库的模式信息（OpenSchema）实例2-23　获取表的创建日期和最后更新日期（ADOX）实例2-24　获取表的创建日期和最后更新日期（DAO）第3章　查询获取Access数据库记录数据实例3-1　将数据库记录数据全部导入到Excel工作表（ADO，之一）实例3-2　将数据库记录数据全部导入到Excel工作表（ADO，之二）实例3-3　将数据库记录数据全部导入到Excel工作表（ADO，之三）实例3-4　将数据库记录数据全部导入到Excel工作表（DAO，之一）实例3-5　将数据库记录数据全部导入到Excel工作表（DAO，之二）实例3-6　将数据库记录数据全部导入到Excel工作表（QueryTable集合）实例3-7　将数据库的某些字段的记录数据导入到Excel工作表（ADO）实例3-8　将数据库的某些字段记录数据导入到Excel工作表（DAO）实例3-9　查询前面的若干条记录（全部字段）（TOP）实例3-10　查询前面的若干条记录（部分字段）（TOP）实例3-11　查询不重复的字段记录（DISTINCT）实例3-12　利用Like运算符进行模糊查询实例3-13　查询某一区间内的记录（BETWEEN）实例3-14　查询存在于某个集合里面的记录（IN）实例3-15　将查询结果进行排序（ORDER BY）实例3-16　进行复杂条件的查询（WHERE）实例3-17　利用合计函数进行查询（查询最大值和最小值）实例3-18　利用合计函数进行查询（查询合计值和平均值）实例3-19　将一个查询结果作为查询条件进行查询实例3-20　将查询结果进行分组（GROUP BY）实例3-21　将查询结果进行分组（HAVING）实例3-22　通过计算列进行查询实例3-23　使用IS NULL运算符进行查询实例3-24　使用COUNT函数进行查询实例3-25　使用FIRST函数与LAST函数查询第一条记录和最后一条记录的字段实例3-26　使用Parameters参数动态查询记录（DAO）：指定单个参数实例3-27　使用Parameters参数动态查询记录（DAO）：指定多个参数实例3-28　使用Parameters参数动态查询记录（ADO）：指定单个参数实例3-29　使用Parameters参数动态查询记录（ADO）：指定多个参数实例3-30　使用别名查询数据库实例3-31　将查询结果作为窗体控件的源数据实例3-32　通过窗体控件查询浏览数据库记录实例3-33　多表查询（WHERE连接）实例3-34　多表查询（内连接INNER JOINT）实例3-35　多表查询（左外连接LEFT OUTER JOINT）实例3-36　多表查询（右外连接RIGHT OUTER JOINT）实例3-37　多表查询（子查询WHERE，ANY，SOME）实例3-38　多表查询（子查询EXISTS，NOT　EXISTS）实例3-39　从两个数据表中查询出都存在的记录实例3-40　从两个数据表中查询出只存在于某个数据表的记录实例3-41　将查询结果生成一个数据表实例3-42　将查询结果保存为一个XML文件实例3-43　利用工作表实现记录的分页显示实例3-44　利用窗体实现记录的分页显示第4章　编辑Access数据库数据实例4-1　添加新记录（ADO+AddNew）实例4-2　添加新记录（ADO+SQL）实例4-3　添加新记录（DAO+AddNew）实例4-4　添加新记录（DAO+SQL）实例4-5　添加新记录（Access+SQL）实例4-6　修改更新特定记录（ADO+SQL）实例4-7　修改更新特定记录（DAO+SQL）实例4-8　修改更新特定记录（Access+SQL）实例4-9　修改更新全部记录（ADO+SQL）实例4-10　修改更新全部记录（DAO+SQL）实例4-11　修改更新全部记录（Access+SQL）实例4-12　删除特定记录（ADO+SQL）实例4-13　删除特定记录（DAO+SQL）实例4-14　删除特定记录（Access+SQL）实例4-15　删除全部记录（ADO+SQL）实例4-16　删除全部记录（DAO+SQL）实例4-17　删除全部记录（Access+SQL）实例4-18　通过窗体编辑记录第5章　将Excel工作表数据导入到Access数据库实例5-1　将整个工作表数据都保存为新Access数据库（Access）实例5-2　将工作表的某些区域数据保存为新Access数据库（Access）实例5-3　将工作簿的所有工作表数据分别保存为不同的数据表（Access）实例5-4　将多个工作簿的某个工作表数据汇总为新Access数据库（Access）实例5-5　将多个工作簿的某个工作表数据保存为不同的数据表（Access）实例5-6　将工作表数据保存到已有的Access数据库（循环方式）（ADO）实例5-7　将工作表数据保存到已有的Access数据库（循环方式）（DAO）实例5-8　将工作表数据保存到已有的Access数据库（数组方式）（ADO）实例5-9　将工作表数据保存到已有的Access数据库（数组方式）（DAO）实例5-10　将工作簿的所有工作表数据分别保存为不同的数据表（ADO）实例5-11　将工作簿的所有工作表数据分别保存为不同的数据表（DAO）第6章　操作Access数据表实例6-1　打开数据库和数据表（GetObject函数）实例6-2　打开数据库和数据表（CreateObject函数）实例6-3　删除数据表（ADO）实例6-4　删除数据表（ADOX）实例6-5　删除数据表（DAO+DELETE）实例6-6　删除数据表（DAO+SQL）实例6-7　删除数据表（Access）实例6-8　为数据表增加字段（ADO）实例6-9　为数据表增加字段（ADOX）实例6-10　为数据表增加字段（DAO）实例6-11　为数据表增加字段（Access）实例6-12　删除字段（ADO）实例6-13　删除字段（ADOX）实例6-14　删除字段（DAO）实例6-15　删除字段（Access）实例6-16　改变字段的类型（ADO）实例6-17　改变字段的类型（DAO）实例6-18　改变字段的类型（Access）实例6-19　改变字段的长度（ADO）实例6-20　改变字段的长度（DAO）实例6-21　改变字段的长度（Access）实例6-22　重命名数据表（Access）实例6-23　复制数据表（Access）实例6-24　复制数据表（ADO）实例6-25　复制数据表（DAO）实例6-26　通过窗体维护数据库第7章　操作SQL Server数据库实例7-1　判断SQL Server数据库是否存在（ADO）实例7-2　检查数据表是否存在（ADOX）实例7-3　创建新的SQL Server数据库和数据表（ADO）实例7-4　在已有的SQL Server数据库中创建数据表（ADO）实例7-5　从SQL Server数据库服务器中删除数据库（ADO）实例7-6　从SQL Server数据库中删除数据表（ADO）实例7-7　将SQL Server数据库中的数据导入到Excel工作表（ADO）实例7-8　将SQL Server数据库中的数据导入到Excel工作表（DAO）实例7-9　查询获取SQL Server数据库的数据（ADO）实例7-10　查询获取SQL Server数据库的数据（DAO）实例7-11　将工作表数据导入到SQL Server数据库（ADO）实例7-12　向SQL Server数据库中添加记录的一般方法实例7-13　将SQL Server数据库转换为Access数据库实例7-14　将Access数据库转换为SQL Server数据库第8章　操作FoxPro数据库实例8-1　将FoxPro数据库全部数据导入到Excel工作表实例8-2　查询获取FoxPro数据库数据实例8-3　将Excel工作表数据保存到FoxPro数据库实例8-4　判断FoxPro数据库的字段是否存在实例8-5　获取FoxPro数据库的字段信息第9章　将Excel工作簿当作数据库来操作实例9-1　从工作簿的某个工作表中查询获取数据（ADO）实例9-2　从工作簿的全部工作表中查询获取数据（ADO）实例9-3　利用DAO从工作表中查询数据实例9-4　查询其他工作簿的数据（ADO）实例9-5　获取其他工作簿中的工作表名称清单（ADOX）实例9-6　利用ADO对工作表数据进行多重排序实例9-7　利用ADO按照字符的长度对数据进行排序实例9-8　比较两张表，将两个表中相同的行数据抓取出来实例9-9　比较两张表，将只存在于某个表中的行数据抓取出来实例9-10　删除工作表数据区域内的所有空行第10章　将文本文件当作数据库来操作实例10-1　利用ADO导入文本文件的全部内容实例10-2　利用DAO导入文本文件的全部内容实例10-3　利用ADO导入文本文件的部分内容实例10-4　利用DAO导入文本文件的部分内容实例10-5　利用ADO获取文本文件的行数和列数实例10-6　利用ADO将超过65536行的文本文件数据导入到Excel工作表实例10-7　将工作表全部数据保存为文本文件（SaveAs）实例10-8　将工作表全部数据保存为文本文件（循环）实例10-9　将数据库数据导出为文本文件实例10-10　将文本文件保存为Access数据库（Access）实例10-11　将文本文件保存为Access数据库（ADO+ADOX）第11章　Excel VBA开发数据库管理系统 11.1　固定资产管理系统的总体设计 11.1.1　固定资产管理系统功能模块 11.1.2　固定资产管理系统数据库和数据表的设计 11.1.3　设计系统工作簿 11.1.4　设计系统的自定义菜单 11.1.5　引用对象库 11.2　系统管理模块设计 11.2.1　用户名和密码的保存 11.2.2　“用户登录”窗口结构设计 11.2.3　“用户登录”窗体程序代码设计 11.2.4　“修改用户名”窗体结构设计 11.2.5　“修改用户名”窗体的程序代码设计 11.2.6　“修改密码”窗体结构设计 11.2.7　“修改密码”窗体的程序代码设计 11.3　基础资料管理模块设计 11.4　固定资产日常管理模块设计 11.4.1　固定资产日常管理窗体的结构设计 11.4.2　固定资产日常管理窗体的程序代码设计 11.4.3　“固定资产查询”窗体的结构设计 11.4.4　“固定资产查询窗体”的程序代码设计 11.4.5　固定资产日常管理模块的应用 11.5　报表输出模块设计 11.5.1　固定资产折旧计算方法 11.5.2　生成固定资产卡片子模块的设计 11.5.3　生成统计报表子模块的设计 11.5.4　生成固定资产折旧表子模块的设计 11.5.5　编制折旧费用分配表子模块的设计 11.6　系统菜单转换模块的设计 11.6.1　恢复Excel系统菜单 11.6.2　恢复固定资产管理系统自定义菜单 11.7　为工作簿指定Open和BeforeClose事件 11.7.1　为工作簿指定Open事件 11.7.2　为工作簿指定BeforeClose事件

1-1 利用DAO创建数据库和数据表 7 1-2 利用ADOX创建数据库和数据表： 8 1-3 利用SQL语句创建数据库和数据表 9 1-4 在已有的数据库中创建数据表（DAO） 10 1-5 在已有的数据库中创建数据表（ADOX） 12 1-6 在已有的数据库中创建数据表（SQL，Command对象） 13 1-7 在已有的数据库中创建数据表（SQL，Recordset对象） 13 1-8 利用Access对象创建数据库和数据表 14 1-8-1 不引用Access对象库而使用Access的有关对象、属性和方法 16 1-9 利用Access对象在已有的数据库中创建数据表 17 1-10 利用工作表数据创建数据表（ADOX） 18 1-11 利用工作表数据创建数据表（ADO+SQL） 21 1-12 利用工作表数据创建数据表（DAO） 23 1-13 利用已有的数据表创建新数据表（ADO） 25 1-14 利用已有的数据表创建新数据表（DAO） 27 1-15 利用已有的数据表创建新数据表（Access）(前绑定方法引用Access对象库) 28 2-1 检查数据表是否存在（ADO） 28 •实例2-2 检查数据表是否存在（ADOX） 32 •实例2-3 检查数据表是否存在（DAO） 33 •实例2-4 检查数据表是否存在（Access） 33 •实例2-5 获取数据库中所有表的名称和类型（ADO） 34 •实例2-6 获取数据库中所有表的名称和类型（ADOX） 35 •实例2-8 获取数据库中所有数据表名称（ADO） 36 •实例2-9 获取数据库中所有数据表名称（ADOX） 37 •实例2-10 获取数据库中所有数据表名称（DAO） 37 •实例2-11 获取数据库中所有数据表名称（Access） 38 •实例2-12 检查某字段是否存在（ADO） 39 •实例2-13 检查某字段是否存在（ADOX） 40 •实例2-14 检查某字段是否存在（DAO） 41 •实例2-15 检查某字段是否存在（Access） 41 •实例2-16 获取数据库中某数据表的所有字段信息（ADO） 42 •实例2-17 获取数据库中某数据表的所有字段信息（ADOX） 44 •实例2-18 获取数据库中某数据表的所有字段信息（DAO） 45 •实例2-19 获取数据库中某数据表的所有字段信息（Access） 47 •实例2-20 获取数据库的所有查询信息（ADOX） 48 •实例2-21 获取数据库的所有查询信息（DAO） 49 •实例2-22 获取数据库的模式信息（openschema） 50 •实例2-23 获取表的创建日期和最后更新日期（ADOX） 51 •实例2-24 获取表的创建日期和最后更新日期（DAO） 52 •实例3-1 将数据库记录数据全部导入到excel工作表（ADO，之一） 53 •实例3-2 将数据库记录数据全部导入到excel工作表（ADO，之二） 54 •实例3-3 将数据库记录数据全部导入到Excel工作表（ADO,之三） 55 •实例3-4 将数据库记录数据全部导入到Excel工作表（DAO,之一） 56 •实例3-5 将数据库记录数据全部导入到Excel工作表（DAO，之二） 57 •实例3-6 将数据库记录数据全部导入到Excel工作表（QueryTable集合） 58 •实例3-7 将数据库的某些字段的记录数据导入到Excel工作表（ADO） 59 •实例3-8 将数据库的某些字段记录数据导入到Excel工作表(DAO) 60 •实例3-9 查询前面的若干条记录（全部字段）（TOP） 61 •实例3-10 查询前面的若干条记录（部分字段）（TOP） 62 •实例3-11 查询不重复的字段记录（DISTINCT） 63 •实例3-12 利用Like运算符进行模糊查询 64 •实例3-13 查询某一区间内的记录（BETWEEN） 65 •实例3-14 查询存在于某个集合里面的记录（IN） 67 •实例3-15 将查询结果进行排序（ORDER BY） 68 •实例3-16 进行复杂条件的查询（WHERE） 69 •实例3-17 利用合计函数进行查询（查询最大值和最小值） 70 •实例3-18 利用合计函数进行查询(查询合计值和平均值) 71 •实例3-19 将一个查询结果作为查询条件进行查询 72 •实例3-20 将查询结果进行分组（GROUP BY） 73 •实例3-21 查询结果进行分组（HAVING） 74 •实例3-22 通过计算列进行查询 76 •实例3-23 使用IS NULL运算符进行查询 77 •实例3-24 使用COUNT函

Excel VBA与数据库整合应用范例精讲(书及范例源代码) 内容简介　　《Excel VBA 数据库整合应用范例精讲》用180个实例介绍了利用Excel VBA来操作数据库（包括Access、SQL Server和FoxPro）的实用方法和技巧。　　全书共11章。第1～6章是利用Excel VBA操作Access数据库的实例；第7～8章是利用Excel VBA操作SQL Server数据库和FoxPro数据库的方法和技巧实例；第9～10章是将工作簿当作数据库以及将文本文件当作数据库进行操作的方法和技巧实例。第11章以一个具有较大使用价值的固定资产管理系统为案例，详细介绍Excel VBA开发管理系统的过程。每个实例分析透彻，代码完整，技巧全面，使用得心应手。目录第1章　动态创建Access数据库和数据表实例1-1　利用DAO创建数据库和数据表实例1-2　利用ADOX创建数据库和数据表实例1-3　利用SQL语句创建数据库和数据表实例1-4　在已有的数据库中创建数据表（DAO）实例1-5　在已有的数据库中创建数据表（ADOX）实例1-6　在已有的数据库中创建数据表（SQL，Command对象）实例1-7　在已有的数据库中创建数据表（SQL，Recordset对象）实例1-8　利用Access对象创建数据库和数据表实例1-9　利用Access对象在已有的数据库中创建数据表实例1-10　利用工作表数据创建数据表（ADOX）实例1-11　利用工作表数据创建数据表（ADO+SQL）实例1-12　利用工作表数据创建数据表（DAO）实例1-13　利用已有的数据表创建新数据表（ADO）实例1-14　利用已有的数据表创建新数据表（DAO）实例1-15　利用已有的数据表创建新数据表（Access）第2章　获取Access数据库信息实例2-1　检查数据表是否存在（ADO）实例2-2　检查数据表是否存在（ADOX）实例2-3　检查数据表是否存在（DAO）实例2-4　检查数据表是否存在（Access）实例2-5　获取数据库中所有表的名称和类型（ADO）实例2-6　获取数据库中所有表的名称和类型（ADOX）实例2-7　获取数据库中所有的表名称（DAO）实例2-8　获取数据库中所有数据表名称（ADO）实例2-9　获取数据库中所有数据表名称（ADOX）实例2-10　获取数据库中所有数据表名称（DAO）实例2-11　获取数据库中所有数据表名称（Access）实例2-12　检查某字段是否存在（ADO）实例2-13　检查某字段是否存在（ADOX）实例2-14　检查某字段是否存在（DAO）实例2-15　检查某字段是否存在（Access）实例2-16　获取数据库中某数据表的所有字段信息（ADO）实例2-17　获取数据库中某数据表的所有字段信息（ADOX）实例2-18　获取数据库中某数据表的所有字段信息（DAO）实例2-19　获取数据库中某数据表的所有字段信息（Access）实例2-20　获取数据库的所有查询信息（ADOX）实例2-21　获取数据库的所有查询信息（DAO）实例2-22　获取数据库的模式信息（OpenSchema）实例2-23　获取表的创建日期和最后更新日期（ADOX）实例2-24　获取表的创建日期和最后更新日期（DAO）第3章　查询获取Access数据库记录数据实例3-1　将数据库记录数据全部导入到Excel工作表（ADO，之一）实例3-2　将数据库记录数据全部导入到Excel工作表（ADO，之二）实例3-3　将数据库记录数据全部导入到Excel工作表（ADO，之三）实例3-4　将数据库记录数据全部导入到Excel工作表（DAO，之一）实例3-5　将数据库记录数据全部导入到Excel工作表（DAO，之二）实例3-6　将数据库记录数据全部导入到Excel工作表（QueryTable集合）实例3-7　将数据库的某些字段的记录数据导入到Excel工作表（ADO）实例3-8　将数据库的某些字段记录数据导入到Excel工作表（DAO）实例3-9　查询前面的若干条记录（全部字段）（TOP）实例3-10　查询前面的若干条记录（部分字段）（TOP）实例3-11　查询不重复的字段记录（DISTINCT）实例3-12　利用Like运算符进行模糊查询实例3-13　查询某一区间内的记录（BETWEEN）实例3-14　查询存在于某个集合里面的记录（IN）实例3-15　将查询结果进行排序（ORDER BY）实例3-16　进行复杂条件的查询（WHERE）实例3-17　利用合计函数进行查询（查询最大值和最小值）实例3-18　利用合计函数进行查询（查询合计值和平均值）实例3-19　将一个查询结果作为查询条件进行查询实例3-20　将查询结果进行分组（GROUP BY）实例3-21　将查询结果进行分组（HAVING）实例3-22　通过计算列进行查询实例3-23　使用IS NULL运算符进行查询实例3-24　使用COUNT函数进行查询实例3-25　使用FIRST函数与LAST函数查询第一条记录和最后一条记录的字段实例3-26　使用Parameters参数动态查询记录（DAO）：指定单个参数实例3-27　使用Parameters参数动态查询记录（DAO）：指定多个参数实例3-28　使用Parameters参数动态查询记录（ADO）：指定单个参数实例3-29　使用Parameters参数动态查询记录（ADO）：指定多个参数实例3-30　使用别名查询数据库实例3-31　将查询结果作为窗体控件的源数据实例3-32　通过窗体控件查询浏览数据库记录实例3-33　多表查询（WHERE连接）实例3-34　多表查询（内连接INNER JOINT）实例3-35　多表查询（左外连接LEFT OUTER JOINT）实例3-36　多表查询（右外连接RIGHT OUTER JOINT）实例3-37　多表查询（子查询WHERE，ANY，SOME）实例3-38　多表查询（子查询EXISTS，NOT　EXISTS）实例3-39　从两个数据表中查询出都存在的记录实例3-40　从两个数据表中查询出只存在于某个数据表的记录实例3-41　将查询结果生成一个数据表实例3-42　将查询结果保存为一个XML文件实例3-43　利用工作表实现记录的分页显示实例3-44　利用窗体实现记录的分页显示第4章　编辑Access数据库数据实例4-1　添加新记录（ADO+AddNew）实例4-2　添加新记录（ADO+SQL）实例4-3　添加新记录（DAO+AddNew）实例4-4　添加新记录（DAO+SQL）实例4-5　添加新记录（Access+SQL）实例4-6　修改更新特定记录（ADO+SQL）实例4-7　修改更新特定记录（DAO+SQL）实例4-8　修改更新特定记录（Access+SQL）实例4-9　修改更新全部记录（ADO+SQL）实例4-10　修改更新全部记录（DAO+SQL）实例4-11　修改更新全部记录（Access+SQL）实例4-12　删除特定记录（ADO+SQL）实例4-13　删除特定记录（DAO+SQL）实例4-14　删除特定记录（Access+SQL）实例4-15　删除全部记录（ADO+SQL）实例4-16　删除全部记录（DAO+SQL）实例4-17　删除全部记录（Access+SQL）实例4-18　通过窗体编辑记录第5章　将Excel工作表数据导入到Access数据库实例5-1　将整个工作表数据都保存为新Access数据库（Access）实例5-2　将工作表的某些区域数据保存为新Access数据库（Access）实例5-3　将工作簿的所有工作表数据分别保存为不同的数据表（Access）实例5-4　将多个工作簿的某个工作表数据汇总为新Access数据库（Access）实例5-5　将多个工作簿的某个工作表数据保存为不同的数据表（Access）实例5-6　将工作表数据保存到已有的Access数据库（循环方式）（ADO）实例5-7　将工作表数据保存到已有的Access数据库（循环方式）（DAO）实例5-8　将工作表数据保存到已有的Access数据库（数组方式）（ADO）实例5-9　将工作表数据保存到已有的Access数据库（数组方式）（DAO）实例5-10　将工作簿的所有工作表数据分别保存为不同的数据表（ADO）实例5-11　将工作簿的所有工作表数据分别保存为不同的数据表（DAO）第6章　操作Access数据表实例6-1　打开数据库和数据表（GetObject函数）实例6-2　打开数据库和数据表（CreateObject函数）实例6-3　删除数据表（ADO）实例6-4　删除数据表（ADOX）实例6-5　删除数据表（DAO+DELETE）实例6-6　删除数据表（DAO+SQL）实例6-7　删除数据表（Access）实例6-8　为数据表增加字段（ADO）实例6-9　为数据表增加字段（ADOX）实例6-10　为数据表增加字段（DAO）实例6-11　为数据表增加字段（Access）实例6-12　删除字段（ADO）实例6-13　删除字段（ADOX）实例6-14　删除字段（DAO）实例6-15　删除字段（Access）实例6-16　改变字段的类型（ADO）实例6-17　改变字段的类型（DAO）实例6-18　改变字段的类型（Access）实例6-19　改变字段的长度（ADO）实例6-20　改变字段的长度（DAO）实例6-21　改变字段的长度（Access）实例6-22　重命名数据表（Access）实例6-23　复制数据表（Access）实例6-24　复制数据表（ADO）实例6-25　复制数据表（DAO）实例6-26　通过窗体维护数据库第7章　操作SQL Server数据库实例7-1　判断SQL Server数据库是否存在（ADO）实例7-2　检查数据表是否存在（ADOX）实例7-3　创建新的SQL Server数据库和数据表（ADO）实例7-4　在已有的SQL Server数据库中创建数据表（ADO）实例7-5　从SQL Server数据库服务器中删除数据库（ADO）实例7-6　从SQL Server数据库中删除数据表（ADO）实例7-7　将SQL Server数据库中的数据导入到Excel工作表（ADO）实例7-8　将SQL Server数据库中的数据导入到Excel工作表（DAO）实例7-9　查询获取SQL Server数据库的数据（ADO）实例7-10　查询获取SQL Server数据库的数据（DAO）实例7-11　将工作表数据导入到SQL Server数据库（ADO）实例7-12　向SQL Server数据库中添加记录的一般方法实例7-13　将SQL Server数据库转换为Access数据库实例7-14　将Access数据库转换为SQL Server数据库第8章　操作FoxPro数据库实例8-1　将FoxPro数据库全部数据导入到Excel工作表实例8-2　查询获取FoxPro数据库数据实例8-3　将Excel工作表数据保存到FoxPro数据库实例8-4　判断FoxPro数据库的字段是否存在实例8-5　获取FoxPro数据库的字段信息第9章　将Excel工作簿当作数据库来操作实例9-1　从工作簿的某个工作表中查询获取数据（ADO）实例9-2　从工作簿的全部工作表中查询获取数据（ADO）实例9-3　利用DAO从工作表中查询数据实例9-4　查询其他工作簿的数据（ADO）实例9-5　获取其他工作簿中的工作表名称清单（ADOX）实例9-6　利用ADO对工作表数据进行多重排序实例9-7　利用ADO按照字符的长度对数据进行排序实例9-8　比较两张表，将两个表中相同的行数据抓取出来实例9-9　比较两张表，将只存在于某个表中的行数据抓取出来实例9-10　删除工作表数据区域内的所有空行第10章　将文本文件当作数据库来操作实例10-1　利用ADO导入文本文件的全部内容实例10-2　利用DAO导入文本文件的全部内容实例10-3　利用ADO导入文本文件的部分内容实例10-4　利用DAO导入文本文件的部分内容实例10-5　利用ADO获取文本文件的行数和列数实例10-6　利用ADO将超过65536行的文本文件数据导入到Excel工作表实例10-7　将工作表全部数据保存为文本文件（SaveAs）实例10-8　将工作表全部数据保存为文本文件（循环）实例10-9　将数据库数据导出为文本文件实例10-10　将文本文件保存为Access数据库（Access）实例10-11　将文本文件保存为Access数据库（ADO+ADOX）第11章　Excel VBA开发数据库管理系统 11.1　固定资产管理系统的总体设计 11.1.1　固定资产管理系统功能模块 11.1.2　固定资产管理系统数据库和数据表的设计 11.1.3　设计系统工作簿 11.1.4　设计系统的自定义菜单 11.1.5　引用对象库 11.2　系统管理模块设计 11.2.1　用户名和密码的保存 11.2.2　“用户登录”窗口结构设计 11.2.3　“用户登录”窗体程序代码设计 11.2.4　“修改用户名”窗体结构设计 11.2.5　“修改用户名”窗体的程序代码设计 11.2.6　“修改密码”窗体结构设计 11.2.7　“修改密码”窗体的程序代码设计 11.3　基础资料管理模块设计 11.4　固定资产日常管理模块设计 11.4.1　固定资产日常管理窗体的结构设计 11.4.2　固定资产日常管理窗体的程序代码设计 11.4.3　“固定资产查询”窗体的结构设计 11.4.4　“固定资产查询窗体”的程序代码设计 11.4.5　固定资产日常管理模块的应用 11.5　报表输出模块设计 11.5.1　固定资产折旧计算方法 11.5.2　生成固定资产卡片子模块的设计 11.5.3　生成统计报表子模块的设计 11.5.4　生成固定资产折旧表子模块的设计 11.5.5　编制折旧费用分配表子模块的设计 11.6　系统菜单转换模块的设计 11.6.1　恢复Excel系统菜单 11.6.2　恢复固定资产管理系统自定义菜单 11.7　为工作簿指定Open和BeforeClose事件 11.7.1　为工作簿指定Open事件 11.7.2　为工作簿指定BeforeClose事件

1，首先要明确删除哪条记录无非还就是SQL语句了，比如对应到特定的某ID上。id = request.form(“id”)sql = “Select * from cnarticle where cn_id=”&idSet rs = Server.CreateObject (“ADODB.Recordset”)rs.Open sql,conn,2,32，很简单的一条语句：删除rs.delete3，最好能在修改之前征求确认删除[removed]<!–function suredo(src,q){var ret;ret = confirm(q);if(re

经典SQL语句大全下列语句部分是Mssql语句，不可以在access中使用。　　SQL分类：　　DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE) 　　DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT) 　　DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK) 　　首先,简要介绍基础语句：　　1、说明：创建数据库 CREATE DATABASE database-name 　　2、说明：删除数据库 drop database dbname 　　3、说明：备份sql server 　　--- 创建备份数据的 device USE master EXEC sp_addumpdevice 'disk', 'testBack', 'c:\mssql7backup\MyNwind_1.dat' 　　--- 开始备份 BACKUP DATABASE pubs TO testBack 　　4、说明：创建新表 create table tabname(col1 type1 [not null] [primary key],col2 type2 [not null],..) 　　根据已有的表创建新表： A：create table tab_new like tab_old (使用旧表创建新表) B：create table tab_new as select col1,col2… from tab_old definition only C: select * into table2 from table 　　5、说明：　　删除新表：drop table tabname 　　6、说明：　　增加一个列：Alter table tabname add column col type 　　注：列增加后将不能删除。DB2中列加上后数据类型也不能改变，唯一能改变的是增加varchar类型的长度。　　7、说明：　　添加主键：Alter table tabname add primary key(col) 　　说明：　　删除主键：Alter table tabname drop primary key(col) 　　8、说明：　　创建索引：create [unique] index idxname on tabname(col….) 　　删除索引：drop index idxname 　　注：索引是不可更改的，想更改必须删除重新建。　　9、说明：　　创建视图：create view viewname as select statement 　　删除视图：drop view viewname 10、说明：几个简单的基本的sql语句　　选择：select * from table1 where 范围　　插入：insert into table1(field1,field2) values(value1,value2) 　　删除：delete from table1 where 范围　　更新：update table1 set field1=value1 where 范围　　查找：select * from table1 where field1 like ’%value1%’ ---like的语法很精妙，查资料! 　　排序：select * from table1 order by field1,field2 [desc] 　　总数：select count * as totalcount from table1 　　求和：select sum(field1) as sumvalue from table1 　　平均：select avg(field1) as avgvalue from table1 　　最大：select max(field1) as maxvalue from table1 　　最小：select min(field1) as minvalue from table1 　　11、说明：几个高级查询运算词　　A： UNION 运算符　　UNION 运算符通过组合其他两个结果表（例如 TABLE1 和 TABLE2）并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时（即 UNION ALL），不消除重复行。两种情况下，派生表的每一行不是来自 TABLE1 就是来自 TABLE2。　　B： EXCEPT 运算符　　EXCEPT 运算符通过包括所有在 TABLE1 中但不在 TABLE2 中的行并消除所有重复行而派生出一个结果表。当 ALL 随 EXCEPT 一起使用时 (EXCEPT ALL)，不消除重复行。　　C： INTERSECT 运算符　　INTERSECT 运算符通过只包括 TABLE1 和 TABLE2 中都有的行并消除所有重复行而派生出一个结果表。当 ALL 随 INTERSECT 一起使用时 (INTERSECT ALL)，不消除重复行。　　注：使用运算词的几个查询结果行必须是一致的。　　12、说明：使用外连接　　A、left outer join：　　左外连接（左连接）：结果集几包括连接表的匹配行，也包括左连接表的所有行。 SQL: select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c 　　B：right outer join: 　　右外连接(右连接)：结果集既包括连接表的匹配连接行，也包括右连接表的所有行。　　C：full outer join：　　全外连接：不仅包括符号连接表的匹配行，还包括两个连接表中的所有记录。　　其次，大家来看一些不错的sql语句　　1、说明：复制表(只复制结构,源表名：a 新表名：b) (Access可用) 　　法一：select * into b from a where 11 　　法二：select top 0 * into b from a 　　2、说明：拷贝表(拷贝数据,源表名：a 目标表名：b) (Access可用) insert into b(a, b, c) select d,e,f from b; 　　3、说明：跨数据库之间表的拷贝(具体数据使用绝对路径) (Access可用) insert into b(a, b, c) select d,e,f from b in ‘具体数据库’ where 条件　　例子：..from b in '"&Server.MapPath(".")&"\data.mdb" &"' where.. 　　4、说明：子查询(表名1：a 表名2：b) select a,b,c from a where a IN (select d from b ) 或者: select a,b,c from a where a IN (1,2,3) 　　5、说明：显示文章、提交人和最后回复时间 select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b 6、说明：外连接查询(表名1：a 表名2：b) select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c 　　7、说明：在线视图查询(表名1：a ) select * from (SELECT a,b,c FROM a) T where t.a > 1; 　　8、说明：between的用法,between限制查询数据范围时包括了边界值,not between不包括 select * from table1 where time between time1 and time2 select a,b,c, from table1 where a not between 数值1 and 数值2 　　9、说明：in 的使用方法 select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’) 　　10、说明：两张关联表，删除主表中已经在副表中没有的信息 delete from table1 where not exists ( select * from table2 where table1.field1=table2.field1 ) 　　11、说明：四表联查问题： select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where ..... 　　12、说明：日程安排提前五分钟提醒 SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5 　　13、说明：一条sql 语句搞定数据库分页 select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段　　14、说明：前10条记录 select top 10 * form table1 where 范围　　15、说明：选择在每一组b值相同的数据中对应的a最大的记录的所有信息(类似这样的用法可以用于论坛每月排行榜,每月热销产品分析,按科目成绩排名,等等.) select a,b,c from tablename ta where a=(select max(a) from tablename tb where tb.b=ta.b) 　　16、说明：包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个结果表 (select a from tableA ) except (select a from tableB) except (select a from tableC) 　　17、说明：随机取出10条数据 select top 10 * from tablename order by newid() 　　18、说明：随机选择记录 select newid() 　　19、说明：删除重复记录 Delete from tablename where id not in (select max(id) from tablename group by col1,col2,...) 　　20、说明：列出数据库里所有的表名 select name from sysobjects where type='U' 21、说明：列出表里的所有的 select name from syscolumns where id=object_id('TableName') 　　22、说明：列示type、vender、pcs字段，以type字段排列，case可以方便地实现多重选择，类似select 中的case。 select type,sum(case vender when 'A' then pcs else 0 end),sum(case vender when 'C' then pcs else 0 end),sum(case vender when 'B' then pcs else 0 end) FROM tablename group by type 　　显示结果： type vender pcs 电脑 A 1 电脑 A 1 光盘 B 2 光盘 A 2 手机 B 3 手机 C 3 　　23、说明：初始化表table1 TRUNCATE TABLE table1 　　24、说明：选择从10到15的记录 select top 5 * from (select top 15 * from table order by id asc) table_别名 order by id desc 随机选择数据库记录的方法（使用Randomize函数，通过SQL语句实现）　　对存储在数据库中的数据来说，随机数特性能给出上面的效果，但它们可能太慢了些。你不能要求ASP“找个随机数”然后打印出来。实际上常见的解决方案是建立如下所示的循环： Randomize RNumber = Int(Rnd*499) +1 　 While Not objRec.EOF If objRec("ID") = RNumber THEN ... 这里是执行脚本 ... end if objRec.MoveNext Wend 　　这很容易理解。首先，你取出1到500范围之内的一个随机数（假设500就是数据库内记录的总数）。然后，你遍历每一记录来测试ID 的值、检查其是否匹配RNumber。满足条件的话就执行由THEN 关键字开始的那一块代码。假如你的RNumber 等于495，那么要循环一遍数据库花的时间可就长了。虽然500这个数字看起来大了些，但相比更为稳固的企业解决方案这还是个小型数据库了，后者通常在一个数据库内就包含了成千上万条记录。这时候不就死定了？　　采用SQL，你就可以很快地找出准确的记录并且打开一个只包含该记录的recordset，如下所示： Randomize RNumber = Int(Rnd*499) + 1 　 SQL = "SELECT * FROM Customers WHERE ID = " & RNumber 　 set objRec = ObjConn.Execute(SQL) Response.WriteRNumber & " = " & objRec("ID") & " " & objRec("c_email") 　　不必写出RNumber 和ID，你只需要检查匹配情况即可。只要你对以上代码的工作满意，你自可按需操作“随机”记录。Recordset没有包含其他内容，因此你很快就能找到你需要的记录这样就大大降低了处理时间。再谈随机数　　现在你下定决心要榨干Random 函数的最后一滴油，那么你可能会一次取出多条随机记录或者想采用一定随机范围内的记录。把上面的标准Random 示例扩展一下就可以用SQL应对上面两种情况了。　　为了取出几条随机选择的记录并存放在同一recordset内，你可以存储三个随机数，然后查询数据库获得匹配这些数字的记录：　　SQL = "SELECT * FROM Customers WHERE ID = " & RNumber & " OR ID = " & RNumber2 & " OR ID = " & RNumber3 　　假如你想选出10条记录（也许是每次页面装载时的10条链接的列表），你可以用BETWEEN 或者数学等式选出第一条记录和适当数量的递增记录。这一操作可以通过好几种方式来完成，但是 SELECT 语句只显示一种可能（这里的ID 是自动生成的号码）： SQL = "SELECT * FROM Customers WHERE ID BETWEEN " & RNumber & " AND " & RNumber & "+ 9" 　　注意：以上代码的执行目的不是检查数据库内是否有9条并发记录。　　随机读取若干条记录，测试过 Access语法：SELECT top 10 * From 表名 ORDER BY Rnd(id) Sql server:select top n * from 表名 order by newid() mysql select * From 表名 Order By rand() Limit n 　　Access左连接语法(最近开发要用左连接,Access帮助什么都没有,网上没有Access的SQL说明,只有自己测试, 现在记下以备后查) 　　语法 select table1.fd1,table1,fd2,table2.fd2 From table1 left join table2 on table1.fd1,table2.fd1 where ... 　　使用SQL语句用...代替过长的字符串显示　　语法：　　SQL数据库：select case when len(field)>10 then left(field,10)+'...' else field end as news_name,news_id from tablename 　　Access数据库：SELECT iif(len(field)>2,left(field,2)+'...',field) FROM tablename; 　　Conn.Execute说明　　Execute方法　　该方法用于执行SQL语句。根据SQL语句执行后是否返回记录集，该方法的使用格式分为以下两种：　　1．执行SQL查询语句时，将返回查询得到的记录集。用法为：　　Set 对象变量名=连接对象.Execute("SQL 查询语言") 　　Execute方法调用后，会自动创建记录集对象，并将查询结果存储在该记录对象中，通过Set方法，将记录集赋给指定的对象保存，以后对象变量就代表了该记录集对象。　　2．执行SQL的操作性语言时，没有记录集的返回。此时用法为：　　连接对象.Execute "SQL 操作性语句" [, RecordAffected][, Option] 　　•RecordAffected 为可选项，此出可放置一个变量，SQL语句执行后，所生效的记录数会自动保存到该变量中。通过访问该变量，就可知道SQL语句队多少条记录进行了操作。　　•Option 可选项，该参数的取值通常为adCMDText，它用于告诉ADO，应该将Execute方法之后的第一个字符解释为命令文本。通过指定该参数，可使执行更高效。　　•BeginTrans、RollbackTrans、CommitTrans方法　　这三个方法是连接对象提供的用于事务处理的方法。BeginTrans用于开始一个事物；RollbackTrans用于回滚事务；CommitTrans用于提交所有的事务处理结果，即确认事务的处理。　　事务处理可以将一组操作视为一个整体，只有全部语句都成功执行后，事务处理才算成功；若其中有一个语句执行失败，则整个处理就算失败，并恢复到处里前的状态。　　BeginTrans和CommitTrans用于标记事务的开始和结束，在这两个之间的语句，就是作为事务处理的语句。判断事务处理是否成功，可通过连接对象的Error集合来实现，若Error集合的成员个数不为0，则说明有错误发生，事务处理失败。Error集合中的每一个Error对象，代表一个错误信息。 SQL语句大全精要 2006/10/26 13:46 DELETE语句 DELETE语句：用于创建一个删除查询，可从列在 FROM 子句之中的一个或多个表中删除记录，且该子句满足 WHERE 子句中的条件，可以使用DELETE删除多个记录。语法：DELETE [table.*] FROM table WHERE criteria 语法：DELETE * FROM table WHERE criteria='查询的字' 说明：table参数用于指定从其中删除记录的表的名称。 criteria参数为一个表达式，用于指定哪些记录应该被删除的表达式。可以使用 Execute 方法与一个 DROP 语句从数据库中放弃整个表。不过，若用这种方法删除表，将会失去表的结构。不同的是当使用 DELETE，只有数据会被删除；表的结构以及表的所有属性仍然保留，例如字段属性及索引。 UPDATE 有关UPDATE，急！！！！！！！！！！！在ORACLE数据库中表 A ( ID ,FIRSTNAME,LASTNAME ) 表 B( ID,LASTNAME) 表 A 中原来ID,FIRSTNAME两个字段的数据是完整的表 B中原来ID,LASTNAME两个字段的数据是完整的现在要把表 B中的LASTNAME字段的相应的数据填入到A表中LASTNAME相应的位置。两个表中的ID字段是相互关联的。先谢谢了!!!! update a set a.lastname=(select b.lastname from b where a.id=b.id) 　　掌握SQL四条最基本的数据操作语句：Insert，Select，Update和Delete。　　练掌握SQL是数据库用户的宝贵财富。在本文中，我们将引导你掌握四条最基本的数据操作语句—SQL的核心功能—来依次介绍比较操作符、选择断言以及三值逻辑。当你完成这些学习后，显然你已经开始算是精通SQL了。　　在我们开始之前，先使用CREATE TABLE语句来创建一个表（如图1所示）。DDL语句对数据库对象如表、列和视进行定义。它们并不对表中的行进行处理，这是因为DDL语句并不处理数据库中实际的数据。这些工作由另一类SQL语句—数据操作语言（DML）语句进行处理。　　SQL中有四种基本的DML操作：INSERT，SELECT，UPDATE和DELETE。由于这是大多数SQL用户经常用到的，我们有必要在此对它们进行一一说明。在图1中我们给出了一个名为EMPLOYEES的表。其中的每一行对应一个特定的雇员记录。请熟悉这张表，我们在后面的例子中将要用到它。

数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章