展开全部
不建议用adodc控件,如用的是代码贴下你得记录源与连接代码,如果是在属性设置的,表的字段等没设好,没有这个表或者没有设置好字段!一般都用adodb连接,下面是我自己程序的一段连接代码,记得要先引用 Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False;Jet OLEDB:Database password=123"
con.CursorLocation = adUseClient
con.Open
rs.Open "select 品名,规格型号,单位,本期增加 as 入库数量,单价,本期减少 as 出库数量,日期,单据号,部门,供应商 from 表1 where 单据号 is not Null", con, adOpenKeyset, adLockOptimistic
Dim rs As New ADODB.Recordset
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=False;Jet OLEDB:Database password=123"
con.CursorLocation = adUseClient
con.Open
rs.Open "select 品名,规格型号,单位,本期增加 as 入库数量,单价,本期减少 as 出库数量,日期,单据号,部门,供应商 from 表1 where 单据号 is not Null", con, adOpenKeyset, adLockOptimistic
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询