我是在里面加了个OpenDialog/SaveDialog然后用它象导入一个新的数据库和保存一个数据库,怎么实现啊???? 就像ACCESS那样!谁有源代码发给小弟好吗??????? 最好是ADO用连接实现的!我得谢谢!真的很感谢!!!
解决方案 »
- 无窗口程序如何响应键盘?xp下
- 如何允许输入的值是Backspace
- 刚学delphi,如何尽快掌握delphi的类的属性和方法的具体性质?
- [提问]Delphi调用wordapplication.Documents.Open时奇怪的现象
- 菜鸟问题,马上给分!
- 竞猜 中国队:巴西比分,8:00以后不用来,明天接贴
- 如何实现delphi的彩蛋功能!给代码马上给分,决不食言!
- F1book 读取的问题
- 有事请教,!做个简单的图形软件(类似autocad,但功能比它少的)用什么开发比较合适,delphi行吗?
- 如何对同一目录下,不同子目录中的相同的数据库文件进行操作(能自动的全部进行处理)。
- 简单的问题---告诉在下
- 小问题
//本方法主要面向客户选择目标ACCESS数据库
//取代弹出的ConnectionString的设置对话框
//注:ADOTable和ADOQuery控件的连接字串不同
//著名关心CSDN结贴率爱国人士-实用库Tip No 1 - 2003-9-25
function FileName_DataBasePassWord(FileName:string; DataBasePassWord:string=''):string;
begin
FileName_DataBasePassWord:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source='+
form1.OpenDialog1.FileName+ //数据库文件路径
';Mode=Share Deny None;Extended Properties="";'+
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password='+
DataBasePassWord+ //数据库密码
';Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
end;procedure TForm1.DynamicOpenAdoAccess_BtnClick(Sender: TObject);
begin
form1.OpenDialog1.Filter:='Text files (*.mdb)|*.MDB';
form1.OpenDialog1.DefaultExt:='MDB';
form1.OpenDialog1.InitialDir:=application.GetNamePath;
form1.OpenDialog1.Title:='指定Access数据库Mdb文件的位置';
if form1.OpenDialog1.Execute then
begin
form1.ADOConnection1.LoginPrompt:=false;
//带密码数据库的使用
//form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName,'ghyghost');
//不带密码数据的使用
form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName);
form1.ADOConnection1.Open;
form1.ADOQuery1.open; //ADOQuery1's SQL Properties is 'select * from [tablename]'
end;
end;//﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏
//天天蹬三轮-虽然很累-但很充实
//﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