将 Set db1 = New ADODB.Recordset 删掉
加:
dim db1 as new adodb.recordset
试一下
加:
dim db1 as new adodb.recordset
试一下
解决方案 »
- 地图的边界
- 求助,如何手动指定Mschart坐标系
- 200分高难:将现有所有顶级菜单做成一个弹出菜单,内详:
- [求助]:当我在窗体上单击一下鼠标,将产生click事件和Activate事件是吧,那这两个事件过程哪个先执行呢??
- 高分请教,使用inet调用asp页面总是获得不了页面信息,还老是报错,大家帮忙啊!
- 如何处理这样的字符串
- ASP转DLL的小问题
- 如何在运行状态修改TEXTBOX的NAME属性内容
- vb 编写telnet 功能时返回的一些非乱码的字符
- 请问VSFLEXGIRD中可以设置某行某字的颜色吗?
- 请问怎么样把一个text1.text的内容输入完了后,按下回车就会进入系统or相当于按下了确定??
- 一个简单的问题,如何实现文件异地保存!??
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.connectiongstring=""
cn.open
set rs=cn.execute(""select 客户名称,项目编号,项目类别,协议金额,负责部门,主审,参审,实际进点时间,出点时间,进展情况,合计收款 from project where 进展情况 = '已完成'"
")