class does not support automation or does not support expected interface 錯誤

[dan1121]

If bPAccess Then
strSQL = "select appr_status,BATCH_NO,REF_NO,ITEM_NO,ITEM_DESCE,oms_itemno,ITEM_GRP,MODEL_NO,CUST_PN, REV, " & _
"MANU_NAME,MANU_PN,PROCUR,SPEC_PROCU,UOM,NET_W,NET_UNIT,CUST_CODE,Safe_Mat,mold_code, " & _
"material_type,factory_code,item1,item2,item3,item4,item5,item6,item7,item8 ,i_date,by_user,export_fg, conrohs = case itemmstr.rohs when 1 then 'ROHSR0' when 2 then 'ROHSR1' when 3 then 'ROHSR2' when 4 then 'ROHSRE' else '' end,suggest_itemno,batchmgt from itemmstr where rtrim(ltrim(appr_status))='P' order by ref_no"

Else
strSQL = "select appr_status,BATCH_NO,REF_NO,ITEM_NO,ITEM_DESCE,oms_itemno,ITEM_GRP,MODEL_NO,CUST_PN, REV, " & _
"MANU_NAME,MANU_PN,PROCUR,SPEC_PROCU,UOM,NET_W,NET_UNIT,CUST_CODE,Safe_Mat,mold_code, " & _
"material_type,factory_code,item1,item2,item3,item4,item5,item6,item7,item8 ,i_date,by_user,export_fg, conrohs = case itemmstr.rohs when 1 then 'ROHSR0' when 2 then 'ROHSR1' when 3 then 'ROHSR2' when 4 then 'ROHSRE' else '' end,suggest_itemno,batchmgt from itemmstr where left(batch_no, " & i & ")='" & strPUser & "' and rtrim(ltrim(appr_status)) <> 'A' order by ref_no ,item_no "

End If


rs.Open strSQL, cn, adOpenStatic, adLockReadOnly

Set DBGrid1.DataSource = rs


运行时提示 Set DBGrid1.DataSource = rs 出现标题错误！
了解的棒棒忙谢谢！！！

[饮水需思源]

安装mdac2.8mdactyp.exe试试

[dan1121]

一定要装这个吗 ？ 有链接地址下载吗 ？找了下好像不大好找！

[of123]

DBGrid 不支持 ADO，换 DataGrid 就好。

或者换用 DAO 的 recordset.

[clear_zero]

DBGrid 不支持 ADO，换 DataGrid 就好。

或者换用 DAO 的 recordset.

[dan1121]

谢谢！已经解决！

[xuruiyi]

5楼，请问你是怎么解决的啊？请指教，谢谢

[灵易联盟]

同问~~~痛哭ing....