根据ID进行内容更新
ID是自动编号
Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim myData As String, myTable As String, sql As String
Dim p As Integer
myData = ThisWorkbook.Path & "\LineTerIntegration.accdb"
myTable = "WT"
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0;"
.Open myData
End With
p = Trim(CInt(UserForm1.txbID.Value))
sq1 = "Select * from " & myTable & " where WT.ID=" & p & " "
With rst
.Open sq1, cnn, adOpenDynamic, adLockOptimistic
If rst.RecordCount < 1 Then
MsgBox "找不到该记录"
Exit Sub
End If
Do While Not (.EOF)
.Fields("序列号") = Me.txbXLH.Value
.Fields("产品名称") = Me.txbName.Value
.Fields("印线号") = Me.txbYXH.Value
.Fields("线材料号") = Me.txbXCLH.Value
.Fields("线材规格") = Me.txbXCGG.Value
.Fields("端子料号A") = Me.txbDLHA.Value
.Fields("端子A位置号") = Me.txbDAWZH.Value
.Fields("端子拼位A") = Me.txbDPWA.Value
.Fields("防水圈A") = Me.txbFSQA.Value
.Fields("端子料号B") = Me.txbDLHB.Value
.Fields("端子B位置号") = Me.txbDBWZH.Value
.Fields("端子拼位B") = Me.txbDPWB.Value
.Fields("线长") = Me.txbLC.Value
.Fields("防水圈B") = Me.txbFSQB.Value
.Fields("备注") = Me.txbBZ.Value
.Update
Loop
End With
MsgBox "更新成功"
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
