我需要用ClientDataSet操作Access,需要哪几个步骤

wangwei244157887 2014-04-09 05:25:31
类似于Adoquery访问Access ,我该需要哪几个步骤,麻烦哪位讲一下步骤
在网上看了一下,都是对本地文件的操作,没有对Access的操作,看的一头雾水了,或者谁传给小例子,谢谢
我自己瞎捣腾了一下,是通过Adotable作为中间件来操作,利用Assign data local,但是老是报错
...全文
115 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
LoveInCoding 2014-04-13
  • 打赏
  • 举报
回复
楼主看看,我一般都是按这种模式来操作的,通过SQL调用Access

insert into CardData(OriginalData,CardMachineID,CardDate,CardID,EmpNo,CardTime,YYMMDD)

SELECT (cast(Isnull(A.SensorID,1) as varchar)+'_'+right('000000'+cast(B.Badgenumber as varchar),6)+'_'+convert(varchar(50),A.CheckTime,120)) as OriginalData,
cast(Isnull(A.SenSorID,1) as varchar) as CardMachineID,convert(varchar(10),A.CheckTime,120) as CardDate,right('000000'+cast(B.Badgenumber as varchar),6) as CardID,C.EmpNo as EmpNo,
left(convert(varchar(50),A.CheckTime,108),5) as CardTime,convert( varchar(10),A.CheckTime,120) as YYMMDD
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="F:\MyCLIENTS\Att2008\att2000.mdb";User ID=Admin;Password=')...checkInOut A left outer join 
(select UserID,Badgenumber from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="F:\MyCLIENTS\Att2008\att2000.mdb";User ID=Admin;Password=')...UserInfo) B on A.UserID=B.UserID
left outer join Employee C on B.Badgenumber=cast(C.CardID as int)
where C.EmpNo is not null  and 
(cast(Isnull(A.SensorID,1) as varchar)+'_'+right('000000'+cast(B.Badgenumber as varchar),6)+'_'+convert(varchar(50),A.CheckTime,120))
not in(select OriginalData from CardData)
and convert( varchar(10),A.CheckTime,120)=@YYMMDD

2,497

社区成员

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

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