- 博客(59)
- 收藏
- 关注
转载 SQL SERVER 查询Job作业基本信息及执行情况
3 , 0 , ':' ), 6 , 0 , ':' ) AS '最后运行持续时间'LEFT JOIN [msdb].[dbo].[sysproxies] AS [px]--代理账户信息。,[jstep].[step_uid] AS '作业步骤唯一标识符',[jstep].[step_uid] AS '步骤唯一标识符',[jstep].[step_name] AS '步骤名称',[jstep].[step_name] AS '步骤名称',[step].[step_name] AS '步骤名称'
2022-11-01 14:16:35 3771
原创 sql server查询表的主键名跟主键字段
SELECT CONSTRAINT_NAME, COLUMN_NAME = ( STUFF(( SELECT ',' + COLUMN_NAME FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE WHERE TABLE_NAME = Test.TABLE_NAME ...
2022-02-14 16:37:15 1064
原创 c# json字符串转成datatable
JsonConvert.DeserializeObject(paramList[5].ToString())其中paramList[5].ToString()是一个json字符串。可以直接通过这个方法转成DataTable
2021-04-07 21:16:25 222
翻译 SQL删除重复数据只保留一条
SQL删除重复数据只保留一条用SQL语句,删除掉重复项只保留一条在几千条记录里,存在着些相同的记录,如何能用SQL语句,删除掉重复的呢1、查找表中多余的重复记录,重复记录是根据单个字段(peopleId)来判断select * from peoplewhere peopleId in (select peopleId from people group by peopleId having count(peopleId) > 1)2、删除表中多余的重复记录,重复记录是根据单个字段(peop
2020-11-01 00:57:39 6433 3
翻译 Delphi 如何GET/POST 调用HTTP请求
一、GET 请求procedure GetDemo;var IdHttp : TIdHTTP; Url : string;//请求地址 ResponseStream : TStringStream; //返回信息 ResponseStr : string;begin //创建IDHTTP控件 IdHttp := TIdHTTP.Create(nil); //TStringStream对象用于保存响应信息 ResponseStream := TStringStream....
2020-09-07 15:17:47 2428
翻译 C# Process.Start()方法详解
https://blog.csdn.net/chen_zw/article/details/7896264
2020-07-25 17:09:30 198
原创 SQL SERVER列信息转换成字符串信息显示
通过函数STUFF转换例子写法如下:SELECT STUFF((SELECT ';'+SPDM FROM SHANGPIN where SPDM in ('545454','BZSP01','HSP02','HSP05') for xml path('')),1,1,'')
2020-04-11 10:32:34 390
原创 SQL SERVER 存储过程调用时更新自身数据时(脚本例子)
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_ICACZNPH_CKDDPH_PH]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[P_ICACZNPH_CKDDPH_PH]GOCREATE procedu...
2020-03-24 10:54:33 207
原创 删除表数据触发器记录删除的数据
create trigger trigger_SDPHDon SDPHDafter deleteasdeclare @DJBH varchar(20)--从删除表里面获取出来这个删除的数据select @DJBH=DJBH from deletedbegin --delete SDPHD_DELETE where DJBH=@DJBH insert into SDP...
2020-02-14 11:42:24 1469
转载 sql 的阻塞查询(2008版本的)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30...
2019-06-04 21:47:46 509
转载 Delphi中copy函数和pos函数
copy(a,b,c);a:就是copy源,就是一个字符串,表示你将要从a里copy一些东西,b:从a中的第b位开始copy(包含第b位),c:copy从第b位开始后的c个字符,exp:m:=‘the fellowship of the ring’s:=copy(m,2,2); ...
2019-05-07 14:12:06 467
翻译 sql server对数据进行先进先出
--> 测试数据:[m]if object_id('[m]') is not null drop table [m]goCreate table m ( ID int not NULL , mCount int not NULL ,mTime datetime not null)INSERT into m(ID,mCount,mTime)SELECT 1,50,'2014-0...
2019-04-25 09:54:27 841
原创 sql 按组分查出一条数据出来
SELECT * FROM ( SELECT ROW_NUMBER() OVER(PARTITION BY DJBH ORDER BY JE_S ) AS CNT,DJBH,KL FROM HTSZDMX2 ) A WHERE CNT=1 这个语句是按单据编号DJBH分组。相同单据编号分成一个组,给他们CNT号。然后就可以查出一条数据出来了...
2019-01-24 14:31:45 166
原创 设置文本框为数字
procedure TfmQTHTD.edtMJ_1KeyPress(Sender: TObject; var Key: Char);begin inherited; if not (Key in ['0'..'9', '.', #08, #13]) then Key:=#0; if Key=#13 then begin key:=#0; selectne...
2019-01-21 10:32:06 450
原创 oracle 查存储过程的内容
SELECT text FROM user_source WHERE NAME = 'Procedure Name' ORDER BY line
2019-01-10 14:47:47 1768
原创 sql server 2012阻塞查询解锁
selectrequest_session_id spid,OBJECT_NAME(resource_associated_entity_id) tableNamefromsys.dm_tran_lockswhereresource_type='OBJECT'--杀死死锁进程kill spid
2018-09-26 13:43:29 516
转载 Delphi INI文件保存与读取
//需要引用IniFilesuses system.IniFiles;//保存INI配置文件procedure TForm1.btnSaveClick(Sender: TObject);var myIniFile: TIniFile; filepath: string;begin filepath := ExtractFilePath(Application.Exen...
2018-09-13 14:54:19 886
原创 delphi Tdxmemdata控件获取TClientDataSet数据集的数据
直接用它自带的方法LoadFromDataSet去获取数据,转换控件dxMemData1.LoadFromDataSet(TClientDataSet);
2018-09-10 17:40:34 890
转载 SQL 重命名表、字段、存储过程名sp_rename
EXEC sp_rename 'CountProce','CountProce1'; ------重命名存储过程名;EXEC sp_rename 'fruits.f_name','f_names','COLUMN';--重命名字段名;EXEC sp_rename 'suppliers','supplier'; -----------重命名表名;...
2018-08-06 11:03:37 1035
原创 sql 列传行
SELECT vpfcode, value = ( STUFF(( SELECT ';' + vMBillID FROM SG_Gatherings WHERE vpfcode = Test.vpfcode FO...
2018-07-13 09:22:00 369
转载 delphi日期函数、日期加减
Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。function IncYear(const AValue: TDateTime;const ANumberOfYears: Integer = 1): TDateTime;// function IncMonth is in SysUtilsfunction IncWeek(const AValue: TDateTime...
2018-05-21 10:11:25 4491
转载 delphi DbGridEh数据进行升序降序排序
//传入升序参数procedure TfmJcDjMxBase.mnuDxMainAscClick(Sender: TObject);begin inherited; GetMainDataSort('1') ;end;//传入降序参数procedure TfmJcDjMxBase.mnuDxMainEescClick(Sender: TObject);begin inherited; G...
2018-05-11 13:32:06 1289
原创 游标格式
DECLARE auth_cur CURSOR FOR SELECT MIBH,SPDM FROM LYRJDMX WHERE DJBH=@DJBH open auth_cur fetch next from auth_cur into @MIBH,@SPDMwhile (@@fetch_status=0) BEGIN fetch next from auth_cur in...
2018-05-07 09:35:54 559
原创 Delphi DBGridEh固定锁定列的写法
例如function GetColFroZenCount:Integer;//计算锁定列 try DBG_Master.FrozenCols := GetColFroZenCount; except DBG_Master.FrozenCols :=0 end;function TFmWDDPH.GetColFroZenCount: Integer;
2018-04-24 12:36:49 1760
原创 delphi Tlientdataset的数据导出来
procedure TFmKhXz.SaveToExcel;varExcelApp,Sheet:Olevariant; rowcnt:integer; bk:TBookMark;begintry bk:=dxSelect.GetBookmark; if dxSelect.IsEmpty then Exit; ExcelApp:=Create
2018-04-19 14:20:46 166
翻译 delphi 界面滚动条受鼠标滚动控制
1、添加控件applicationevents2、在这个空间的message事件添加下列方法procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin //窗体的滚动条响应鼠标滚轮 if Msg.message = WM_MOUSEWHEEL then
2018-03-06 11:26:23 2604
原创 delphi clientdataset判断字段存在是否存在
if dxmx.findfield('BYZD6') begin fm.MePlace.EditValue:=dxMx.fieldByname('BYZD6').Value; strCFWZ:='BYZD6'; end else if dxmx.findfield('CFWZ') begin fm.MePlace.E
2018-02-27 17:34:19 2185
原创 DELPHI SpeedButton多个在一起设置其中只有一个按下其他的down值就是false
首先在一个panel中放上多个speedbutton控件,设置风格可以自己定义。我拖出来后,修改他们的属性parentBiDimode、parentFont、parentShowHint都为false。Transparent也设置为false。这个是保持speedbutton他自己的颜色主要是设置GroupIndex的值是一样的,这里我设置为1。这样就实现了多个speedButto
2017-12-28 10:21:40 1569
原创 sql server 截取字符串写法
SELECT Left(@strSP,CharIndex(',',@strSP)-1)SELECT SubString(@strSP,CharIndex(',',@strSP)+1,Len(@strSP)-CharIndex(',',@strSP))
2017-12-19 10:34:40 533
转载 dBGridEh 合计设置
1、将dBGridEh.FooterRowCount := 12、将DBGridEh.SumList.Active := True;3、将Columns[要求和的字段].Footer.ValueType := vtSum;就行了最后要注意,在FormCloseQuery事件中,一定要将SumList.Active := False,因为在数据集中的数据多了以后,FormCl
2017-11-30 10:22:16 1973
翻译 SQL死锁查询进程关闭
SELECTes.session_id,database_name = DB_NAME(database_id),er.cpu_time,er.reads,er.writes,er.logical_reads,login_name,er.status,blocking_session_id,wait_type,individual_query = SU
2017-11-15 16:34:43 392
翻译 ORACLE 日期字符格式转换
年月日 时分秒to_date(to_char(SYSDATE,'YYYY-MM-DD hh24:mi:ss'),'YYYY-MM-DD hh24:mi:ss')年月日to_date(to_char(SYSDATE,'YYYY-MM-DD'),'YYYY-MM-DD')
2017-11-09 11:46:33 1894
原创 TDbGrideh 画列信息的时候 指定某列是勾选框的写法
procedure TFmExchangeAuditing.InitColumn;vari,j:integer;begin DbGrid1.SumList.Active:=False; DBGrid1.Columns.BeginUpdate; try for i:=0 to dbgrid1.Columns.Count-1 do begin
2017-11-09 10:59:28 880
翻译 在delphi中生成GUID/自动获取临时表名......
什么是 GUID ?全球唯一标识符 (GUID) 是一个字母数字标识符,用于指示产品的唯一性安装。在许多流行软件应用程序(例如 Web 浏览器和媒体播放器)中,都使用 GUID。GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”其中每个 x 是 0-9 或 A-F 范围内的一个十六进制的数字。例如:6F9619FF
2017-11-02 11:57:25 746
原创 ORACLE 查询是否存在某些要处理的数据,然后再去动态执行下面需要执行的动态语句
DECLARE N_CNT NUMBER(1,0); BEGIN v_StrSql2:='SELECT COUNT(1) FROM ' || v_TblName || ' WHERE DJBH='''|| v_DJBH ||''' AND JZ=''1'' '; EXECUTE IMMEDIATE v_strSql2 INTO N_CNT; I
2017-10-25 15:05:35 568
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人