1. ado操作excel
'sql完整例子Sub testSql()'定义连接对象Dim cnn As New ADODB.ConnectionDim rs As New ADODB.Recordset'定义连接字符串Dim conStr As StringDim sqlstr As String'连接字符串-以下是连接MSSQL数据库conStr = "Provider=sqloledb; " _& "Server=192.168.1.121; " _& "Database=DATABASENAME;Uid=admin;Pwd=admin;"cnn.Open conStr sqlstr = "SELECT * from tablename"rs.Open sqlstr, cnnRange("a2").CopyFromRecordset rsrs.Closecnn.CloseEnd Sub
2. ado怎么用
dao 数据连接对象rdo 远程的ado active X数据库控件odbc 数据源DAO - （Data Access Objects）不像ODBC那样是面向C/C++程序员的，它是微软提供给Visual Basic开发人员的一种简单的数据访问方法，用于操纵Access数据库。
RDO – 在使用DAO访问不同的关系型数据库的时候，Jet引擎不得不在DAO和ODBC之间进行命令的转化，导致了性能的下降，而RDO（Remote Data Objects）的出现就顺理成章了。
ADO – 基于OLE DB之上的ADO更简单、更高级、更适合Visual Basic程序员，同时消除了OLE DB的多种弊端，取而代之是微软技术发展的趋势。 DAO 的设计思想使用一种接口来访问多种类型的数据。它在处理时使用Microsoft.Jet接口的ODBC数据源。
DAO.Jet数据库服务的最独特的方面就是它有自己的查询引擎。但它的最大弱点是由于查询服务运行于本地机上，这就意味着在处理任何远程数据请求之前，必须把所有的数据都传输到本地工作站上，但在低速连接中调用大量数据时这是一个缺点。
另外的一个缺点是它不“认识”Internet，DAO.Jet 服务是为单机和局域网（LAN）开发的。 ADO和DAO的最大区别是ADO使用OLEDB接口而非ODBC作为底层数据供应者的。
依靠OLEDB，ADO也能够支持对非SQL数据存储的纪录集访问，如Email和网络目录服务。
OLEDB提供了比ODBC更多的灵活性和易用性。
OLEDB服务的内部设计使得它能存取标准SQL类型的数据那样容易的访问非SQL数据存储。
OLEDB的一个关键特性是它可以提供对描述性数据存储的处理。
通过提供某种方法来描述数据存储方式，OLEDB可以对以任何格式存储的数据和以任何方法执行的查询提供访问途径。
由于OLEDB并不要求所有数据存储都以表格、行和列的形式出现。所以与ODBC相比，它适用于更多的数据存储类型。
3. ado操作数据库首先要做
1. 新建一个FORM。在控件栏找到ADO一栏，把里面的ADOConnection和ADOQuery两个各建立一个放在FORM里。这两个控件运行后是不可见的，所以你可以随便放在FORM的任何位置。然后再找到DATA ACCESS一栏，把它下属的DataSource控件拖一个放到FORM里。用这三个控件就可以建立连接了。
2.设置相关属性，首先我们设置ADOConnection，这个控件就是与数据连接的控件。双击它弹出配置窗口，单击BUILD..按钮，出现数据库链接属性窗口，ACCESS数据库就选择有个JET4.0什么的那个数据库，如果是本地的数据库可以在下拉列表选择服务器名称或者自己直接输入服务器名称（远程的直接输入IP即可），然后输入登录密码和选择数据库。设置完成点击测试连接，显示成功说明链接正常，单击完成退出设置。
3 ADOQuery这个控件是用SQL操作数据库的，在它的属性栏有个connection属性，点击它的下拉菜单选择刚刚建立好的ADOConnection1，DataSource控件则是存放结果的地方，把它的DataSet属性设置成ADOQuery1。这样我们就可以通过调用ADOQuery来对数据库进行操作了。
4 链接好数据库以后就可以对数据库进行操作了。最常见的用法是建立一个DBGRID，然后把他的connection属性选成我们的Datasource1。如果你想预先设置好SQL语句的话，在ADOQUERY的左边属性栏里的SQL栏，点那个三个点的省略号输入你想查询的SQL语句。然后ACTIVE属性设置成TRUE，这样一运行，在DBGRID里就会显示你的SQL查询结果了。
4. ado操作mysql
测试连接吗？可以用传统的ado.net，或者各种orm，配置好连接字符串就可以了
5. ado操作数据库
ADO控件连接数据库失败时会自动弹出一个对话框来说明连接失败。别你还可以用PrivateSubAdodc1_Error(ByValErrorNumberAsLong,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,fCancelDisplayAsBoolean)Debug.PrintDescriptionEndSub捕获错误内容。
- 相关评论
- 我要评论
-