• 全部

怎么给sql语句断句啊？

lx8888_2006 2010-11-07 03:52:04
往数据库里添加数据，代码如下：


procedure Thzxx.BitBtn1Click(Sender: TObject);

begin

  Try

    with ADOQuery1 do

    begin

      Close;

      SQL.Clear;

      SQL.Add('Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,:bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,:bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,:bnc,:bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,:bqb,:bqc,:bra,:brb,:brc,:brd,:c')');

      Parameters.ParamByName('a').Value := Trim(Edit16.Text);

      Parameters.ParamByName('aa').Value := Trim(Edit1.Text);

      Parameters.ParamByName('ab').Value := Trim(ComboBox1.Text);

      Parameters.ParamByName('ac').Value := Trim(Edit2.Text);

      Parameters.ParamByName('ad').Value := Trim(Edit3.Text);

      Parameters.ParamByName('ae').Value := Trim(Edit4.Text);

      Parameters.ParamByName('af').Value := Trim(Edit5.Text);

      Parameters.ParamByName('ag').Value := Trim(Edit6.Text);

      Parameters.ParamByName('ah').Value := Trim(Edit7.Text);

      Parameters.ParamByName('ai').Value := Trim(ComboBox2.Text);

      Parameters.ParamByName('aj').Value := Trunc(Datetimepicker1.date);

      Parameters.ParamByName('ba').Value := Trim(ComboBox3.Text);

      Parameters.ParamByName('bb').Value := Trim(ComboBox4.Text);

      Parameters.ParamByName('bca').Value := Trim(ComboBox5.Text);

      Parameters.ParamByName('bcb').Value := Trim(ComboBox6.Text);

      Parameters.ParamByName('bda').Value := Trim(ComboBox7.Text);

      Parameters.ParamByName('bdb').Value := Trim(Edit8.Text);

      Parameters.ParamByName('be').Value := Trim(Edit9.Text);

      Parameters.ParamByName('bf').Value := Trim(Edit10.Text);

      Parameters.ParamByName('bg').Value := Trim(Edit11.Text);

      Parameters.ParamByName('bha').Value := Trim(ComboBox8.Text);

      Parameters.ParamByName('bhb').Value := Trim(ComboBox9.Text);

      Parameters.ParamByName('bhc').Value := Trim(ComboBox10.Text);

      Parameters.ParamByName('bhd').Value := Trim(Edit12.Text);

      Parameters.ParamByName('bia').Value := Trim(ComboBox12.Text);

      Parameters.ParamByName('bib').Value := Trim(Edit13.Text);

      Parameters.ParamByName('bic').Value := Trim(ComboBox14.Text);

      Parameters.ParamByName('bid').Value := Trim(Edit14.Text);

      Parameters.ParamByName('bja').Value := Trim(ComboBox16.Text);

      Parameters.ParamByName('bjb').Value := Trim(ComboBox17.Text);

      Parameters.ParamByName('bk').Value := Trim(ComboBox18.Text);

      Parameters.ParamByName('bl').Value := Trim(ComboBox19.Text);

      Parameters.ParamByName('bm').Value := Trim(ComboBox20.Text);

      Parameters.ParamByName('bna').Value := Trim(ComboBox21.Text);

      Parameters.ParamByName('bnb').Value := Trim(ComboBox22.Text);

      Parameters.ParamByName('bnc').Value := Trim(ComboBox23.Text);

      Parameters.ParamByName('bnd').Value := Trim(Edit15.Text);

      Parameters.ParamByName('boa').Value := Trim(ComboBox28.Text);

      Parameters.ParamByName('bob').Value := Trim(ComboBox27.Text);

      Parameters.ParamByName('boc').Value := Trim(ComboBox26.Text);

      Parameters.ParamByName('bod').Value := Trim(ComboBox25.Text);

      Parameters.ParamByName('bpa').Value := Trim(ComboBox30.Text);

      Parameters.ParamByName('bpb').Value := Trim(ComboBox31.Text);

      Parameters.ParamByName('bpc').Value := Trim(ComboBox29.Text);

      Parameters.ParamByName('bqa').Value := Trim(ComboBox33.Text);

      Parameters.ParamByName('bpb').Value := Trim(ComboBox34.Text);

      Parameters.ParamByName('bpc').Value := Trim(ComboBox32.Text);

      Parameters.ParamByName('bra').Value := Trim(ComboBox35.Text);

      Parameters.ParamByName('bpb').Value := Trim(ComboBox36.Text);

      Parameters.ParamByName('bpc').Value := Trim(ComboBox37.Text);

      Parameters.ParamByName('bpd').Value := Trim(ComboBox38.Text);

      ExecSQL;

    end;

    Application.MessageBox('添加成功。','提示',64);

  Except

    Application.MessageBox('系统出错。','提示',64);

    Close;

  end;

