VBA连接中连sql,access等数据的方法.docVIP

VBA连接中连接sql，access等数据的方法?收藏 Dim CNN As New ADODB.Connection?定义一个新的ADO对象连接?? Dim RST As New ADODB.Recordset?定义一个ADO对象数据集 Dim Stpath, strSQL As String定义路径、查询变量?? Stpath = ThisWorkbook.Path Application.PathSeparator 学生档案.mdb定义路径及文件名? CNN.Open provider=Microsoft.jet.OLEDB.4.0;data source= Stpath ;Jet OLEDB:Database Password= 123打开链接： provider=Microsoft.jet.OLEDB.4.0是软件提供者为Microsoft.jet.OLEDB.4.0 data source= Stpath 是链接数据源为Stpath Jet OLEDB:Database Password= 123是如果ACCESS数据库设置有保护密码，此句必不可少 If ComboBox3.Value = Then如果性别的框中为空则 strSQL = Select * from 档案 WHERE 籍贯 LIKE ComboBox2.Value 从档案表中查