access代码自动连接数据库(连接access数据库vba代码)

1在窗口创建adodc控件，datagrid控件 2adodc的属性里，设置 a连接数据库，可使用字符串方式microsoft jet 351 ole db，access文件 b记录源，cmdtext，满足条件的sql语句3设置datagrid的属性cdatasourse设置。

apppath可获取到你正在运行的程序的路径，能存放你程序的路径，那他下面也就可以再存你的数据库你可以在这目录下再新一个文件夹存数据库rs1Open sql， cn 其中cn是连接对象，rs1是记录集，sql是查询语句 你都。

通过数据对象会数据控件连接ACCESS数据库基于ADODC控件和DATAGRID控件的灵活应用具体做法新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件然后在FORM1窗体中添加ADODC控件和DATAGRID。

如图所示对于几种连接Access数据库的方式，基本上都是基于JDBCODBC方式的，当然也有纯JDBC驱动的方式这里我暂时就不说了对于这几种方式，除了取得连接之处不同外，其他的代码都是一样的所以这里先写出取得连接的几。

如果您是ACCESS数据库这是最简单的一种数据库，它通常都是随着数据库源码可以放在一起的，只需要知道FTP地址账户与密码就可以连接利用FTP上传工具上传即可上传工具小编在下方资料参考处提供软件下载链接连接后，在服务。

ConnectionquotConnOpen quotDSN=AccessDSNquot 如果Access数据库设有密码，可以使用以下代码连接数据库lt Dim Conn Set Conn=ServerCreateObjectquotADODBConnectionquotConnOpen quotDSN=AccessDSNuid=adminpwd=quot。

#39=== 必须引用ADO25库方可运行 === #39VB数据库编程的模块，演示如何用ADO连接Access数据库，以及 SQL 查询语言的运用#39引用ADO酷，可以将ADO孔件拖到窗体上再删除就可以了 #39=== Public Function SetConnStrByVal。

strSQL = quotselect 字段1，字段2 from 表名称quot #39定义SQL查询命令字符串 cnOpen strCn #39与数据库建立连接，如果成功，返回连接对象cn rsOpen strSQL， cn #39执行strSQL所含的SQL命令，结果保存在rs记录集对象中 i =。

做一个“connasp”文件，每次连接数据库时候都调用这个文件即可 server_v2orserver_v1=quotquotorserver_v1=quotquotthen responseCharset=quotutf8quotresponsewritequotquotresponseend endif endsub。