access数据库恢复的问题,急.

chengzhen2005 2005-05-04 03:23:16
"恢复"按钮在form_main里
var
MyFileName, aa: string;
begin
MyFileName := '';
try
if OpenDialog1.Execute then
begin
MyFileName := OpenDialog1.FileName;
if MyFileName <> '' then
begin
aa := ExtractFilePath(Application.ExeName) + 'zy\zy.mdb';
if CopyFile(Pchar(MyFileName),Pchar(aa), false) then
begin
//ADOConnection1放在form_login中,现在只要加上以下两条语句就会出错,不加就正常.
但是form_main窗体里的DBGrid中的数据却更新不了
//form_login.ADOConnection1.Close;
//form_login.ADOConnection1.Open;

Application.MessageBox('数据恢复成功','提示',Mb_ok + mb_iconinformation);
end;
end;
end;
except
Application.MessageBox('数据恢复失败','提示',Mb_ok + mb_iconError);
end;
end;

愁死,各位高手忙.
...全文
91 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
duanhai 2005-05-04
  • 打赏
  • 举报
回复
既然楼主解决了,那就结分吧,呵呵~~~
chengzhen2005 2005-05-04
  • 打赏
  • 举报
回复
各位,小弟问题已经解决,用相对路径即可,

但必须使用extractfilepath(application.ExeName)进行设置,结贴.
chengzhen2005 2005-05-04
  • 打赏
  • 举报
回复
各位大哥,我找到问题的根源了,数据库连接如果是绝对路径就不会出现任何问题,

但是我需要相对路径呀,怎么办呢?高手期待
chengzhen2005 2005-05-04
  • 打赏
  • 举报
回复
没有释放,只是隐藏了而已.

我测试过,把数据控件全部放在form_main也会报错.
aloelan 2005-05-04
  • 打赏
  • 举报
回复
同意楼上
hatum 2005-05-04
  • 打赏
  • 举报
