VB6程序实现Excel数据导入SQL2000数据库

'导入数据的表中的顺序必须与数据库中的表的顺序一样。


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")