D
dreamblue
Unregistered / Unconfirmed
GUEST, unregistred user!
ADO+ORACLE的问题:
oracle 下的表结构
CREATE TABLE JSZ (
KEYNO VARCHAR2(18) NOT NULL,
CRQ VARCHAR2(8),
HTH VARCHAR2(14),
SHTH VARCHAR2(10),
FZXM VARCHAR2(8),
HM VARCHAR2(18),
ZZ VARCHAR2(40),
RK NUMBER(12, 2),
RDRK NUMBER(12, 2),
GDMJ NUMBER(12, 2),
ZZMJ NUMBER(12, 2),
PZ VARCHAR2(14),
JSSL NUMBER(12, 2),
ZL1 NUMBER(12, 2),
ZL2 NUMBER(12, 2),
ZL3 NUMBER(12, 2),
YKJE NUMBER(12, 2),
XRD VARCHAR2(10),
KFBH VARCHAR2(14),
YJYNO VARCHAR2(14),
JBR VARCHAR2(8),
COMM VARCHAR2(1),
SENDNO VARCHAR2(3),
PY VARCHAR2(4)
);
delphi 已经打过pack
ado 也已经打过补丁了
而且mdac的版本是2.5
使用adoquery 对其中一个子段进行查询语句如下
Query.Close ;
Query.Parameters.CreateParameter('HTH1',ftString,pdInput,10,unAssigned);
Query.Parameters.CreateParameter('HTH2',ftString,pdInput,10,unAssigned);
Query.Parameters.ParamByName('HTH1').Value:= '21021000000000';
Query.Parameters.ParamByName('HTH2').Value := '21021099999999';
Query.SQL.Clear ;
Query.Sql.Add('SELECT MAX(HTH) FROM JSZ WHERE HTH >:HTH1 AND HTH<:HTH2');
Query.ParamCheck := true ;
Query.Open ;
delphi 提示错误
Project project1.exe raised exception class eOleException whit message'ORA--00937:
NOT A SINGLE-GROUP GROUP FUNCTION ' process stopped . use step or run to continue .
oracle 下的表结构
CREATE TABLE JSZ (
KEYNO VARCHAR2(18) NOT NULL,
CRQ VARCHAR2(8),
HTH VARCHAR2(14),
SHTH VARCHAR2(10),
FZXM VARCHAR2(8),
HM VARCHAR2(18),
ZZ VARCHAR2(40),
RK NUMBER(12, 2),
RDRK NUMBER(12, 2),
GDMJ NUMBER(12, 2),
ZZMJ NUMBER(12, 2),
PZ VARCHAR2(14),
JSSL NUMBER(12, 2),
ZL1 NUMBER(12, 2),
ZL2 NUMBER(12, 2),
ZL3 NUMBER(12, 2),
YKJE NUMBER(12, 2),
XRD VARCHAR2(10),
KFBH VARCHAR2(14),
YJYNO VARCHAR2(14),
JBR VARCHAR2(8),
COMM VARCHAR2(1),
SENDNO VARCHAR2(3),
PY VARCHAR2(4)
);
delphi 已经打过pack
ado 也已经打过补丁了
而且mdac的版本是2.5
使用adoquery 对其中一个子段进行查询语句如下
Query.Close ;
Query.Parameters.CreateParameter('HTH1',ftString,pdInput,10,unAssigned);
Query.Parameters.CreateParameter('HTH2',ftString,pdInput,10,unAssigned);
Query.Parameters.ParamByName('HTH1').Value:= '21021000000000';
Query.Parameters.ParamByName('HTH2').Value := '21021099999999';
Query.SQL.Clear ;
Query.Sql.Add('SELECT MAX(HTH) FROM JSZ WHERE HTH >:HTH1 AND HTH<:HTH2');
Query.ParamCheck := true ;
Query.Open ;
delphi 提示错误
Project project1.exe raised exception class eOleException whit message'ORA--00937:
NOT A SINGLE-GROUP GROUP FUNCTION ' process stopped . use step or run to continue .