如题。
解决方案 »
- 求助!在EXCEL中同一料件只取个品名四项内容,多余项次自动删除。编程方法!50分!
- 请问如何构造和发送一个http包
- ActiveReport的问题,解决立即送分!!!!
- [高难度]如何捕获IE浏览器的事件,如在IE里单击下载,选定文字等。
- vb一条select语句超过256个以上字符会被截掉,有什么办法解决
- 在EXCEL中用VBA 怎么才能自动增加列
- 在vb中能否改变inputbox函数所弹出对话框的样子
- 还有一个问题
- 监控打印机端口问题!
- ************ 阿甘大哥及熟悉API的大哥请进 ***************
- datagrid控件如何提示保存?
- ■■■■数据库程序,下载看看,欢迎提意见
rs.open "select * from student where 學號='aaa'"
if not rs.eof then msgbox "已經存在"
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "..........."strStudentNo='00001'
rs.open "select 1 from student where 学号='"& strStudentNo &"'"
if not rs.eof then msgbox "学号" & strStudentNo &" 已经存在"
ado记录集变量名rsrs.filter = "sid = " & studentId '设置记录集过滤条件
if rs.bof and rs.eof then '不存在
'具体代码
end if
rs.filter = "" '恢复记录集
rs.find("字段 = '数值'")
if not rs.eof then
存在
end if
2,用Filter
rs.filter("字段 = '数值'")
if not rs.eof then
存在
end if
'存在
else
'不存在
end if
if not rs.eof then
if rs(0) =0 then
else endif
endif