AccessTr.neT

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

Bunun içinmi yandınız
Sadece bağlantı değişliği var değil mi?

İşte aramızdaki fark bu
sizin gözü kapalı yaptığınızı ben arayıp bulmak için saatler harcıyorum
o kadar da olsun

---

şu benim uyarı puanım hiç eksilmiyor
ne zaman 19 olacak

Uyarı puanını 100 e kadar çıkartın kendiliğinden sıfırlanır

mod 100 e göre ayarlanmış

Hangi program kullanıyorsunuz sqlite vt hazırlamak için.