用ado吧动态该变它的ConnnectionString就可以啦.
解决方案 »
- 谁能正确表达出下面语句的含义.
- 请教:如何改变对话框的颜色?
- ListBox里的数据如何能通过鼠标的拖动改变顺序?
- CSDN BUG 最新发现,原来这样可以看到裸体MM
- 请帮忙让stringgrid的每个格交替换颜色~~~~~~~~~~在线等~~~
- delphi中的动态不定长参数的函数如何编写?
- TTable或TQuery问题!!!太极了
- 怎样为DBGRID加上背景图啊?急!!在线等待
- delphi和sql的问题,帮帮我!!!
- Delphi如何实现把应用程序以TrayIcon的形式放在Windows状态栏的右下角?急急急
- 参加borland的研讨会要不要带邀请函去啊,还有发什么礼品啊,谢谢.
- 请问如何在做安装程序时,同时建数据库关同时将一些基本数据信息一同导入。
begin
DS:=ExtractFilePath(Application.ExeName)+'students.mdb';
sStr := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'
+'Data Source='+DS+';Mode=Share Deny None;'
+'Extended Properties="";Locale Identifier=1028;'
+'Persist Security Info=False;Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'
+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;'
+'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