end;



SQL.Add('Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,:bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,:bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,:bnc,:bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,:bqb,:bqc,:bra,:brb,:brc,:brd,:c')');

这句太长了，超过255字节，请问怎么断开一下好呢？
...全文
204 点赞 收藏 16
写回复
16 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
randee_luo 2010-11-09
注意下类型方面。。
回复 赞
taste品味 2010-11-09
VAR
temp :string;
begin
temp :='Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,:bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,:bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,';
temp:=temp+':bnc,:bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,:bqb,:bqc,:bra,:brb,:brc,:brd,:c')'
SQL.Add(temp)
end;
 回复 赞
东南西北风 2010-11-09
ＬＺ，你可以设断点，将ＳＱＬ语句复制出来，到ＳＱＬ　ＳＥＲＶＥＲ里面试一下，这样一个就会知道那个字段出错，无论是字段名称，还是字段类型都会有相应的提示。
 回复 赞
kye_jufei 2010-11-08
1.用sql.add進行分隔；
2.檢查日期和時間字段部分的傳值。。。
 回复 赞
haitao 2010-11-08
“应用程序在当前操作中使用了错误类型的值”是什么时候报的？
是 设参数时，还是执行sql时？
它没有说【哪个字段】的值类型不对吗？
 回复 赞
cgwr 2010-11-08
同意xftyyyyb的意见，这多字段，找错误浪费的时间可能很久
 回复 赞
Versus1008 2010-11-08
你直接用数据绑定的控件多好……
比如edit 换成dbedit
放几个按钮 新增 编辑 删除 保存 等
执行相应的操作 ADOQuery1.Append ADOQuery1.Edit ADOQuery1.Delete ADOQuery1.Post
这不比你这么插入方便多了
 回复 赞
TikYang 2010-11-07
前面说过，对于如此多的字段，最好的办法用强类型，这样在更新的时间就不会出现问题，而且很容易判断是那个字段赋值出错，你出现的错误在这两个方面找，1、字符串长度超过数据库字段长度；2、那个日期类型是否传进去的格式正确
 回复 赞
lx8888_2006 2010-11-07
[Quote=引用 4 楼 sz_haitao 的回复:]

