查看: 330|回复: 2
请帮我解决一下查询问题
阅读权限20
在线时间 小时
Private Sub CommandButton4_Click()
& & Dim a, brr(), i&, j&, r&
& & With Me.ListBox1
& && &&&.Clear
& && &&&If Not dicClassify.Exists(TextBox7.Text) Then Exit Sub '如果文本框中的值在字典中没有则退出
& && &&&a = Split(dicClassify(TextBox7.Text), &,&) '将文本框中的值在字典中查到的项用“，”分隔为数组
& && &&&ReDim brr(0 To UBound(a), 1 To lc) '重定义二维数组brr
& && &&&For j = 1 To lc
& && && && &brr(0, j) = aData(3, j) '为二维数组brr的第一行（即标题行）赋值
& && &&&Next
& && &&&For i = 4 To UBound(a) '用2个For循环语句为为二维数组brr的其他行（即数据行）赋值
& && && && &r = a(i)
& && && && &For j = 1 To lc
& && && && && & brr(i, j) = aData(r, j)
& && && && &Next
& && &&&Next
& && &&&.List = brr '用二维数组brr为列表框赋值
& & End With
Private Sub UserForm_Initialize()
aData = Sheet2.Range(&a1&).CurrentRegion
& &lc = UBound(aData, 2)
& &With Me.ListBox1
& && & .RowSource = &&
& && & .ColumnCount = lc
& && &&&cw = &&
& && &&&For i = 1 To lc
& && && && &cw = cw & Columns(i).Width * 1.5 & &;&&&'设置每条记录的显示宽度
& && &&&Next
& && &&&.ColumnWidths = cw
& & End With
& & Set dicClassify = CreateObject(&scripting.dictionary&)
& & For i = 2 To UBound(aData)
& && &&&dicClassify(aData(i, 4)) = dicClassify(aData(i, 4)) & &,& & i
file:///C:/Users/CITYBO~1/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png&&贷款营销员工台账明细表&&　单位：元序号机构号网点名称柜员号营销人岗位客户姓名贷款品种担保方式贷款日期到期日期贷款金额客户经理经办柜员运营主管支行行长110685
支行行长张三房产抵押抵押1000000
客户经理张三房产抵押抵押3000000
运营主管张三房产抵押抵押2000000
综合柜员张三房产抵押抵押100000
客户经理李四商铺抵押抵押200000
支行行长王五商产抵押抵押2000000
客户经理李王房产抵押抵押100000
客户经理曾龙商铺抵押抵押300000
客户经理杨七存单质押质押1000000
客户经理杨七存单质押质押300000
客户经理万三房产抵押抵押1000000
客户经理阳阳商铺抵押抵押5000000
客户经理高山百福备用金信用100000
通过D列柜员号查找，数据表头在第三行，数据从第四行开始，改了代码，按查找键只能显示表头，没有数据，输入柜员号，显示为空，能帮我看一下吗？
阅读权限95
在线时间 小时
这样的问题最好是找原作者，修改别人的代码比自己重新写还难................................................
阅读权限20
在线时间 小时
说的也对，就是没有回复
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师([已注销])
(你真让我头疼)
(登峰造極)
第三方登录：后使用快捷导航没有帐号？
只需一步，快速开始
查看: 4589|回复: 32
rs.addnew语句在SQL中不能新增数据,请大家帮忙解决一下
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
刚接触ASP不久，希望各位大侠多指教
做了一个表单提交到这个文件中，具体代码如下:
&!--#include file=&conn.asp&--&
Set rec=Server.CreateObject(&ADODB.Recordset&)
SQL=&SELECT * FROM [book] where note_title='& & request(&note_title&) & &'&
rec.Open sql,conn,3,3
rec.AddNew
rec.Fields(&note_title&)=request(&note_title&)
rec.Fields(&note_page&)=request(&note_page&)
rec.Fields(&note_time&)=request(&note_time&)
rec.Fields(&user_name&)=request(&user_name&)
rec.Fields(&user_qq&)=request(&user_qq&)
rec.Fields(&user_email&)=request(&user_email&)
rec.Fields(&user_page&)=request(&user_page&)
rec.Update
用ACCESS的数据库一切正常，用SQL就不行
UID16026在线时间 小时积分648帖子离线17053 天注册时间
高级会员, 积分 648, 距离下一级还需 352 积分
conn,3,3换成conn,1,3试试。
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
谢谢asmoke的解答，不过还是不行
UID16026在线时间 小时积分648帖子离线17053 天注册时间
高级会员, 积分 648, 距离下一级还需 352 积分
SQL=&SELECT * FROM [book]&
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
原帖由 [i]asmoke 于
15:01 发表
SQL=&SELECT * FROM &
&!--#include file=&conn.asp&--&
Set rec=Server.CreateObject(&ADODB.Recordset&)
SQL=&SELECT * FROM [book]&
rec.Open sql,conn,1,3
rec.AddNew
rec.Fields(&note_title&)=request(&note_title&)
rec.Fields(&note_page&)=request(&note_page&)
rec.Fields(&note_time&)=request(&note_time&)
rec.Fields(&user_name&)=request(&user_name&)
rec.Fields(&user_qq&)=request(&user_qq&)
rec.Fields(&user_email&)=request(&user_email&)
rec.Fields(&user_page&)=request(&user_page&)
rec.Update
还是不行，哎,这些语法没问题吧？能应用于SQL吗？ACCESS可以添加呀
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
用sql语句
&!--#include file=&conn.asp&--&
Set rec=Server.CreateObject(&ADODB.Recordset&)
SQL=&SELECT * FROM [book]&
rec.Open sql,conn,1,3
rec.AddNew
rec.Fields(&note_title&)=request(&note_title&)
rec.Fields(&note_page&)=request(&note_page&)
rec.Fields(&note_time&)=request(&note_time&)
rec.Fields(&user_name&)=request(&user_name&)
rec.Fields(&user_qq&)=request(&user_qq&)
rec.Fields(&user_email&)=request(&user_email&)
rec.Fields(&user_page&)=request(&user_page&)
rec.Update
改成下面的试试，估计会报错，因为没有调过 我也是菜鸟呀
报错的话 你把错误提示帖上来呀。
&!--#include file=&conn.asp&--&
sql=&insert into [book] (note_title,note_page,note_time,user_name,user_qq,user_email,user_page) values (&'&request(&note_title&)&'&,&'&request(&note_page&)&'&,&'&request(&note_time&)&'&,&'&request(&user_name&)&'&,&'&request(&user_qq&)&'&,&'&request(&user_email&)&'&,&'&request(&user_page&)&'&)&
conn.execute(sql)
[[i] 本帖最后由 include 于
15:31 编辑 ]
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
首先感谢include的热心帮助
但是用你的方法还是不行，不会是我的表有问题吧？
我把表导出来
USE [mybook]
/****** 对象:&&Table [dbo].[book]& & 脚本日期: 06/19/:15 ******/
SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
CREATE TABLE [dbo].[book](
& & & & [note_ID] [int] NOT NULL,
& & & & [note_title] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [note_time] [datetime] NULL,
& & & & [note_page] [nvarchar](max) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [user_name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [user_qq] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [user_email] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [user_page] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [user_face] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [re_page] [nvarchar](max) COLLATE Chinese_PRC_CI_AS NULL,
& & & & [re_time] [datetime] NULL
) ON [PRIMARY]
[[i] 本帖最后由 itvan 于
15:34 编辑 ]
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
出错别怨偶呀。
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
将ACCESS直接导进SQL应该不会出啥问题吧？在导入的时候也不见报错呀
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
好象 将access导进SQL 自动编号的id好象 要改一下
导入SQL中id只是int型。好象需要设置一下这个。我学过一点sql server数据库 不过至今一次也没用过
提示什么错误呀 你说出来。
本帖子中包含更多资源
才可以下载或查看，没有帐号？
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
&!--#include file=&conn.asp&--&
打开方式不一样
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
include真是个好人，呵呵，我把标识修改后用Addnew的方法可以使用
用你提供的SQL语法有点小错误:values ('&&request
这个地方'与&写反了
对于SQL我一直没有系统的学过，这些数据类型也不太清楚，下午去书城买本相关的书来充电
再一次感谢!
[[i] 本帖最后由 itvan 于
18:44 编辑 ]
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
呵&&别客气。&&共同进步 我也菜鸟 sql server&&我都没用过。
起码你现在正在用sql server
[[i] 本帖最后由 include 于
16:03 编辑 ]
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
原帖由 [i]itvan 于
15:25 发表
首先感谢include的热心帮助
但是用你的方法还是不行，不会是我的表有问题吧？
我把表导出来
USE [mybook]
/****** 对象:&&Table [dbo].& & 脚本日期: 06/19/:15 ******/
SET ANSI_NULLS O ...
用代码建的表？？、、&&强人。
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
microsoft access是provider=microsoft.jet.oledb.4.0;
microsoft sql是provider=如果有密码还要在DATA 后面加上
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
原帖由 [i]udbyygy 于
16:04 发表
microsoft access是provider=microsoft.jet.oledb.4.0;
microsoft sql是provider=如果有密码还要在DATA 后面加上
我这又不是数据库连接的问题，连接方式我知道
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
我一般都用这个
connstr=&DRIVER={SQL Server};SERVER=UID=PWD=Database=data&
简洁 简单&&好记。
楼主 尽量用sql语句 据说 sql语句执行起来 效率高。
[[i] 本帖最后由 include 于
16:10 编辑 ]
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
不过我个人喜欢放在global.asa里
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
靠，你不会用这个开ACCESS
用DRIVER={MICROSOFT ACCESS DRIVER(*.MDB)}开SQL吧
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
原帖由 [i]udbyygy 于
16:12 发表
靠，你不会用这个开ACCESS
用DRIVER={MICROSOFT ACCESS DRIVER(*.MDB)}开SQL吧
你也把人想得太...
global.asa:
&SCRIPT LANGUAGE=&VBScript& RUNAT=&Server&&
Sub Application_OnStart()
& & & & Application.Lock
& & & & Application(&Connstr&)=&Provider=SQLOLEDB.1;SERVER=(local);UID=PWD=DATABASE=MYSQL&
& & & & Application.UnLock
Sub Session_OnStart()
& & Session.Timeout=60
Sub Session_OnEnd()
Sub Application_OnEnd()
dim conn,connstr& &
on error resume&&next& &
Set conn=Server.CreateObject(&ADODB.CONNECTION&)& &
conn.open Application(&Connstr&)&&
conn.open connstr& &
[[i] 本帖最后由 itvan 于
16:16 编辑 ]
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
程序不是没问题了吗&&那就行了。
UID305208在线时间 小时积分81帖子离线17053 天注册时间
初级会员, 积分 81, 距离下一级还需 119 积分
对极，省点时候多学几行代码，HOHO
UID131634在线时间 小时积分19213帖子离线17053 天注册时间
测试时，可以一个字段一个字段写入测试。
不要一起都写进入
rec.AddNew
rec.Fields(&note_title&)=request(&note_title&)
rec.Update
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
我发现两本书用ODBC有两个版本，我也不知道了
ASP 就不说了上面有
SQL SERVER 2000
设置CONNECTION对象的CONNECTIONSTRING
CONN.CONNECTIONSTRING=&DRIVER={SQL SERVER};SERVER=NEWWDB;UID=SA;PWD=SA;DATABASE=PUBS&
然后CONN.OPEN就好鸟
谁会谁解释一下两种ASP下的用法
[[i] 本帖最后由 udbyygy 于
16:47 编辑 ]
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
两个都可以 但是我不知道区别。&&望各位达人 来了指点一下区别&&优缺点。
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
原来SQL不是用RECORDSET
SET RS=CONN.EXECUTE(COMMANDTEXT)
..............
RS.CLOSE&&释放RECORDSET对象
[[i] 本帖最后由 udbyygy 于
16:54 编辑 ]
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
没条件用SQL，谁能说一下啊
UID364391在线时间 小时积分266帖子离线17053 天注册时间
中级会员, 积分 266, 距离下一级还需 234 积分
udbyygy你最后这帖 是什么意思？
&!--#include file=&conn.asp&--&
sql=&insert into [book] (note_title,note_page,note_time,user_name,user_qq,user_email,user_page) values (&'&request(&note_title&)&'&,&'&request(&note_page&)&'&,&'&request(&note_time&)&'&,&'&request(&user_name&)&'&,&'&request(&user_qq&)&'&,&'&request(&user_email&)&'&,&'&request(&user_page&)&'&)&
conn.execute(sql)
你不觉得这样 代码很简洁吗？
一个sql语句 然后执行一下，更容易理解吧。
[[i] 本帖最后由 include 于
17:04 编辑 ]
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
SET RS=CONN.EXECUTE(COMMANDTEXT)
你在百度搜这句话不就知道鸟
UID364980在线时间 小时积分9108帖子离线17053 天注册时间
COMMANDTEXT=&SELECT* FROM...............&
SET RS=CONN.EXECUTE(COMMANDTEXT)得到RECORDSET的集合
Powered by苹果/安卓/wp
积分 31, 距离下一级还需 14 积分
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡下一级可获得
道具: 显身卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
开心签到天数: 3 天连续签到: 1 天[LV.2]偶尔看看I
1本文是利用PROC MIXed程序来实现多个研究之间生存率的合并分析。主要数据操作过程如下：1、第一步、资料的录入，原始获得的数据见图1（见附件）所示，
我通过自学，将上述资料录入到SAS中。代码如下：data /* 注:输入Rfmr(f=1-4;m=1-3;r=1,2)(两因素+重复)*//*顺序行标f→列标m→重复r*/do i=1 to 10;/*注：定义试验编号，共10个试验*/& & do j=1 to 2 by 1; /*注:定义治疗组，1代表对照组（即control组），2代表实验组（即exp组）步长为1时by 语句可省略*/& && &&&dok=1 to 7; /*注:定义时间点，步长为1时by 语句可省略*/& && && && && & inputsr se @@; /* 注: @@可以使数据连续输入*/& && && && && && && &&&& &&&0.74 0.04 0.580.05 0.52 0.05 0.50 0.05 0.47 0.05 . . 0.43 0.05 0.80 0.04 0.74 0.04 0.66 0.050.62 0.05 0.52 0.05 . . 0.48 0.05. . 0.5 0.05 .. 0.25 0.04 . . . . 0.16 0.04 . . 0.67 0.05 0.45 0.05 . . . . 0.37 0.050.77 0.04 . .0.52 0.05 . . 0.29 0.05 . . . . 0.80 0.04 . . 0.53 0.05 . . 0.40 0.05 . . . .. . 0.51 0.05. . . . . . . . 0.09 0.03 . . 0.68 0.05 . . . . . . . . 0.31 0.05. . 0.63 0.05. . 0.45 0.05 . . . . . .&&. . . . . . .. . . . . . .. . 0.57 0.05. . . . . . . . 0.23 0.04 . . 0.78 0.04 . . 0.52 0.05 . . . . 0.42 0.05. . . . . . .. . . . . . . 0.88 0.04 0.58 0.05 0.43 0.05 0.28 0.05 0.19 0.04 . . . .. . 0.69 0.05. . . . . . . . 0.23 0.04 . . 0.78 0.04 . . . . . . . . 0.47 0.05. . 0.68 0.05. . . . . . . . . . . . . . . . . . . . . . 0.42 0.05. . . . . . .. . . 0.19 0.04 . . . . . . . . . . . . 0.47 0.05 . .; /*可以看到输入数据时与表格形式一致*/run; /*在结果窗口输出*/ 第二步是作图，作图要求如下1、首先按实验组和对照组分开画图，实验组为图片1，对照组为图片2；2、然后所有实验组中，同一个试验中不同时点的生存率以时间点为横坐标，生存率为纵坐标，作图。这步的代码我不懂，请帮忙编程。 第三步：利用上述资料进行meta分析。这个分析我已经通过作者获得SAS程序，可是我看不懂代码，请帮忙看一下代码，并帮忙解释代码的意义。SAS见附件survival_macro.sas。 第四步：由于我没有使用survival_macro.sas进行运算，所以我不知道论文中的Finger2和finger3是不是由survival_macro.sas获得的，如果不是，那么这个图要通过什么代码实现。
另外一组数据录入如下： data /* 注:输入Rfmr(f=1-4;m=1-3;r=1,2)(两因素+重复)*//*顺序行标f→列标m→重复r*/do i=1 to 14;/*注：定义试验编号*/& & do j=1 to 2 by 1; /*注:定义治疗组，步长为1时by 语句可省略*/& && &&&dok=1 to 5; /*注:定义时间点，步长为1时by 语句可省略*/& && && && && & inputsr se @@; /* 注: @@可以使数据连续输入*/& && && && && && && &&&& &&&49 12 46
12 40 12& && && && && &54 8 25 823 7 23 7 23 755 10 50 1036&&9 . . . .& && && && && && &&&40 8 23 7 23 7 23 7&&.&&.54 10 47
13 . .& && && && && &&&54 9 42 828 8 28 8 .&&.70 23 70
23&&. .& && && && && & 48 17 48 17 17 13&&. .&&. .54 4 46 5 426&&. . . .& && && && && && && & 40 5 21 4 16 4 16 4 . .54&&2 43 3 40 3 39 3 .&&.& && && && && && &&&50 4 32 4 24 4 18 4 . .59 8 49 9 479 47 9 47 9& && && && && && &&&. . . . .. . . . .61 8 53 8 538 53 8 53 8& && && && && && &&&. . . . .. . . . .. . . . . .. . . .& && && && && && && && & 60 9 48 932 9 32 9 32 9. . . . . .. . . .& && && && && && && && &44 5&&26 4 17 5 16 4 .&&.. . . . . .. . . .& && && && && && && && &50 3 33 326 3 22 3 19 3. . . . . .. . . .& && && && && && && && &62 3 38 329 3 24 3 22 3. . . . . .. . . .& && && && && && && && &50 10 24 8 16 7 12 6 . .. . . . . .. . . .& && && && && && && && &76 7 53 853 8 50 8 50 8; /*可以看到输入数据时与表格形式一致*/run; /*在结果窗口输出*/
支持楼主：、
购买后，论坛将奖励 10 元论坛资金给楼主，以表示您对TA发好贴的支持
载入中......
22:12:48 上传
22:12:45 上传
22:12:43 上传
无限扩大经管职场人脉圈！每天抽选50位免费名额，现在就扫
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
京ICP证090565号
京公网安备号
论坛法律顾问：王进律师