AccessTr.neT

Tam Versiyon: Sqlite, Odbc, Ado Ve Addnew
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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 Img-grin
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 Img-grin
mod 100 e göre ayarlanmış
Hangi program kullanıyorsunuz sqlite vt hazırlamak için.
Sayfalar: 1 2 3