update
http://img96.imageshack.us/img96/5793/dfgzx5.jpg
ตามรูปครับ ผมต้องการ update รหัสตำแหน่งที่แสดงอยู่ใน mfgPosition ครับให้ไปอยู่แผนกที่ต้องการ เช่น เลือกแผนกเพื่อทำการแสดงตำแหน่งงาน(แสดงในmfgPosition)ที่อยู่ในแผนก แล้วแก้ไขตำแหน่งเพื่อให้ไปอยู่แผนกอื่นที่เลือกไว้ -- ทำการupdateข้อมูลใน MFG ได้หรือเปล่าครับผมไม่รู้จริงๆ ผมลองทำแล้วโค้ดรันผ่านแต่ข้อมูลไม่ได้เปลี่ยนแปลง หรือมีวิธีอื่นแนะนำไหมครับช่วยทีขอบคุณผู้ให้ความช่วยเหลือ
code Private Sub cmdSave_Click() Dim i As Integer Dim sqlTmp As String
Conn.BeginTrans With mfgPosition For i = 1 To .Rows - 1 sqlTmp = "UPDATE Position " sqlTmp = sqlTmp & " SET PositionID = '" & .TextMatrix(i, 0) & "'," sqlTmp = sqlTmp & " DepartmentID ='" & dcbShowDepartment1.BoundText & "'" sqlTmp = sqlTmp & " WHERE (DepartmentID ='" & dcbShowDepartment1.BoundText & "')" Conn.Execute sqlTmp Next End With If MsgBox("¤Ø³µéͧÃÇÁá¼¹¡ " & dcbShowDepartment1.Text & " ãªèËÃ×ÍäÁè ?", vbYesNo + vbQuestion, "¤ÓÂ×¹Âѹ") = vbYes Then Conn.CommitTrans dcbShowDepartment1 = "" dcbShowDepartment = "" Call ClearGridRow MsgBox "ºÑ¹·Ö¡Å§°Ò¹¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ !", vbOKOnly + vbInformation, "¼Å¡Ò÷ӧҹ" Else Conn.RollbackTrans End If Call OrderGrid End Sub
|