Anolog saat

iyi günler
Sqlite üzerinde veritabanınız var ve ADO ile tabloya kayıt ekleyecek iseniz.

Public Function updateLog(person As String) As Long

    

    Dim akca_conndriver, akca_conndatabasepathnw, akca_conndatabasefile, akca_conndatabaseend As String

    Dim str As String

    Dim strSQL As String

    

    Dim conn As Object, rs As Object

    Set conn = CreateObject("ADODB.Connection")

    Set rs = CreateObject("ADODB.Recordset")

    

    akca_conndriver = "Driver=SQLite3 ODBC Driver;"

    akca_conndatabasepathnw = "Database=\\PC\Local$\akca\data\"

    akca_conndatabasefile = "mdrs.db"

    akca_conndatabaseend = ";"

    

    Set conn = Nothing

    str = akca_conndriver & akca_conndatabasepathnw & akca_conndatabasefile & akca_conndatabaseend

    Set conn = get_akca_dbconn(str)

    

    strSQL = "SELECT * FROM itLogUpdate;"

    rs.Open strSQL, conn, adOpenDynamic, adLockOptimistic

    

    rs.AddNew

    rs!username = usernameD

    rs!perId = person

    rs!pcname = ComputerName()

    rs!updatetime = Now()

    rs.update

        

    updateLog = rs!logID

    

    rs.Close

    

    Set conn = Nothing

    Set rs = Nothing

    



End Function

---

bunu niye ekledim. çünkü buluncaya kadar saatlerim gitti
ben yandım başkaları yanmasın

Her ne zaman ActiveX kontrol kullanan bir Microsoft Visual FoxPro uygulaması dağıttığınızda, .ocx dosyası doğru bir şekilde kaydedilmelidir. 32-bit bir işletim sistemine .ocx dosyasını manüel olarak yüklemek için Microsoft Register Server (Regsvr32.exe)'ı kullanabilirsiniz. Visual FoxPro 3.0 ve 3.0b'de Regsvr32.exe dosyası \Vfp\Samples\Ole dizininde bulunmaktadır. Visual FoxPro 6.0'da Regsvr32.exe, Visual FoxPro dizininin Distrib.src dizininde yer almaktadır. Visual FoxPro uygulamasıyla dağıtılabilir. Regsvr32.exe için kullanılan sintaks şöyledir:
/u, .ocx dosyasını kayıttan çıkar anlamına gelmektedir. /s Sessiz Mod (mesaj gösterme) anlamına gelmektedir. Aşağıdaki örnek, Microsoft MAPI ActiveX Kontrolü mesaj göstermeden kaydetmektedir.
  Regsvr32 /s mscomctl32.ocx
Bu örneği Visual FoxPro uygulamasında uygulamak için, ÇALIŞTIR komutunu şu şekilde uygulayın:
  RUN /N Regsvr32 /s
Bir kontrolü kaydederken hata meydana gelirse şunları yapın:

1. Kontrolün kayıt dizininde daha önceden kaydedilmediğinden emin olun.
   
   
2. Aşağıdaki dosyaların Windows\System dizininde varolduğunu doğrulayın:
         mfc30.dll    olepro32.dll    msvcrt20.dll
         mfc40.dll    msvcrt40.dll
   Bu dosyalardan biri eksikse, şöyle bir mesaj alabilirsiniz:
   Hata: OLE Hata Kodu 0x80040112: Bu sınıf için uygun lisans bulunamadı.
   

Milli Eğitim Bakanlığına Bağlı Okullarda Disiplin İşlemlerinin yürütülmesi için yapmış olduğum program etedir. Çalışmamda yardımlarını esirgemeyen; Ozan Beye, Mehmet DEMİRAL Bey'e, Sayın Berduşa, Acceesman'a ve ismini sayamadığım diğer hocalarıma en içten dileklerimi sunuyorum. Esiklikleri olabilir. Program malum kovid sürecinden dolayı yerinde test edilememiştir.