1234567890!1001!1111!20000721141215!5!20000709141215!

之前程式,在相同BILL_ID欄位中,它會取最新一筆資料updata,

也就是說table中BILL_ID只有唯一個(因為程式是以BILL_ID為基準做判斷)

若我現在想做出在同一BILL_ID但有許多不同運送狀態,也就是說txt檔中如下:

在程式轉換下,我的table呈現也與txt檔一樣,而對『0000000001』來講,不會只有一筆更新後的資料。

如此就對同一BILL_ID 就可以呈現不同狀態的歷史資料。



Sub AddData(strSta As String) '將資料加入資料庫..............我想應該是這部分是否可以用append的用法,不過好像會有troble....
    If strSta = "new" Then Adodc1.Recordset.AddNew
    
    If Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) Then
    
     Adodc1.Recordset.Fields(0).Value = Mid$(strLineData, 1, 10)
     Adodc1.Recordset.Fields(1).Value = Mid$(strLineData, 12, 4)
     Adodc1.Recordset.Fields(2).Value = Mid$(strLineData, 17, 4)
     Adodc1.Recordset.Fields(3).Value = Mid$(strLineData, 22, 14)
     Adodc1.Recordset.Fields(4).Value = Mid$(strLineData, 37, 1)
     Adodc1.Recordset.Fields(5).Value = Mid$(strLineData, 39, 14)
     Adodc1.Recordset.Update
  
    End If
    
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()