'导入数据的表中的顺序必须与数据库中的表的顺序一样。
Private Sub 导入数据_Click()
Dim part As String
Dim rs As Recordset
Dim i, j, k, o, z As Long
Dim msgtest As String
Dim rowscount As Long
Dim sql As String
cdfile.Flags = cdlOFNNoReadOnlyReturn
cdfile.Action = 2
If cdfile.FileName <> "" Then
part = cdfile.FileName
Else
Exit Sub
End If
' Set rs = New ADODB.Recordset
' sql = "insert into 采购入库单(临时单据编号,单据编号,材料编号,录入日期,入库日期,数量,单价,金额,物资状态,供货单位,仓库,备注,审核人,制单人,编号,分类编号) select 临时单据编号,单据编号,材料编号,实际入库日期,入库日期,数量,单价,金额,物资状态,供货单位,仓库,备注,审核人,制单人,编号,分类编号"
' sql = sql & " FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & part & ";User ID=;Password=;Extended properties=Excel 8.0')...[sheet1$]"
' cnn.Execute sql
' Set rs = New ADODB.Recordset
' sql = "insert into 入库单(临时单据编号,单据编号,材料编号,录入日期,入库日期,数量,单价,金额,物资状态,供货单位,仓库,备注,审核人,制单人,分类编号) select 临时单据编号,单据编号,材料编号,实际入库日期,入库日期,数量,单价,金额,物资状态,供货单位,仓库,备注,审核人,制单人,分类编号"
' sql = sql & " FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & part & ";User ID=;Password=;Extended properties=Excel 8.0')...[sheet1$]"
' cnn.Execute sql
' cnn.Execute ("update 入库单 set 单据类型='采购入库单' where 单据类型 is null")