sql查询access问题,急。

youhuiyun 2004-02-26 11:39:50
代码:

SQL.Clear;
SQL.text:='select * from [Tsick_fee_pay] where [name1]=text1.text and [name2]=text2.text;
close;
prepared:=false;
prepared:=true;
active:=true;
open;

提示错误:参数没有默认值。例如text1输入aaa,提示错误:参数aaa没有默认值
...全文
36 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
EXCEL里使用SQL的方法(欢乐小爪原创) 用EXCEL的SQL用法,抄来欢乐小爪几篇文章,支持原创,留下小爪印:http://hi.baidu.com/huanhuanxiaozhua/blog EXCEL(VBA)~SQL 经典写法范本汇集(一) 2007-12-10 21:20 编前话:为了更系统的学习sql语句,小爪首次系统的汇集sql 需引用 microsoft activeX Data Objects 2.8 library 1.sql = "select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [参数$B2:K1916]where (大样代码='" & DYDH & "') and (内外框='WKXC')" 2.sql = "select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [参数$B2:K" & CSMaxrow & "] where (大样代码='" & DYDH & "') and (内外框='WKXC')" **************************************************************** A、根据本工作簿的1个表查询求和写法范本 Sub 查询方法一() Set CONN = CreateObject("ADODB.Connection") CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName sql = "select 区域,存货类, sum(代销仓入库数量),sum(代销仓出库数量),sum(日报数量)from [sheet4$a:i] where 区域='" & [b3] & "' and month(日期)='" & Month(Range("F3")) & "' group by 区域,存货类" Sheets("sheet2").[A5].CopyFromRecordset CONN.Execute(sql) CONN.Close: Set CONN = Nothing End Sub ----------------- Sub 查询方法二() Set CONN = CreateObject("ADODB.Connection") CONN.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName sql = "select 区域,存货类, sum(代销仓入库数量),sum(代销仓出库数量),sum(日报数量)from [sheet4$a:i] where 区域='" & [b3] & "' and month(日期)='" & Month(Range("F3")) & "' group by 区域,存货类" Sheets("sheet2").[A5].CopyFromRecordset CONN.Execute(sql) CONN.Close: Set CONN = Nothing End Sub ************************************************************************************************** B、根据本工作簿2个表的不同类别查询求和写法范本 Sub 根据入库表和回款表的区域名和月份分别求存货类发货数量和本月回款数量查询() Set conn = CreateObject("adodb.connection") conn.Open "provider=microsoft.jet.oledb.4.0;" & _ "extended properties=excel 8.0;data source=" & ThisWorkbook.FullName Sheet3.Activate Sql = " select a.存货类,a.fh ,b.hk from (select 存货类,sum(本月发货数量) " _ & " as fh from [入库$] where 存货类 is not null and 区域='" & [b2] _ & "' and month(日期)=" & [d2] & " group by 存货类) as a" _ & " left join (select 存货类,sum(数量) as hk from [回款$] where 存货类" _ & " is not null and 区域='" & [b2] & "' and month(开票日期)=" & [d2] & "" _ & " group by 存货类) as b on a.存货类=b.存货类" Range("a5").CopyFromRecordset conn.Execute(Sql) End Sub ******************************************************************* C、根据本文件夹下其他工作簿1个表区域的区域求和 Sub 在工作表1汇总本文件夹下001工作薄的表1分数列查询汇总() Set conn = CreateObject("ADODB.Connection") conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\001.xls" sql = "select sum(分数) from [sheet1$]" Sheets(1).[a2].CopyFromRecordset conn.Execute(sql) conn.Close: Set conn = Nothing End Sub --------------------- Sub 在工作表1汇总本文件夹下001工作薄的表1A1:A10查询汇总() Set conn = CreateObject("ADODB.Connection") conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.Path & "\001.xls" sql = "select sum(f1) from [sheet1$a1:a10]" Sheets(1).[A5].CopyFromRecordset conn.Execute(sql) conn.Close: Set conn = Nothing End Sub ----------------------- Sub 在工作表1汇总本文件夹下001工作薄的表1分数列A1:A7查询并msgbox表达汇总() Set conn = CreateObject("ADODB.Connection") Set rr = CreateObject("ADODB.recordset") conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\001.xls" sql = "select sum(分数) from [sheet1$a1:a7]" Sheets(1).[A8].CopyFromRecordset conn.Execute(sql) rr.Open sql, conn, 3, 1, 1 MsgBox rr.fields(0) conn.Close: Set conn = Nothing End Sub ****************************************************************************************** D、根据本文件夹下其他工作簿多个表区域的单列区域查询求和 sub 本文件夹下其他工作簿的每个工作簿的第4列 30行查询求和 Dim cn As Object, f$, arr&(1 To 30), i% Application.ScreenUpdating = False Set cn = CreateObject("adodb.connection") f = Dir(ThisWorkbook.Path & "\*.xls") Do While f <> "" If f <> ThisWorkbook.Name Then cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.Path & "\" & f Range("d5").CopyFromRecordset cn.Execute("select f4 from [基表1$a5:d65536]") cn.Close For i = 1 To 30 arr(i) = arr(i) + Range("d" & i + 4) Next i End If f = Dir Loop Range("d5").Resize(UBound(arr), 1) = WorksheetFunction.Transpose(arr) Application.ScreenUpdating = True End Sub ************************************************************************************************** E、根据本文件夹下其他工作簿多个表区域的多列区域查询求和 sub 本文件夹下其他工作簿的每个工作簿的第B\C\D列 25行查询求和 Dim cn As Object, f$, arr&(1 To 25, 1 To 3), i% Application.ScreenUpdating = False Set cn = CreateObject("adodb.connection") f = Dir(ThisWorkbook.Path & "\*.xls") Do While f <> "" If f <> ThisWorkbook.Name Then cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.Path & "\" & f Range("b6").CopyFromRecordset cn.Execute("select f2,f3,f4 from [基表3$a6:e65536]") cn.Close For i = 1 To 25 For j = 1 To 3 arr(i, j) = arr(i, j) + Cells(i + 5, j + 1) Next j Next i End If f = Dir Loop Range("b6").Resize(UBound(arr), 3) = arr Application.ScreenUpdating = True End Sub *********************************************************************************** F、其他相关知识整理 ' 用excel SQL方法 'conn是建立的连接对象,用open打开 ' 通过 CreateObject("ADODB.Connection") 这一句建立了一个数据库连接对象conn ' 在工程中就不再需要引用“Microsot ActiveX Data Objects 2.0 Library“ 对象 '设置对象 conn 为一个新的 ADO 链接实例,也可以用 set conn = New ADODB.Connection。 -------------- ' conn.Close表示关闭conn连接 ' Set conn = Nothing 是把连接对象conn置空,不然你退出了文件,但数据库还没有关闭 conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\001.xls"能把这段含义具体解释一下吗? '这里的dbq的作用? '------------------ 'dsn是缩写,data source name数据库名 是 excel file ' 'dbq 也是缩写,data base query 意思是数据库查询,后接源库文件名 001.xls '--------------------- '代码中长单词怎么记住的? '比如copyfromrecordset可以拆开记忆,copy、from、recordset 这三个单词意思知道吧,就是“复制、从、记录集” '----------------- 'Sql = "select sum(分数) from [sheet1$]"这里加"分数"两字什么作用? ' 'SQL一般结构是select 字段 from 表,意思是从指定的表中查询字段,字段的理解可以是:表 中的列名 ' '分数 是001.xls文件的sheet1第一行A列的字段名,SQL一般以字段来识别每列数据 '------------------- '为什么要用复制的对象引用过来计算呢? ' '因为Sql语句只是对源数据库的字段找到了符合条件的的数据,但不会自动复制到汇总表来,所以需要复制copy ' '注意 这里的 [sheet1$]" ,001文件的数据存放地上sheet1表,应当用方括号并加上$ ' '如果源数据文件001不是excel,而是Access,则引用表时,不需要加方括号,也不要$ '----------------- 还有,这里Execute表示什么作用? '' Execute是执行SQL查询语句的意思 ----------------------------- 如果不要字段也可以,那么在打开语句中加上:hdr=no '这样没有分数字段也可实现 'SQL语句我换了形式,而且加上了hdr=no,即无需字段,而且我在SQL中用了sum(f1),f1表示第一列数据 '[sheet1$a1:a10] "是只求a1:a10区域的和" ********************************************** 编后话: 前面也多次听说了sql,总没有时间,也没有好好认识它 第一次认真系统学习sql语句,汇集了一些代码。 有不同理解的人,欢迎给予小爪评论,小爪只爱excel
绝对可以使用,后台完全破解! 一、在修改文件时,如何才能在用dreamweaver 软件打开时文件是可视化的? 方法: 1、首先打开源文件(这时你会看到:"对不起,你没有执行该操作的权限", 等字样,不要请往下做。): 2、切换到代码视图 3、剪切前面一些代码<!--#includefile="char.inc"--> 将这些代码先保存起来待修改完后再加回来原处, 或者先注释掉这段代码,修改好后恢复即可。 4、切换加窗口视图,这时你发现页面可视,修改起来就方便多了。 5、修改完页面后,将刚才剪切掉的代码<!--#includefile="char.inc"--> 加回原处。OK!可以预览了。 二、如何修改超级用户的用户名与密码 与 登录? 系统默认的前台发文用户是admin 密码admin. 1、登录后可在用户管理里修改密码或者在个人资料里修改密码。 但不可以修改默认前台用户的用户名admin。 2、在超级管理里修改超级管理的用户名与密码,但对应前台发文用户admin不可改 (注:必须与前台发文用户对应否则超级管理员无法登录)。 此网站需要两次登陆,第一次登陆的是前台用户,第二次登录的时候是超级用户,登录了两次才可以进行 系统所有的设置,在修改密码的时候用户管理里面修改的只是第一次登录的密码,如果没有在超级用户里面修改此 用户的密码,第2次登陆了的密码还是原来的,不变。 3、增加超级管理员的方法。 a、先增加前台发文普通用户,再将其设为系统用户 b、在超级管理里增加一个超级管理员,对应前台发文用户为刚增加的前台普通用户名。 4、超级管理员登录方法。 a、先登录普通前台发文用户。 b、再登录对应的超级管理员。 三、如何修改版权信息? 1、后台版本信息修改 wygkcn_SystemSave.asp文件 把下面改成自己需要的信息 if DbType="ACCESS" then version="学校网站管理系统Div+Css商业正式版" end if if DbType="MSSQL" then version="学校网站管理系统Div+Css商业正式版" end if if DbType="MYSQL" then version="学校网站管理系统Div+Css商业正式版" 2、其他页面版权调用的是数据库字段,打开数据库找到wygkcn_System 相关的字段,里面有ver 和copyright 等等版权信息,把里面的信息改成自己需要的即可。 四、如何让首页的图片报道的5个幻灯轮显图片出现? 1、进去后台添加5个新闻,并且在新闻里面插入图片,同时设置此条新闻为推荐。也就是至少5个插入了图片的新闻,并且设置为推荐了,才会调用这些新闻的图片出现在新闻报道里面。 五、为什么我的网站栏目修改没有反应,数据都不能修改,图片不能上传? 1、那是因为你的测试硬盘是ntfs的需要设置写入权限,如果是fat32就不需要,可以直接测试。 解决方法:   (1)检查是否在IIS中对整个网站打开了“写入”权限,而不仅仅是数据库文件。   (2)检查是否在WIN2000的资源管理器中,将网站所在目录对EveryOne用户打开所有权限。具体方法是:打开“我的电脑”----找到网站所在文件夹----在其上点右键----选“属性”-----切换到“安全性”选项卡,在这里给EveryOne用户所有权限/给Internet来宾帐户所有权限。   注意: 如果你的系统是XP,请先点“工具”----“文件夹选项”----“查看”-----去掉“使用简单文件共享”前的勾,确定后,文件夹“属性”对话框中才会有“安全性”这一个选项卡。 (3)在站点文件夹上点右键--->共享和安全--->Web共享(安装IIS后会有此选项卡)--->设置共享位置--->共享文件夹--->设置相应的读写权限--->然后点确定。 注意事项: 1、硬盘为NTFS格式的时候,如果你的数据库没有读写权限,数据库不能更新。 请设置文件所在硬盘的属性->安全属性标签,设置成evryone为完全控制。 如没有看到evryone项, 请添加->搜索->选择evryone确定。 2、windowsXP中硬盘为NTFS显示“安全”选项卡的方法: 打开“我的电脑”选择工具菜的“文件夹选项”。在对话筐中单击“查看” 选项卡去掉使用简单文件共享(推荐) 3、IIS下网站没有写入权限问题(站点设置问题)在windows XP+IIS 环境下ACCESS数据库只有读权限的解决方法: 在站点文件夹上点右键--->共享和安全--->Web共享(安装IIS后会有此选项卡)--->设置共享位置--->共享文件夹--->设置相应的读写权限--->然后点确定。 再试试,该文件夹下的网站及数据库就有读写权限了,该情况目前只在WIN XP下有,win 2003下目前没发现次问题。 六、后台登录地址? 后台登录地址: /login.asp 用户名:wmgov 密 码:wmgov.cn 七、sql怎么设置? 默认是accse的 需要设置sql必须改链接文件 Conn.asp ConnUser.asp 原来的是 'DbType = "MSSQL" '链接MSSQL数据库 'DbType = "MYSQL" '链接MYSQL数据库 DbType = "ACCESS" '链接ACCESS数据库 需要改为 DbType = "MSSQL" '链接MSSQL数据库 'DbType = "MYSQL" '链接MYSQL数据库 'DbType = "ACCESS" '链接ACCESS数据库 用哪个前面就不需要逗号 另外 if DbType="MSSQL" then ConnStr = "driver={SQL Server};server=192.168.1.200;uid=sa;pwd=123456;database=8014" server=192.168.1.200表示数据库的所在电脑ip地址,如果本机就127.0.0.1 uid=sa数据密码 pwd=123456 数据库用户名 ; database=8014 数据库库名,如果不想改这些文件,你在sql2000里面添加数据的时候 就需要把 数据库密码 用户名 数据库名这样设置,否则你设置其他的就必须改这些信息,改为你设置的。 八、菜单导航怎么改? 1、顶部的网上报名,专题报道,图片新闻,网站地图,联系我们都在后台系统配置 网站属性 自定义顶部(TOP)菜单 里面修改 自定义底部(BOTTOM)菜单 可以修改网站底部 专题报道 图片新闻 网站地图 联系我们 社区论坛 等等文字信息。 2、栏目菜单需要打开top.asp文件找到相关div ul li 的css样式写的菜单,改汉字栏目名称,和超级链接地址。不知道栏目的链接 地址,可以再后台此栏目下面发表几个文章,然后打开网站,在文章顶部找到 您的位置 点击此栏目 就可以知道栏目的超级链接地址。 改菜单一定要按照原来的顺序和规则,如果想要调整间距 ,可以打开css文件里面的Wygkcn_Home.css 找到/*导航菜单样式表*/进行 修改。 九、顶部最新推荐,教师专栏,学生专栏,家长专栏怎么改? 打开wygkcnzwb_Daodu.asp 文件改汉字,然后改超级链接,然后在后台改栏目名称,如果你把栏目名称删去了,那么这个调用的id 也就不存在了,需要自己重新调用,(E_Typeid=2 and E_bigclassid=41) 网页里面有类似的参数,代表的是调用一级栏目为2,2级 栏目为41 的文章,如果你需要调用一级栏目为3 ,2级栏目为4就是(E_Typeid=3 and E_bigclassid=4) 改下id数就行了。 十、为什么文章页面顶部现在作者为网域高科? 打开wygkcn_ShowArticle.asp 找到以下代码,因为下面写的是如果作者为空,则显示为网域高科,所以你必须添加文章的时候写上作者, 如果不想写,就把这个代码的网域高科改为自己需要的,每次后台编辑器如果没有写作者会默认赋值为你改的信息。 作者:广州网域高科 |

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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