放血急求：怎么用ADO连接ACCESS数据库
需要哪些组件怎么设置，提供一段详细完整的程序。谢谢！
[解决办法]
利用VCL中提供的ADO组件访问Access，很方便。
ADOConnection用来连接数据库
ADODataset(包括ADOTable,ADOQuery等)用来查询数据集
DataSource组件用来设置数据源
DBGrid等数据敏感组件通过DataSouce连接到ADODataset，显示或修改数据库内容。
至于例子，网上太多了吧。
[解决办法]
这有两个带源码的小程序，都是通过ADO访问Access的数据库：
http://www.ccrun.com/page.asp?c=1&s=3
[解决办法]
来晚了,那就顶.
楼主自己做一遍就知道了.以后经常用到这个东西的
[解决办法]
老妖出马，一个顶int（楼下人数）个
[解决办法]
分不少，接一点
[解决办法]
小接点分，谢谢楼主！
[解决办法]
用DBGRID,兄弟
[解决办法]
如果要用STRINGGRID,就必须自己写代码,也不麻烦,两个FOR语句就可以了
[解决办法]
老妖出马，一个顶n个
[解决办法]
DBGRID比较方便.
省得每次打开都要去for
[解决办法]
一个 TADOQuery 就可以连接
ADOQuery1.ConnectionString := ......;
ADOQuery1.SQL.Text := ...SELECT语句...;
ADOQuery1.Open();
[解决办法]
添加一个DataSource
DBGrid有DateSource的设置啊
[解决办法]
结奋
[解决办法]
只是回来看看，牛人们都还在啊！
[解决办法]
ADOConnection用来连接数据库
ADODataset(包括ADOTable,ADOQuery等)用来查询数据集
DataSource组件用来设置数据源
DBGrid等数据敏感组件通过DataSouce连接到ADODataset，显示或修改数据库内容。
[解决办法]
帮顶了
[解决办法]
hzy_Database::hzy_Database(const String& sServer,const String& sUser,const String& sPassword,const String& sDatabase){
//todo:
_conn = new TADOConnection(NULL);
//here should get the config files to load server information
/*
String _connStr = "Provider=SQLOLEDB.1;Password= ";
_connStr += sPassword;
_connStr += ";Persist Security Info=True;User ID= ";
_connStr += sUser;
_connStr += ";Initial Catalog= ";
_connStr += sDatabase;
_connStr += ";Data Source= ";
_connStr += sServer;
*/
//Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\htgl.mdb;Persist Security Info=False
//Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\htgl.mdb;Mode=Share Deny None;Extended Properties= " ";Jet OLEDB:System database= " ";Jet OLEDB:Registry Path= " ";Jet OLEDB:Database Password= " ";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
String _connStr = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source= ";
_connStr = _connStr + sDatabase;
_connStr = _connStr + ";Mode=Share Deny None;Extended Properties= " ";Jet OLEDB:System database= " ";Jet OLEDB:Registry Path= " ";Jet OLEDB:Database Password= " ";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 ";
_conn-> ConnectionString = _connStr;
try{
_conn-> LoginPrompt = false;
_conn-> KeepConnection = true;
_conn-> Connected = true;
_query = new TADOQuery(NULL);
_query-> Connection = _conn;
//now use _query
}
catch(...){
//error
ShowMessage(DatabaseUnConnected);
}
}
参考我的部分代码
[解决办法]
做一次你就会了,很简单的
[解决办法]
==
[解决办法]
顶一下
[解决办法]
最近发现老妖特别勤快阿!
[解决办法]
jfjfjf
jfjfjf
jfjfjf
jfjfjf
jfjfjf
jfjfjfjfjfjfjfjfjf
jfjfjfjfjfjfjfjfjf
jfjfjfjfjfjfjfjfjf
jfjfjfjfjfjfjfjfjf
jfjfjfjf
jfjfjfjf
jfjfjfjf
jfjfjfjfjfjfjfjfjf
jfjfjfjfjfjfjfjfjf
[解决办法]
帮顶
[解决办法]
已有N种答案，我就不多说了
[解决办法]
给你一个参考吧。。这个是我做的CB到ACCESS的连接
ADOConnection1-> Connected=false;
AnsiString DBName;
DBName=ExtractFilePath(Application-> ExeName)+ "Message.mdb ";
ADOConnection1-> ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ' "+DBName+ " ';Persist Security Info=False;Jet OLEDB:Database Password=a1111 ";
ADOConnection1-> Connected=true;
以上代码测试通过。。。也应该很简单明了吧
[解决办法]
有这么多人回答了,你可以用组件手动连接一下,然后再加到程序中就OK了,
[解决办法]
你放入3个控件:ADOConnection1,ADOTable1,DataSource1
连以下就好了.下边是前些日子用过的 你看下哈!!
String db,str1,str2,str3;
db=Edit2-> Text;
str1= "Provider=Microsoft.Jet.OLEDB.4.0; ";
str2= "Data Source= "+db+ "; ";
str3= "Persist Security Info=False; ";
ADOConnection1-> ConnectionString=str1+str2+str3;
ADOConnection1-> LoginPrompt=false;
ADOConnection1-> Connected=true;
String str4;
ADOTable1-> Connection=ADOConnection1;
str4=Edit3-> Text;
ADOTable1-> TableName=str4;
DataSource1-> DataSet=ADOTable1;
[解决办法]
__________jf__________jfjfjf
___________________jfjf
__________jf_____jfjf
__________jf_____jf
__________jf_jfjfjfjfjfjfjfjf
__________jf_____jf
__________jf_____jf
__________jf_____jf
_________jf______jf
___jfjfjf________jf
_jfjfjf__________jf
[解决办法]
问题都被人回了，俺接分
__________jf____________________jfjfjf
_____________________________jfjf
__________jf_______________jfjf
__________jf_______________jf
__________jf___________jfjfjfjfjfjfjfjf
__________jf_______________jf
__________jf_______________jf
__________jf_______________jf
_________jf________________jf
___jfjfjf__________________jf
_jfjfjf____________________jf
[解决办法]
做一个Access的MDB文件.当然得建好表.
新建一工程.放一个ADOTable,DBGrid,DataSource,ADOConnection
先设置ADOConnection.双击它.Build...选Jet4.0 下一步.选择你的MDB文件.测试一下.
再将ADOTable-> Connection连上ADOConnection.
再DataSource-> DataSet 连上ADOTable
DBGrid-> DataSource连上DataSource
然后在ADOTable-> TableName里面选上你刚才设计的表名.
然后双击ADOTable.再add all fields
再把DBGird搞定.然后Open ADOTable
[解决办法]
顶一下！！！！
[解决办法]
妖哥一直是我的偶像……
[解决办法]
一个比一个强汗~
[解决办法]
路过
[解决办法]
String biaoming = "入住单 ";
String con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\源实用英汉词典.mdb;Persist Security Info=False ";
ADOConnection1-> Close();
ADOConnection1-> LoginPrompt = false;
ADOConnection1-> ConnectionString = con;
ADOConnection1-> Open();
ADOQuery1-> Connection = ADOConnection1;
ADOQuery1-> Close();
ADOQuery1-> SQL-> Text = "select * from " + biaoming;
ADOQuery1-> Open();