回复
显示主窗体后 你的登陆窗体被FREE了吧?
你的ADOCONNECTION放在登陆窗体中, 所以也被释放了,
建议把ADOCONNECTION,QUERY, DATASOURCE这些东西全放在数据模块中
绝对可以使用,后台完全破解! 一、在修改文件时,如何才能在用dreamweaver 软件打开时文件是可视化的? 方法: 1、首先打开源文件(这时你会看到:"对不起,你没有执行该操作的权限", 等字样,不要请往下做。): 2、切换到代码视图 3、剪切前面一些代码<!--#includefile="char.inc"--> 将这些代码先保存起来待修改完后再加回来原处, 或者先注释掉这段代码,修改好后恢复即可。 4、切换加窗口视图,这时你发现页面可视,修改起来就方便多了。 5、修改完页面后,将刚才剪切掉的代码<!--#includefile="char.inc"--> 加回原处。OK!可以预览了。 二、如何修改超级用户的用户名与密码 与 登录? 系统默认的前台发文用户是admin 密码admin. 1、登录后可在用户管理里修改密码或者在个人资料里修改密码。 但不可以修改默认前台用户的用户名admin。 2、在超级管理里修改超级管理的用户名与密码,但对应前台发文用户admin不可改 (注:必须与前台发文用户对应否则超级管理员无法登录)。 此网站需要两次登陆,第一次登陆的是前台用户,第二次登录的时候是超级用户,登录了两次才可以进行 系统所有的设置,在修改密码的时候用户管理里面修改的只是第一次登录的密码,如果没有在超级用户里面修改此 用户的密码,第2次登陆了的密码还是原来的,不变。 3、增加超级管理员的方法。 a、先增加前台发文普通用户,再将其设为系统用户 b、在超级管理里增加一个超级管理员,对应前台发文用户为刚增加的前台普通用户名。 4、超级管理员登录方法。 a、先登录普通前台发文用户。 b、再登录对应的超级管理员。 三、如何修改版权信息? 1、后台版本信息修改 wygkcn_SystemSave.asp文件 把下面改成自己需要的信息 if DbType="ACCESS" then version="学校网站管理系统Div+Css商业正式版" end if if DbType="MSSQL" then version="学校网站管理系统Div+Css商业正式版" end if if DbType="MYSQL" then version="学校网站管理系统Div+Css商业正式版" 2、其他页面版权调用的是数据库字段,打开数据库找到wygkcn_System 相关的字段,里面有ver 和copyright 等等版权信息,把里面的信息改成自己需要的即可。 四、如何让首页的图片报道的5个幻灯轮显图片出现? 1、进去后台添加5个新闻,并且在新闻里面插入图片,同时设置此条新闻为推荐。也就是至少5个插入了图片的新闻,并且设置为推荐了,才会调用这些新闻的图片出现在新闻报道里面。 五、为什么我的网站栏目修改没有反应,数据都不能修改,图片不能上传? 1、那是因为你的测试硬盘是ntfs的需要设置写入权限,如果是fat32就不需要,可以直接测试。 解决方法:   (1)检查是否在IIS中对整个网站打开了“写入”权限,而不仅仅是数据库文件。   (2)检查是否在WIN2000的资源管理器中,将网站所在目录对EveryOne用户打开所有权限。具体方法是:打开“我的电脑”----找到网站所在文件夹----在其上点右键----选“属性”-----切换到“安全性”选项卡,在这里给EveryOne用户所有权限/给Internet来宾帐户所有权限。   注意: 如果你的系统是XP,请先点“工具”----“文件夹选项”----“查看”-----去掉“使用简单文件共享”前的勾,确定后,文件夹“属性”对话框中才会有“安全性”这一个选项卡。 (3)在站点文件夹上点右键--->共享和安全--->Web共享(安装IIS后会有此选项卡)--->设置共享位置--->共享文件夹--->设置相应的读写权限--->然后点确定。 注意事项: 1、硬盘为NTFS格式的时候,如果你的数据库没有读写权限,数据库不能更新。 请设置文件所在硬盘的属性->安全属性标签,设置成evryone为完全控制。 如没有看到evryone项, 请添加->搜索->选择evryone确定。 2、windowsXP中硬盘为NTFS显示“安全”选项卡的方法: 打开“我的电脑”选择工具菜的“文件夹选项”。在对话筐中单击“查看” 选项卡去掉使用简单文件共享(推荐) 3、IIS下网站没有写入权限问题(站点设置问题)在windows XP+IIS 环境下ACCESS数据库只有读权限的解决方法: 在站点文件夹上点右键--->共享和安全--->Web共享(安装IIS后会有此选项卡)--->设置共享位置--->共享文件夹--->设置相应的读写权限--->然后点确定。 再试试,该文件夹下的网站及数据库就有读写权限了,该情况目前只在WIN XP下有,win 2003下目前没发现次问题。 六、后台登录地址? 后台登录地址: /login.asp 用户名:wmgov 密 码:wmgov.cn 七、sql怎么设置? 默认是accse的 需要设置sql必须改链接文件 Conn.asp ConnUser.asp 原来的是 'DbType = "MSSQL" '链接MSSQL数据库 'DbType = "MYSQL" '链接MYSQL数据库 DbType = "ACCESS" '链接ACCESS数据库 需要改为 DbType = "MSSQL" '链接MSSQL数据库 'DbType = "MYSQL" '链接MYSQL数据库 'DbType = "ACCESS" '链接ACCESS数据库 用哪个前面就不需要逗号 另外 if DbType="MSSQL" then ConnStr = "driver={SQL Server};server=192.168.1.200;uid=sa;pwd=123456;database=8014" server=192.168.1.200表示数据库的所在电脑ip地址,如果本机就127.0.0.1 uid=sa数据密码 pwd=123456 数据库用户名 ; database=8014 数据库库名,如果不想改这些文件,你在sql2000里面添加数据的时候 就需要把 数据库密码 用户名 数据库名这样设置,否则你设置其他的就必须改这些信息,改为你设置的。 八、菜单导航怎么改? 1、顶部的网上报名,专题报道,图片新闻,网站地图,联系我们都在后台系统配置 网站属性 自定义顶部(TOP)菜单 里面修改 自定义底部(BOTTOM)菜单 可以修改网站底部 专题报道 图片新闻 网站地图 联系我们 社区论坛 等等文字信息。 2、栏目菜单需要打开top.asp文件找到相关div ul li 的css样式写的菜单,改汉字栏目名称,和超级链接地址。不知道栏目的链接 地址,可以再后台此栏目下面发表几个文章,然后打开网站,在文章顶部找到 您的位置 点击此栏目 就可以知道栏目的超级链接地址。 改菜单一定要按照原来的顺序和规则,如果想要调整间距 ,可以打开css文件里面的Wygkcn_Home.css 找到/*导航菜单样式表*/进行 修改。 九、顶部最新推荐,教师专栏,学生专栏,家长专栏怎么改? 打开wygkcnzwb_Daodu.asp 文件改汉字,然后改超级链接,然后在后台改栏目名称,如果你把栏目名称删去了,那么这个调用的id 也就不存在了,需要自己重新调用,(E_Typeid=2 and E_bigclassid=41) 网页里面有类似的参数,代表的是调用一级栏目为2,2级 栏目为41 的文章,如果你需要调用一级栏目为3 ,2级栏目为4就是(E_Typeid=3 and E_bigclassid=4) 改下id数就行了。 十、为什么文章页面顶部现在作者为网域高科? 打开wygkcn_ShowArticle.asp 找到以下代码,因为下面写的是如果作者为空,则显示为网域高科,所以你必须添加文章的时候写上作者, 如果不想写,就把这个代码的网域高科改为自己需要的,每次后台编辑器如果没有写作者会默认赋值为你改的信息。 作者:广州网域高科 |
经典SQL语句大全 下列语句部分是Mssql语句,不可以在access中使用。   SQL分类:   DDL—数据定义语言(CREATE,ALTER,DROP,DECLARE)   DML—数据操纵语言(SELECT,DELETE,UPDATE,INSERT)   DCL—数据控制语言(GRANT,REVOKE,COMMIT,ROLLBACK)   首先,简要介绍基础语句:   1、说明:创建数据库 CREATE DATABASE database-name   2、说明:删除数据库 drop database dbname   3、说明:备份sql server   --- 创建 备份数据的 device USE master EXEC sp_addumpdevice 'disk', 'testBack', 'c:\mssql7backup\MyNwind_1.dat'   --- 开始 备份 BACKUP DATABASE pubs TO testBack   4、说明:创建新表 create table tabname(col1 type1 [not null] [primary key],col2 type2 [not null],..)   根据已有的表创建新表: A:create table tab_new like tab_old (使用旧表创建新表) B:create table tab_new as select col1,col2… from tab_old definition only C: select * into table2 from table   5、说明:   删除新表:drop table tabname   6、说明:   增加一个列:Alter table tabname add column col type   注:列增加后将不能删除。DB2中列加上后数据类型也不能改变,唯一能改变的是增加varchar类型的长度。   7、说明:   添加主键:Alter table tabname add primary key(col)   说明:   删除主键:Alter table tabname drop primary key(col)   8、说明:   创建索引:create [unique] index idxname on tabname(col….)   删除索引:drop index idxname   注:索引是不可更改的,想更改必须删除重新建。   9、说明:   创建视图:create view viewname as select statement   删除视图:drop view viewname 10、说明:几个简单的基本的sql语句   选择:select * from table1 where 范围   插入:insert into table1(field1,field2) values(value1,value2)   删除:delete from table1 where 范围   更新:update table1 set field1=value1 where 范围   查找:select * from table1 where field1 like ’%value1%’ ---like的语法很精妙,查资料!   排序:select * from table1 order by field1,field2 [desc]   总数:select count * as totalcount from table1   求和:select sum(field1) as sumvalue from table1   平均:select avg(field1) as avgvalue from table1   最大:select max(field1) as maxvalue from table1   最小:select min(field1) as minvalue from table1   11、说明:几个高级查询运算词   A: UNION 运算符    UNION 运算符通过组合其他两个结果表(例如 TABLE1 和 TABLE2)并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时(即 UNION ALL),不消除重复行。两种情况下,派生表的每一行不是来自 TABLE1 就是来自 TABLE2。   B: EXCEPT 运算符   EXCEPT 运算符通过包括所有在 TABLE1 中但不在 TABLE2 中的行并消除所有重复行而派生出一个结果表。当 ALL 随 EXCEPT 一起使用时 (EXCEPT ALL),不消除重复行。   C: INTERSECT 运算符   INTERSECT 运算符通过只包括 TABLE1 和 TABLE2 中都有的行并消除所有重复行而派生出一个结果表。当 ALL 随 INTERSECT 一起使用时 (INTERSECT ALL),不消除重复行。   注:使用运算词的几个查询结果行必须是一致的。   12、说明:使用外连接   A、left outer join:   左外连接(左连接):结果集几包括连接表的匹配行,也包括左连接表的所有行。 SQL: select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c   B:right outer join:   右外连接(右连接):结果集既包括连接表的匹配连接行,也包括右连接表的所有行。   C:full outer join:   全外连接:不仅包括符号连接表的匹配行,还包括两个连接表中的所有记录。   其次,大家来看一些不错的sql语句   1、说明:复制表(只复制结构,源表名:a 新表名:b) (Access可用)   法一:select * into b from a where 11   法二:select top 0 * into b from a   2、说明:拷贝表(拷贝数据,源表名:a 目标表名:b) (Access可用) insert into b(a, b, c) select d,e,f from b;   3、说明:跨数据库之间表的拷贝(具体数据使用绝对路径) (Access可用) insert into b(a, b, c) select d,e,f from b in ‘具体数据库’ where 条件   例子:..from b in '"&Server.MapPath(".")&"\data.mdb" &"' where..   4、说明:子查询(表名1:a 表名2:b) select a,b,c from a where a IN (select d from b ) 或者: select a,b,c from a where a IN (1,2,3)   5、说明:显示文章、提交人和最后回复时间 select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b 6、说明:外连接查询(表名1:a 表名2:b) select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c   7、说明:在线视图查询(表名1:a ) select * from (SELECT a,b,c FROM a) T where t.a > 1;   8、说明:between的用法,between限制查询数据范围时包括了边界值,not between不包括 select * from table1 where time between time1 and time2 select a,b,c, from table1 where a not between 数值1 and 数值2   9、说明:in 的使用方法 select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’)   10、说明:两张关联表,删除主表中已经在副表中没有的信息 delete from table1 where not exists ( select * from table2 where table1.field1=table2.field1 )   11、说明:四表联查问题: select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where .....   12、说明:日程安排提前五分钟提醒 SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5   13、说明:一条sql 语句搞定数据库分页 select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段   14、说明:前10条记录 select top 10 * form table1 where 范围   15、说明:选择在每一组b值相同的数据中对应的a最大的记录的所有信息(类似这样的用法可以用于论坛每月排行榜,每月热销产品分析,按科目成绩排名,等等.) select a,b,c from tablename ta where a=(select max(a) from tablename tb where tb.b=ta.b)   16、说明:包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个结果表 (select a from tableA ) except (select a from tableB) except (select a from tableC)   17、说明:随机取出10条数据 select top 10 * from tablename order by newid()   18、说明:随机选择记录 select newid()   19、说明:删除重复记录 Delete from tablename where id not in (select max(id) from tablename group by col1,col2,...)   20、说明:列出数据库里所有的表名 select name from sysobjects where type='U' 21、说明:列出表里的所有的 select name from syscolumns where id=object_id('TableName')   22、说明:列示type、vender、pcs字段,以type字段排列,case可以方便地实现多重选择,类似select 中的case。 select type,sum(case vender when 'A' then pcs else 0 end),sum(case vender when 'C' then pcs else 0 end),sum(case vender when 'B' then pcs else 0 end) FROM tablename group by type   显示结果: type vender pcs 电脑 A 1 电脑 A 1 光盘 B 2 光盘 A 2 手机 B 3 手机 C 3   23、说明:初始化表table1 TRUNCATE TABLE table1   24、说明:选择从10到15的记录 select top 5 * from (select top 15 * from table order by id asc) table_别名 order by id desc 随机选择数据库记录的方法(使用Randomize函数,通过SQL语句实现)   对存储在数据库中的数据来说,随机数特性能给出上面的效果,但它们可能太慢了些。你不能要求ASP“找个随机数”然后打印出来。实际上常见的解决方案是建立如下所示的循环: Randomize RNumber = Int(Rnd*499) +1   While Not objRec.EOF If objRec("ID") = RNumber THEN ... 这里是执行脚本 ... end if objRec.MoveNext Wend    这很容易理解。首先,你取出1到500范围之内的一个随机数(假设500就是数据库内记录的总数)。然后,你遍历每一记录来测试ID 的值、检查其是否匹配RNumber。满足条件的话就执行由THEN 关键字开始的那一块代码。假如你的RNumber 等于495,那么要循环一遍数据库花的时间可就长了。虽然500这个数字看起来大了些,但相比更为稳固的企业解决方案这还是个小型数据库了,后者通常在一 个数据库内就包含了成千上万条记录。这时候不就死定了?   采用SQL,你就可以很快地找出准确的记录并且打开一个只包含该记录的recordset,如下所示: Randomize RNumber = Int(Rnd*499) + 1   SQL = "SELECT * FROM Customers WHERE ID = " & RNumber   set objRec = ObjConn.Execute(SQL) Response.WriteRNumber & " = " & objRec("ID") & " " & objRec("c_email")   不必写出RNumber 和ID,你只需要检查匹配情况即可。只要你对以上代码的工作满意,你自可按需操作“随机”记录。Recordset没有包含其他内容,因此你很快就能找到你需要的记录这样就大大降低了处理时间。 再谈随机数   现在你下定决心要榨干Random 函数的最后一滴油,那么你可能会一次取出多条随机记录或者想采用一定随机范围内的记录。把上面的标准Random 示例扩展一下就可以用SQL应对上面两种情况了。   为了取出几条随机选择的记录并存放在同一recordset内,你可以存储三个随机数,然后查询数据库获得匹配这些数字的记录:   SQL = "SELECT * FROM Customers WHERE ID = " & RNumber & " OR ID = " & RNumber2 & " OR ID = " & RNumber3   假如你想选出10条记录(也许是每次页面装载时的10条链接的列表),你可以用BETWEEN 或者数学等式选出第一条记录和适当数量的递增记录。这一操作可以通过好几种方式来完成,但是 SELECT 语句只显示一种可能(这里的ID 是自动生成的号码): SQL = "SELECT * FROM Customers WHERE ID BETWEEN " & RNumber & " AND " & RNumber & "+ 9"   注意:以上代码的执行目的不是检查数据库内是否有9条并发记录。   随机读取若干条记录,测试过 Access语法:SELECT top 10 * From 表名 ORDER BY Rnd(id) Sql server:select top n * from 表名 order by newid() mysql select * From 表名 Order By rand() Limit n   Access左连接语法(最近开发要用左连接,Access帮助什么都没有,网上没有Access的SQL说明,只有自己测试, 现在记下以备后查)   语法 select table1.fd1,table1,fd2,table2.fd2 From table1 left join table2 on table1.fd1,table2.fd1 where ...   使用SQL语句 用...代替过长的字符串显示   语法:   SQL数据库:select case when len(field)>10 then left(field,10)+'...' else field end as news_name,news_id from tablename   Access数据库:SELECT iif(len(field)>2,left(field,2)+'...',field) FROM tablename;   Conn.Execute说明   Execute方法   该方法用于执行SQL语句。根据SQL语句执行后是否返回记录集,该方法的使用格式分为以下两种:   1.执行SQL查询语句时,将返回查询得到的记录集。用法为:   Set 对象变量名=连接对象.Execute("SQL 查询语言")   Execute方法调用后,会自动创建记录集对象,并将查询结果存储在该记录对象中,通过Set方法,将记录集赋给指定的对象保存,以后对象变量就代表了该记录集对象。   2.执行SQL的操作性语言时,没有记录集的返回。此时用法为:   连接对象.Execute "SQL 操作性语句" [, RecordAffected][, Option]   •RecordAffected 为可选项,此出可放置一个变量,SQL语句执行后,所生效的记录数会自动保存到该变量中。通过访问该变量,就可知道SQL语句队多少条记录进行了操作。   •Option 可选项,该参数的取值通常为adCMDText,它用于告诉ADO,应该将Execute方法之后的第一个字符解释为命令文本。通过指定该参数,可使执行更高效。   •BeginTrans、RollbackTrans、CommitTrans方法   这三个方法是连接对象提供的用于事务处理的方法。BeginTrans用于开始一个事物;RollbackTrans用于回滚事务;CommitTrans用于提交所有的事务处理结果,即确认事务的处理。   事务处理可以将一组操作视为一个整体,只有全部语句都成功执行后,事务处理才算成功;若其中有一个语句执行失败,则整个处理就算失败,并恢复到处里前的状态。    BeginTrans和CommitTrans用于标记事务的开始和结束,在这两个之间的语句,就是作为事务处理的语句。判断事务处理是否成功,可通过 连接对象的Error集合来实现,若Error集合的成员个数不为0,则说明有错误发生,事务处理失败。Error集合中的每一个Error对象,代表一 个错误信息。 SQL语句大全精要 2006/10/26 13:46 DELETE语句 DELETE语句:用于创建一个删除查询,可从列在 FROM 子句之中的一个或多个表中删除记录,且该子句满足 WHERE 子句中的条件,可以使用DELETE删除多个记录。 语法:DELETE [table.*] FROM table WHERE criteria 语法:DELETE * FROM table WHERE criteria='查询的字' 说明:table参数用于指定从其中删除记录的表的名称。 criteria参数为一个表达式,用于指定哪些记录应该被删除的表达式。 可以使用 Execute 方法与一个 DROP 语句从数据库中放弃整个表。不过,若用这种方法删除表,将会失去表的结构。不同的是当使用 DELETE,只有数据会被删除;表的结构以及表的所有属性仍然保留,例如字段属性及索引。 UPDATE 有关UPDATE,!!!!!!!!!!! 在ORACLE数据库中 表 A ( ID ,FIRSTNAME,LASTNAME ) 表 B( ID,LASTNAME) 表 A 中原来ID,FIRSTNAME两个字段的数据是完整的 表 B中原来ID,LASTNAME两个字段的数据是完整的 现在要把表 B中的LASTNAME字段的相应的数据填入到A表中LASTNAME相应的位置。两个表中的ID字段是相互关联的。 先谢谢了!!!! update a set a.lastname=(select b.lastname from b where a.id=b.id)   掌握SQL四条最基本的数据操作语句:Insert,Select,Update和Delete。    练掌握SQL是数据库用户的宝贵财 富。在本文中,我们将引导你掌握四条最基本的数据操作语句—SQL的核心功能—来依次介绍比较操作符、选择断言以及三值逻辑。当你完成这些学习后,显然你已经开始算是精通SQL了。    在我们开始之前,先使用CREATE TABLE语句来创建一个表(如图1所示)。DDL语句对数据库对象如表、列和视进行定义。它们并不对表中的行进行处理,这是因为DDL语句并不处理数据 库中实际的数据。这些工作由另一类SQL语句—数据操作语言(DML)语句进行处理。   SQL中有四种基本的DML操 作:INSERT,SELECT,UPDATE和DELETE。由于这是大多数SQL用户经常用到的,我们有必要在此对它们进行一一说明。在图1中我们给 出了一个名为EMPLOYEES的表。其中的每一行对应一个特定的雇员记录。请熟悉这张表,我们在后面的例子中将要用到它。

2,495

社区成员

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

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