• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ADODB.Connection ile kapalı dosya işlemlerinde kayıt değiştirme nasıl olmalıdır?

H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Aşağıdaki kodlar kullandığım kayıt ekleme kodlarıdır, ben değiştirme kodları bu yapıda nasıl olmalıdır diye soruyorum;
Kod: 
Sub sbNFSKYTEKLE() '(tcno)
        Set recNFS = CreateObject("ADODB.Recordset")    'kayıt bağlantısını kur
        With recNFS
            .ActiveConnection = conNFS
            .CursorLocation = adUseServer
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
            .Source = SQLStr & " WHERE " & "TCKİMLİKNO = " & vatno
            .Open
        End With
 '***********************************************************************
        If recNFS.RecordCount = 0 Then                      '0 adet kayıt bulundu ise
          recNFS.AddNew
          With tKMLK
             recNFS("TCKİMLİKNO") = .tTCKNO
             recNFS("SHS_UYR") = .tSHS_UYR
             recNFS("C") = .tSHS_CNS
             recNFS("ADI") = .tADI
             recNFS("SOYADI") = .tSYD
             recNFS("ILKSOYADI") = .tISYD
             recNFS("BABAADI") = .tBAD
             recNFS("ANNEADI") = .tAAD
             recNFS("DOGUMYERİ") = .tDYR
             recNFS("DOGUMTARİHİ") = .tDTR
             recNFS("MDN_HAL") = .tMHL
             recNFS("DIN") = .tDN
             recNFS("KAN_GRB") = .tKGR
'Nüfusa Kayıtlı Olduğu
             recNFS("NFS_IL") = .tNIL
             recNFS("NFS_ILCE") = .tNILC
             recNFS("NFS_MHKY") = .tNMK
             recNFS("NFS_CSN") = .tNCS
             recNFS("NFS_ASN") = .tNAS
             recNFS("NFS_BSN") = .tNBS
'Adres Bilgileri
             recNFS("ADR_IL") = .tAIL
             recNFS("ADR_ILCE") = .tAILC
             recNFS("ADR_BLD") = .tABLD
             recNFS("ADR_MUHTAR") = .tAMK
             recNFS("ADR_CD_SKK") = .tACS
             recNFS("ADR_KNO") = .tAKN
             recNFS("ADR_DNO") = .tADN
             recNFS("ADR_PSK") = .tAPK
'Telefon ve elektronik mektup bilgileri
             recNFS("TEL_EV1") = .tTEV1
             recNFS("TEL_EV2") = .tTEV2
             recNFS("TEL_IS1") = .tTIS1
             recNFS("TEL_IS2") = .tTIS2
             recNFS("TEL_CP1") = .tTCP1
             recNFS("TEL_CP2") = .tTCP2
             recNFS("TEL_BG1") = .tTBG1
             recNFS("TEL_BG2") = .tTBG2
             recNFS("ELMEK1") = .tEMK1
             recNFS("ELMEK2") = .tEMK2
''NFC_SRI NFC_SNO NFC_YER NFC_VND NFC_KNO NFC_KTR
             recNFS("NFC_SRI") = .tNFC_SRI
             recNFS("NFC_SNO") = .tNFC_SNO
             recNFS("NFC_YER") = .tNFC_VYR
             recNFS("NFC_VND") = .tNFC_VND
             recNFS("NFC_KNO") = .tNFC_KNO
             MsgBox .tNFC_KTR
             If .tNFC_KTR = "00:00:00" Then
                recNFS("NFC_KTR") = ""
             Else
                recNFS("NFC_KTR") = .tNFC_KTR
             End If
' LST_ADI, LST_NUM, LST_TRH
             recNFS("LST_ADI") = .tLST_ADI
             recNFS("LST_NUM") = .tLST_NUM
             If .tLST_TRH = "00:00:00" Then
                recNFS("LST_TRH") = Format(Now, "DD/MM/YYYY")
             Else
                recNFS("LST_TRH") = .tLST_TRH
             End If
          End With
          recNFS.Update
          MsgBox "Kayıt İşlemi Tamamlandı.", vbInformation, "Bilgi"
        Else
          boolNFKYVAR = True
        End If
End Sub
 