这样不行吗？
Delphi(Pascal) code
SQL.Add('Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,');
SQL.Add(':bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,');
SQL.Add(':bia,:bib,:bic……
[/Quote]


现在行了，倒又有一个问题出来，说“应用程序在当前操作中使用了错误类型的值”，我把SQL数据表脚本附上，各位再帮我看看：


USE [implant]

GO

/****** 对象:  Table [dbo].[Pat_inf]    脚本日期: 11/07/2010 19:53:47 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[Pat_inf](

	[病历号] [int] NOT NULL,

	[姓名] [varchar](20) NOT NULL,

	[性别] [char](2) NOT NULL,

	[固定电话] [varchar](20) NOT NULL,

	[移动电话] [char](11) NOT NULL,

	[地址] [varchar](max) NOT NULL,

	[联系人姓名] [varchar](20) NOT NULL,

	[联系人电话] [char](11) NOT NULL,

	[其他联系] [varchar](100) NOT NULL,

	[首诊医师] [varchar](20) NOT NULL,

	[首诊日期] [datetime] NOT NULL,

	[支架术] [varchar](20) NOT NULL,

	[搭桥术] [varchar](20) NOT NULL,

	[是否颌骨骨折] [char](2) NOT NULL,

	[骨折关系] [varchar](6) NULL,

	[其他手术是否] [char](2) NOT NULL,

	[其他手术名称] [varchar](20) NOT NULL,

	[药敏] [char](2) NOT NULL,

	[家族病] [varchar](20) NOT NULL,

	[遗传病] [varchar](20) NOT NULL,

	[放疗是否] [char](2) NOT NULL,

	[放疗时点] [char](2) NULL,

	[放疗时长] [varchar](10) NULL,

	[放疗剂量] [varchar](10) NULL,

	[长期用药是否] [char](2) NOT NULL,

	[用药名称] [varchar](20) NULL,

	[用药时长] [varchar](10) NULL,

	[用药频率] [varchar](20) NULL,

	[夜磨牙是否] [char](2) NOT NULL,

	[夜磨牙频度] [char](4) NULL,

	[偏侧咀嚼] [varchar](4) NOT NULL,

	[口干是否] [char](2) NOT NULL,

	[怀孕是否] [char](2) NOT NULL,

	[吸烟是否] [char](2) NOT NULL,

	[吸烟时长] [varchar](20) NULL,

	[吸烟频率] [varchar](20) NULL,

	[戒烟时长] [varchar](20) NULL,

	[饮酒是否] [char](2) NOT NULL,

	[饮酒时长] [varchar](20) NULL,

	[饮酒频率] [varchar](20) NULL,

	[饮酒种类] [varchar](20) NULL,

	[刷牙规律] [varbinary](6) NOT NULL,

	[刷牙次数] [char](1) NOT NULL,

	[刷牙方法] [varchar](20) NOT NULL,

	[辅助工具是否] [char](2) NOT NULL,

	[辅助工具名称] [varchar](20) NULL,

	[辅助工具频度] [varchar](20) NULL,

	[洁治是否] [char](2) NOT NULL,

	[洁治时长] [char](2) NULL,

	[定期洁治是否] [char](2) NULL,

	[定期洁治周期] [varchar](20) NULL,

	[备注] [varchar](max) NULL

) ON [PRIMARY]



GO

SET ANSI_PADDING OFF
 回复 赞
TikYang 2010-11-07
这样不是太好，还是强类型的好，容易查出错误
 回复 赞
haitao 2010-11-07
这样不行吗？
SQL.Add('Insert Pat_if values(:a,:aa,ab,ac,ad,:ae,:af,:ag,:ah,:ai,:aj,:ba,');

SQL.Add(':bb,:bca,:bcb,:bda,:bdb,:be,:bf,:bg,:bha,:bhb,:bhc,:bhd,');

SQL.Add(':bia,:bib,:bic,:bid,:bja,:bjb,:bk,:bl,:bm,:bna,:bnb,:bnc,');

SQL.Add(':bnd,:boa,:bob,:boc,:bod,:bpa,:bpb,:bpc,:bqa,');

SQL.Add(':bqb,:bqc,:bra,:brb,:brc,:brd,:c')');

 回复 赞
TikYang 2010-11-07
你直接用ADOQuery1 写下 select top 1 {你要更新的字段列表} from Pat_if


要程序中直接导出所有字段,然后
ADOQuery1.active:=true;
ADOQuery1.Append;
......
//举一个例子
ADOQuery1bpd.asstring := Trim(ComboBox38.Text);

.......
ADOQuery1.post;
回复 赞
lx8888_2006 2010-11-07
怎么绑定呢？ 代码又怎么写呢
 回复 赞
TikYang 2010-11-07
用绑定吧,还能检查是否有错
 回复 赞
相关推荐
SQL语句 SQL语句 内容. 1，模式的定义与删除 （1）定义： create schema <模式名> authorization <用户名>; 在创建模式的同时在这个模式定义中进一步创建基本表、视图，定义授权。 create schema <模式名...
php使用mysql预处理语句防止sql注入 简单讲解及代码实现 sql注入是一个非常常见的漏洞，可能会带来严重的后果，sql注入漏洞来自于sql查询语句的拼接，攻击者通过非法的输入改写sql语句的语义，以达到攻击者的目的。 sql注入简单介绍 sql注入漏洞来自于sql查询语句的拼接，...
关于SQL语句中分号的问题 SQL语句要不要加分号？ 在w3cschool中是这样说明的： 某些数据库系统要求在每条 SQL 命令的末端使用分号。在我们的教程中不使用分号。 分号是在数据库系统中分隔每条 SQL 语句的标准方法，这样就可以在对服务器的...
sql语句的各种模糊查询 一般模糊语句如下： SELECT 字段 FROM 表 WHERE 某字段 Like 条件 其中关于条件，SQL提供了四种匹配模式：1、%：表示任意0个或多个字符。可匹配任意类型和长度的字符，有些情况下若是中文，请使用两个...
JAVA 拼接了一个sql 语句，但是最后运行报错——SQL 命令未正确结束 　拼接的时候因为引号里的部分是直接引起来的，所以将这些语句整个拼接起来的时候就会成为一个“没有断句”的sql语句，如下面我的错误 将整句话拼接起来就相当于 select * from BookCatagorywherenamelike ...
基于dba_hist_sqlstat查看sql语句的性能历史 在生产环境中，如果系统已经稳定，调优的空间就会越来越小，但是不代表没有调优的余地，...dba_hist_sqlstat是一个宝库，很多的sql执行统计信息都会在其中，可以基于这个数据字典分析很多的特性，比如查看某条sql语句的
常用sql数据库语言基本语句 目录sql基本使用方法数据操作语句(DML)select查询语句order by 排序语句update更新语句delect 删除语句insert ...sql语句不区分大小写 各条sql语句用";"分号断句 数据操作语句(DML) select查询语句 select 列名 ...
基于dba_hist_sqlstat查看sql语句的性能历史(r4笔记第92天) 在生产环境中，如果系统已经稳定，调优的空间就会越来越小，但是不代表没有调优的余地，可能工作的重心就会更加求稳，sql调优就是一项不间断的工作，很多工作还是需要前瞻的，如果...
新手问题：如何理解sql语句中 "+textBox1.Text+ ，顿时令我十分疑惑，书上也没有标注这么写的原因看来是极其小白的问题，然后在网上搜才发现是自己断句出现了问题。 书中的原句为： string sSQL = "insert into StuInfo values(' " +textBox1.Text+ &...
sql server t-sql脚本转成oracle plsql 将一份SQL SERVER数据库生成的T-SQL脚本，转成ORACLE的PL/SQL，其复杂繁琐程度，远远出乎我的意料。这份SQL SERVER脚本，里面有表，有视图，还有存储过程，以及一些自定义函数。目前，仅勉强将表、视图移植到oracle...
数据库 sql 语句 持续集成 1. sql server management 客户端，只能select * 查询，不能直接看数据 2. ctrl +E 执行本句sql 3. 等号和 like 用法 select * from currency_exchange where isDelete= 0 and CName like '%毛里求斯%' ; select...
sql语句模糊查询单引号问题，及jquery方法扩展,struts2拦截器 在sql语句中使用单引号模糊查询可能报错，例如：查询的单引号与%%两端的单引号匹配了形成断句，从而导致查询失败。所以要将单引号转义，变成两个单引号 '' 就行了。 SELECT * from ft_providers WHERE last_name ...
如何从plsql中复制一张表的所有字段然后粘贴到sql中? 方式一: 1 在plsql中查看描述descripe ... 3 右键copy comma sepurated  4 粘贴到&lt;sql&.../sql&...1 选中表,拖放到sqlwindow中 ...3 在自动打印出的insert语句中复制该表的所有字段然后粘贴到你需要的位置...
完成一次简单的 SQL 注入 先来看几起 SQL 注入的安全事件： Joomla 对象注入漏洞 事件概述:2015年10月29日国外知名CMS(内容管理系统)Joomla,爆出存在SQL注入漏洞,该漏洞影响了 1.5 到 3.4.5 的所有版本,漏洞利用无须登录,...
SpringBoot：项目在启动时如何执行指定sql文件 在SpringBoot项目中，当有在项目启动时先执行指定的sql语句的需求时，可以在resources文件夹下添加需要执行的sql文件，文件中的sql语句可以是DDL（数据定义）脚本或DML（数据操作），DQL（数据查询）脚本，然后在...
DM8_SQL语言（三）达梦数据库数据定义语句二：管理表 表定义语句 用户数据库建立后，就可以定义基表来保存用户数据的结构。DM 数据库的表可以分为 两类，分别为数据库内部表和外部表，数据库内部表由数据库管理系统自行组织管理，而外 部表在数据库的外部组织，是操作...
积累一些SQL 最近在接触学习MySQL、SQL Server相关的，碰到一些SQL的写法，记录一下，积累起来。1. SQL Server中可以使用WITH语法，而且其中可以使用自定义的变量，可以是个常数...
断句啊 有兄弟说，你为啥这么断句呢，看着太痛苦了。 谢谢啊。 是因为，我也看不到自己断句的效果。 我身在gfw之内，访问不到blogspot，但不间断更新，并期待自己能访问的那天到来。 请移步下面的地址，内容相同。 ...
Oracle常见语句操作 1、 进入SQL语句输入环境，命令：sqlplus/nolog 2、 连接Oracle中用户，命令：conn 用户名/密码@net环境名 3、 创建表空间，命令：Create tablespace 表空间名 datafile ‘安装Oracle时oradata下的dbf路径’ size...
导出txt文件到sql 的sql语句 用sql语句将指定的sql 文件导入到sql指定的表中，请问他的具体的方式是如何实现的？ 网上有很多方法，都不成功，要么所有语句都成了一个字段，不知道如何将他们断句断行？ select * FROM OPENROWSET('MICROSOFT.JET....
SpringBoot启动执行sql脚本的三种方式 目录背景配置application.yml文件自定义DataSourceInitializer Bean启动时执行方法，间接执行sql参考资料 背景 一直很好奇web后台如何启动Spark应用程序，查找Api后发现可以使用org.apache.spark.launcher.Spark...
spring boot 项目在启动时执行指定sql文件 当有在项目启动时先执行指定的sql语句的需求时，可以在resources文件夹下添加需要执行的sql文件，文件中的sql语句可以是DDL脚本或DML脚本，然后在配置加入相应的配置即可，如下： spring: datasource: schema: ...
SQL中为什么引出begin...end？？？ 关于begin .....end 我的相关疑问： 1.为什么要引出begin...end ... ：（1）像C语言一样，SQL语言提供了 if ......else ......和while 循环，而对应于这俩个机制，必须提出 一个类似于花括号作用的标识符，用于界
Oracle dba_hist_sqlstat dba_hist_sqlstat是一个宝库，很多的sql执行统计信息都会在其中，可以基于这个数据字典分析很多的特性，比如查看某条sql语句的性能历史，分析执行计划是否稳定等等，这些功能在分析sql语句的时候是相当实用的，毕竟...
DB2性能优化 – 如何通过db2优化工具提升SQL查询效率 我们都知道，应用系统在运行一段时间后，用户报告系统运行会变慢，使他们不能完成所有的工作，完成事务和处理查询花费过长时间，或者应用程序在一天的某些时段变慢，要确定造成问题的本质原因，必须评估系统资源的...
spring boot学习笔记之项目启动时自动执行sql文件 当有在项目启动时先执行指定的sql语句的需求时，可以在resources文件夹下添加需要执行的sql文件，文件中的sql语句可以是DDL脚本或DML脚本，然后在配置加入相应的配置即可，如下： application-dev.properties配置...
SQL Injection的防范总结 简言之，将用户提交过来的参数和SQL关键字一起拼接出来的SQL语句是不安全的，如果采用拼接且服务器侧没有对提交过来的参数进行合法性验证或过滤，导致原有SQL语句的语义被改变，或改变查询条件，或追加语句执行恶意...
朴素贝叶斯算法做文本分类-代码 https://blog.csdn.net/zzZ_CMing/article/details/89478436 朴素贝叶斯算法做文本分类，用的是谭松波酒店语料。
时间线js 根据时间进度 显示节点位置 时间线js 根据时间进度 显示节点位置 可用于项目跟踪等 页面显示 本人所写 有问题找本人
linux网络内核书合集01 本合集是本人搜集的关于linux网络内核的书籍，都是经典，包含：（1）Linux网络体系结构：Linux内核中网络协议的设计与实现.chm （2）Linux网络内核分析与开发.pdf （3）嵌入式Linux网络体系结构设计与TCP／IP协议栈.pdf （4）深入理解LINUX网络技术内幕.pdf 第一本是英文版chm格式，其余三本均为中文版，扫描清晰
发帖
数据库相关
创建于2007-08-02

2454

社区成员

8.8w+

社区内容

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2010-11-07 03:52
社区公告
暂无公告