用TAdoDataSet如何使用单字匹配符过滤数据,就像是Filter:='MyField like ''MyVal_%''' 一样,但好像不行,它不能把_当作一个单字匹配符

Anota 2003-10-17 10:32:06
咋办?
...全文
72 5 打赏 收藏 转发到动态 举报
写回复
用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的三层框架，前台数据存取使用TADOdataset，数据编码使用SuperObject。第2版做了如下改进： 1.启用Intraweb的Session； 2.Response改用压缩转送； 4.改进ADO与XML转换算法,使用XPath定位Schama。 下面是新的ADOToXML.Pas函数： type TSQLVendor = (svMSSQL, svAccess, svOracle); function RecordsetToXML(const ARecordset: ADOInt._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 = ''): ADOInt._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间相互转换，这里发布的压缩文件中包含TADODataset与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.点击标题头可以排序（暂时只支持TCustomADODataSet 说明： TADODataSet TADOQuery TADOTable TADOStoredProc 都是 TCustomADODataSet 类型 --gwjDropListGrid.pas 继承至StringGird,支持下拉列表; ================================================================================ 3. 安装使用 ================================================================================ 用户需要在 IDE 中打开 Source目录下的包文件，再在包文件窗口中进行编译安装。 点击 Delphi 的 Tools 菜单下的 Environment Options，进入设置对话框，点击 Library 页面中的 Library Path 项右边的按钮，将开发包 Source目录下各个子目录分别加入到搜索路 径中。 4.更新日志 v1.5 gwjDBGrid 点击标题头可以排序（暂时只支持TCustomADODataSet 说明： TADODataSet TADOQuery TADOTable TADOStoredProc 都是 TCustomADODataSet 类型 v1.4 gwjDBGrid 点击标题头可以排序（暂时只支持TADOQuery） 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实现三层框架演示 前台演示同步与异步两种调用方式，后台演示通过TDataset变更数据库与直接执行SQL命令变更数据库两种方式。 为此特意设计一个TRtcDataSetChanges Helper Class用于生成特定后台数据库SQL语句，对数据变更实现完全控制。 TRtcDataSetChangesHelper = class helper for TRtcDataSetChanges public function MSSQLGetActionSQL(const ATableName: RtcWideString; const AKeyFields: RtcWideString = ''): RtcWideString; end; 与RemObjects与kbmMW相比，RealThinClient是一个真正轻量级的三层平台，通讯底层基于Winsock，不需要Indy等三方控件，简单、可靠、易用。如果后台要使用dbGo（TAdoConnection/TAdoDataset）,将这个演示稍作修改既能实现。本例中前台使用rtcMemDataset, 也可使用TAdoDataset或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, ADODB, FileCtrl, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; FileListBox1: TFileListBox; DirectoryListBox1: TDirectoryListBox; DriveComboBox1: TDriveComboBox; con1: TADOConnection; ADOQuery1: TADOQuery; DasFind: TADODataSet; DataSource5: TDataSource; ComboBox1: TComboBox; PopupMenu1: TPopupMenu; N1: TMenuItem; Button1: TButton; Edit1: TEdit; ComboBox2: TComboBox; DataSource1: TDataSource; PopupMenu2: TPopupMenu; N2: TMenuItem; N3: TMenuItem; Button2: TButton; ADOConnection1: TADOConnection; 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,496

社区成员

88,445

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章