Son düzenleme:
hsayar' Alıntı:
Aşağıdaki kodlar kullandığım kayıt ekleme kodlarıdır, ben değiştirme kodları bu yapıda nasıl olmalıdır diye soruyorum;
Kod: 
Sub sbNFSKYTEKLE() '(tcno)
        Set recNFS = CreateObject("ADODB.Recordset")    'kayıt bağlantısını kur
        With recNFS
            .ActiveConnection = conNFS
            .CursorLocation = adUseServer
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
            .Source = SQLStr & " WHERE " & "TCKİMLİKNO = " & vatno
            .Open
        End With
 '***********************************************************************
        [B][COLOR=Red]'If recNFS.RecordCount = 0 Then   [/COLOR][/B]                   '0 adet kayıt bulundu ise
        [B][COLOR=Red][COLOR=SeaGreen]If recNFS.RecordCount = 1 Then [/COLOR]  [/COLOR][/B]                   '0 adet kayıt bulundu ise
          '[B][COLOR=Red]recNFS.AddNew[/COLOR][/B]
          With tKMLK
             recNFS("TCKİMLİKNO") = .tTCKNO
             recNFS("SHS_UYR") = .tSHS_UYR
             recNFS("C") = .tSHS_CNS
             recNFS("ADI") = .tADI
             recNFS("SOYADI") = .tSYD
             recNFS("ILKSOYADI") = .tISYD
             recNFS("BABAADI") = .tBAD
             recNFS("ANNEADI") = .tAAD
             recNFS("DOGUMYERİ") = .tDYR
             recNFS("DOGUMTARİHİ") = .tDTR
             recNFS("MDN_HAL") = .tMHL
             recNFS("DIN") = .tDN
             recNFS("KAN_GRB") = .tKGR
'Nüfusa Kayıtlı Olduğu
             recNFS("NFS_IL") = .tNIL
             recNFS("NFS_ILCE") = .tNILC
             recNFS("NFS_MHKY") = .tNMK
             recNFS("NFS_CSN") = .tNCS
             recNFS("NFS_ASN") = .tNAS
             recNFS("NFS_BSN") = .tNBS
'Adres Bilgileri
             recNFS("ADR_IL") = .tAIL
             recNFS("ADR_ILCE") = .tAILC
             recNFS("ADR_BLD") = .tABLD
             recNFS("ADR_MUHTAR") = .tAMK
             recNFS("ADR_CD_SKK") = .tACS
             recNFS("ADR_KNO") = .tAKN
             recNFS("ADR_DNO") = .tADN
             recNFS("ADR_PSK") = .tAPK
'Telefon ve elektronik mektup bilgileri
             recNFS("TEL_EV1") = .tTEV1
             recNFS("TEL_EV2") = .tTEV2
             recNFS("TEL_IS1") = .tTIS1
             recNFS("TEL_IS2") = .tTIS2
             recNFS("TEL_CP1") = .tTCP1
             recNFS("TEL_CP2") = .tTCP2
             recNFS("TEL_BG1") = .tTBG1
             recNFS("TEL_BG2") = .tTBG2
             recNFS("ELMEK1") = .tEMK1
             recNFS("ELMEK2") = .tEMK2
''NFC_SRI NFC_SNO NFC_YER NFC_VND NFC_KNO NFC_KTR
             recNFS("NFC_SRI") = .tNFC_SRI
             recNFS("NFC_SNO") = .tNFC_SNO
             recNFS("NFC_YER") = .tNFC_VYR
             recNFS("NFC_VND") = .tNFC_VND
             recNFS("NFC_KNO") = .tNFC_KNO
             MsgBox .tNFC_KTR
             If .tNFC_KTR = "00:00:00" Then
                recNFS("NFC_KTR") = ""
             Else
                recNFS("NFC_KTR") = .tNFC_KTR
             End If
' LST_ADI, LST_NUM, LST_TRH
             recNFS("LST_ADI") = .tLST_ADI
             recNFS("LST_NUM") = .tLST_NUM
             If .tLST_TRH = "00:00:00" Then
                recNFS("LST_TRH") = Format(Now, "DD/MM/YYYY")
             Else
                recNFS("LST_TRH") = .tLST_TRH
             End If
          End With
          recNFS.Update
          MsgBox "Kayıt İşlemi Tamamlandı.", vbInformation, "Bilgi"
        Else
          boolNFKYVAR = True
        End If
End Sub
Genişletmek için tıkla ...

kırmızı satırları silip yeşil satırı koyunca istediğim oluyormuş:)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst