社区
数据库相关
帖子详情
用TAdoDataSet如何使用单字匹配符过滤数据,就像是Filter:='MyField like ''MyVal_%''' 一样,但好像不行,它不能把_当作一个单字匹配符
Anota
2003-10-17 10:32:06
咋办?
...全文
77
5
打赏
收藏
用TAdoDataSet如何使用单字匹配符过滤数据,就像是Filter:='MyField like ''MyVal_%''' 一样,但好像不行,它不能把_当作一个单字匹配符
咋办?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Erice
2003-10-20
打赏
举报
回复
Filter:='MyField >='+''''+trim(values)+''''+chr(0)+' and myfield<='+''''+trim(values)+''''+chr(255);
Anota
2003-10-20
打赏
举报
回复
gz,
盼有解决之道
用sql有不便之处
newnewworm
2003-10-18
打赏
举报
回复
还是使用SQL语句吧
一定可以解决 你的问题!
Anota
2003-10-18
打赏
举报
回复
gz
Anota
2003-10-17
打赏
举报
回复
up
Intraweb三层框架第2版
基于Intraweb的三层框架,前台
数据
存取
使用
T
ADO
dataset
,
数据
编码
使用
SuperObject。第2版做了如下改进: 1.启用Intraweb的Session; 2.Response改用压缩转送; 4.改进
ADO
与XML转换算法,
使用
XPath定位Schama。 下面是新的
ADO
ToXML.Pas函数: type TSQLVendor = (svMSSQL, svAccess, svOracle); function RecordsetToXML(const ARecordset:
ADO
Int._Recordset; const AChangesOnly: Boolean = False; const aIncludeSchema: Boolean = True): WideString; function ExtractXMLSchema(const AXML: WideString): WideString; function ExtractXMLData(const AXML: WideString): WideString; function XMLToRecordset(const AXML: WideString; const AXMLSchema: WideString = ''):
ADO
Int._Recordset; function XMLChangesToSQLCmd(const AXMLChanges, ATableName, AKeyFlds: WideString; const AXMLSchema: WideString = ''; const ASQLVendor: TSQLVendor = svMSSQL): WideString;
Intraweb+SuperObject+IdHTTP实现三层构架
在目前流行的三层构架RemObjects、kmbMW、RealThinClient中RealThinClient以轻量、简单博得不少Delphi
使用
者的青睐。这里我向大家演示的框架比RealThinClient更轻量,更简单。这就是利用Intraweb作为中间层,Indy HTTP作为客户端,SuperObject作为
数据
编码格式实现三层构架。这一框架将B/S结构与C/S结构处理逻辑统一在一套源代码中,用同一台服务器既提供网页服务也通过应用服务。为实现这一目标,该框架的关键技术是如何在
Dataset
与XML间相互转换,这里发布的压缩文件中包含T
ADO
Dataset
与XML相互转换的源代码: /
gwjPack v1.5 For Delphi
{******************************************************************************} { gwjPack v1.5 For Delphi } { (C)Copyright 2007-2016 高文杰 } { ------------------------------------ } { } { 本开发包是开源的自由软件,您可以任意修改和重新发布这一程序。 } { } { 如果您有任何修改或者建议请发一份副本给我,谢谢 } { } { 作者姓名:高文杰 } { 电子邮件:46140262@QQ.com } { } {******************************************************************************} ================================================================================ 1. 许可协议 ================================================================================ gwjPack 开发包以开放源码 (Open Source) 的形式发布,您可以任意修改和重新发布 这一程序。 ================================================================================ 2. 测试包内容 ================================================================================ 代码包中包含以下几个目录: 1、Examples 演示程序目录,包含开发人员为代码编写的演示程序和源码。 2、Source 开发包源代码目录,所有的 gwjPack 源码放于该目录下。 --gwjDateTimePicker.pas 解决系统自带的DateTimePicker文本框
不能
为空的问题; --gwjDBGrid.pas 继承至DBGird; 1.多表头 2.支持鼠标滚动 3.Boolean行
数据
可以用 checkbox显示 4.可以设置选中
数据
的颜色 5.可以设置MoveByRows来滚轮每次滚动的行数 6.点击标题头可以排序(暂时只支持TCustom
ADO
DataSet
说明: T
ADO
DataSet
T
ADO
Query T
ADO
Table T
ADO
StoredProc 都是 TCustom
ADO
DataSet
类型 --gwjDropListGrid.pas 继承至StringGird,支持下拉列表; ================================================================================ 3. 安装
使用
================================================================================ 用户需要在 IDE 中打开 Source目录下的包文件,再在包文件窗口中进行编译安装。 点击 Delphi 的 Tools 菜单下的 Environment Options,进入设置对话框,点击 Library 页面中的 Library Path 项右边的按钮,将开发包 Source目录下各个子目录分别加入到搜索路 径中。 4.更新日志 v1.5 gwjDBGrid 点击标题头可以排序(暂时只支持TCustom
ADO
DataSet
说明: T
ADO
DataSet
T
ADO
Query T
ADO
Table T
ADO
StoredProc 都是 TCustom
ADO
DataSet
类型 v1.4 gwjDBGrid 点击标题头可以排序(暂时只支持T
ADO
Query) v1.3 gwjDateTimePicker 修改IsNum事件 D2009及以上版本用 CharInSet 代替 In v1.2 gwjDateTimePicker 加入 Exit事件 判断日期格式是否正确 并格式化为 yyyy-mm-dd v1.1 加入 gwjDBGrid.pas; gwjDropListGrid.pas 两个控件 v1.0 加入 gwjDateTimePicker.pas
采用RealThinClient+UniDAC实现三层框架演示
采用RealThinClient+UniDAC实现三层框架演示 前台演示同步与异步两种调用方式,后台演示通过T
Dataset
变更
数据
库与直接执行SQL命令变更
数据
库两种方式。 为此特意设计
一个
TRtc
DataSet
Changes Helper Class用于生成特定后台
数据
库SQL语句,对
数据
变更实现完全控制。 TRtc
DataSet
ChangesHelper = class helper for TRtc
DataSet
Changes public function MSSQLGetActionSQL(const ATableName: RtcWideString; const AKey
Field
s: RtcWideString = ''): RtcWideString; end; 与RemObjects与kbmMW相比,RealThinClient是
一个
真正轻量级的三层平台,通讯底层基于Winsock,不需要Indy等三方控件,简单、可靠、易用。如果后台要
使用
dbGo(T
Ado
Connection/T
Ado
Dataset
),将这个演示稍作修改既能实现。本例中前台
使用
rtcMem
Dataset
, 也可
使用
T
Ado
Dataset
或TkbmMemTable作为前台
数据
库。
使用
XE2+RealThinClient6.04的朋友,需要修改rtcDefs.inc文件激活FORCE_ANSI_STRING,才能支持中文。 本人原创劣作,放到csdn.net上,下载收2分,欢迎拍砖。
不用三方控件读excel源码
本资源无任何三方控件,无须安装excel,所
使用
控件自己下载去看 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, shlobj,ShellAPI, Menus, StdCtrls, DB,
ADO
DB, FileCtrl, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; FileListBox1: TFileListBox; DirectoryListBox1: TDirectoryListBox; DriveComboBox1: TDriveComboBox; con1: T
ADO
Connection;
ADO
Query1: T
ADO
Query; DasFind: T
ADO
DataSet
; DataSource5: TDataSource; ComboBox1: TComboBox; PopupMenu1: TPopupMenu; N1: TMenuItem; Button1: TButton; Edit1: TEdit; ComboBox2: TComboBox; DataSource1: TDataSource; PopupMenu2: TPopupMenu; N2: TMenuItem; N3: TMenuItem; Button2: TButton;
ADO
Connection1: T
ADO
Connection; procedure FileListBox1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure setdbgridwidth; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ComboBox1Change(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; ...
数据库相关
2,497
社区成员
88,445
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章