关于ADO连接ACCSEE的问题（分不够再加－－不灌水就给分）

Question

谁有这方面的实例或者推荐写的比较全的教程或eBOOK什么的，回帖也可以，
分不够还加～

Answer 1

connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+db_name+'; Persist Security  Info=False;Jet OLEDB:Database Password=1234';

Answer 2

如何用ADO连接accsee数据库：
首先放置一个ADOConnection控件ADOConnection1；
然后双击该控件，在弹出窗口中选择build..按钮；
在弹出的“数据连接属性”框中的“提供程序”页选择并双击：“Microsoft Jet 4.0 OLE DB Provider”到连接页；
选择或输入数据库名称，测试一下就OK了；
如果有密码，就选择“所有”页，双击：Jet OLEDB:Database Password，在属性值中输入你的密码。
LoginPrompt设为false,就不会弹出密码框了。然后放置一个ADOQuery1，将Connection 设为ADOConnection1；
在SQL属性上点三个点的小按钮，输入：select * from 表名;再放一个DataSource1：
Dataset属性设为ADOQuery1；再放一个DBGrid1：
DataSource属性设为DataSource1；选择ADOQuery1，将Active设为True;DBGrid1中是不是显示了数据。（完，给分）更多事例见：http://www.kaer.cn/default.aspx

Answer 3

连的时候把loginpromit 设为false防止登陆框出现

Answer 4

连的时候把loginpromit 设为false防止登陆框出现

Answer 5

我的源代码：Data1.adoConnection1.loginprompt:=false;
Data1.adoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Jet OLEDB:Database Password="";Data Source=.\setup.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path=""';
Data1.adoConnection1.Open;Data1.adotable1.Connection :=data1.ADOConnection1;
Data1.adotable1.tablename:='czy';
Data1.adotable1.Open;

Answer 6

谢谢大家，ADO我没用过，不过好像听说不用在SQL Explorer中设置，不知道是不是这样，
我在SQL Explorer设置完后连接总是提示我用户名和密码，可是我没设啊，我用的是ACCSEE
要是在难道是“ADMIN”？

Answer 7

SQL Explorer是配置BDE的。。

Answer 8

jpyc(九品御厨) 说的不错，我喜欢。

Answer 9

jpyc(九品御厨) 
讲得比较完全,支持

Answer 10

解决ADO连接带密码的ACCESS数据库问题
　　1，新建Project。
　　2，在FORM中放入ADOConnection,ADOQuery,DataSource,Datagrid控件。
　　3，双击ADOConnection控件，然后点击Build...按钮，
在“提供者”页中选择“Microsoft Jet 4.0 OLE DB 　　Provider”，
然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件名，
这时如果点“测试连接”按钮时，出现“初始化提供者时发生错误，
测试连接失败，密码无效”的错误提示。 
　　4，这时点“所有”页，然后双击“Jet OLEDB:Database Password”，
出现对话框，添入密码后，
选择“连接”页中的“测试连接”按钮，出现“测试连接成功”的对话框。
把ADOConnection控件的LoginPromtp设为false.
　　5，设置连接完成。
你试试，这样应该就可以连接上Access数据库了。建议用ADO而不用ODBC

Answer 11

使用ado对象吧 可以直接连接也可以建立数据源，数据的可操作性好 用控件不好控制的 
如：
  Dim CN As ADODB.Connection
   Dim rst As ADODB.Recordset
   Set CN = New ADODB.Connection
   Set rst = New ADODB.Recordset
   CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist  Security Info=False;Initial Catalog=cygl;Data Source=DRAGON"   CN.Open
   Set rst = CN.Execute("sql语句")

Answer 12

楼上的Vb的东西怎么拿到Delphi中了呢?

Answer 13

myboor(菜菜菜鸟) ： Spqk005(舍甫琴柯) 谢谢支持，要说就说全嘛。

Answer 14

非常感谢，大家我先回去研究一下，我要结帐了，HO～～有问题我在密大家
特别鸣谢jpyc(九品御厨) ，xyue(小月)，feirui(飞锐)