Chép từ CSDL là MS SQL hay là access nếu là MS SQL thì mình chịu thua nhưng mà bạn đã biết thì chia sẻ mọi người với .
Nếu trên MS Access
Mình có đoạn code sau do hoc chui nen hơi quê mùa đưng cười nghen :
Purivate Sub CAPNHATHDKT_Click()
Dim DB1 As Database, RS1 As Recordset, MB1 As Variant, DB2 As Database
Dim ST1 As String, ST2 As String, N As Integer
Set DB1 = OpenDatabase("K:\HOPDONG\2008.MDB")
Dim c03 As Recordset, c04 As Recordset
Set c03 = DB1.OpenRecordset("HDKT", dbOpenTable)
Set DB2 = CurrentDb
Set c04 = DB2.OpenRecordset("TONGHOP", dbOpenTable)
c04.Index = "PRIMARYKEY"
If c03.RecordCount > 0 Then
c03.MoveFirst
Do Until c03.EOF
'On Error Resume Next
c04.Seek "=", c03!MAHD
If c04.NoMatch Then
c04.AddNew
c04!MAHD = c03!MAHD&”MR.LONG”
c04!ngay = c03!ngay
c04!makhach = c03!makhach
……………………………………..
c04.Update: c04.Bookmark = c04.LastModified
End If
c04.Edit
c04.Update: c03.MoveNext
Loop
End If
c03.Close
c04.Close
DB1.Close
DB2.Close
End Sub
Trong ổ đĩa K : co file hợp đồng của ông B khai thác 2008 mình đang ở máy tính cuả mình muốn chép nó về tạo form rồi nhấp nút cập nhật .
Còn xoá thì tương tự
Private Sub XOA_Click()
Dim DB1 As Database, RS1 As Recordset, MB1 As Variant, DB2 As Database
Dim ST1 As String, ST2 As String, N As Integer
Set DB1 = OpenDatabase("K:\HOPDONG\2008.MDB")
Dim c03 As Recordset, c04 As Recordset
Set c03 = DB1.OpenRecordset("HDKT", dbOpenTable)
Do Until c03.EOF
If C03.RecordCount > 0 Then
C03.Delete
End If
C03.MoveNext
Loop
c03.Close
DB1.Close
End Sub
Thân chào bạn