Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "MSDataShape"cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\acesss\employee.mdb"cn.Open
mysql = " SHAPE { SELECT * FROM DEPT } APPEND ( { SELECT * FROM BASE } AS BASELIST RELATE DEPTID TO DEPTID)"
Set rs = New ADODB.Recordset
rs.Open mysql, cn
执行到这句的时候总提示,无效的SQL语句。
我觉得应该是上面那个 SHAPE APPEND 语句有问题,可又看不出来错在哪里
谢谢!我的两个表结构
BASE:
 cardid(卡号),deptid(部门代号),name(姓名)
  03146          N1               张三
dept:
 deptid(部门代号),deptname(部门简称)
   N1                制一厂