Skip to main content

AccessTr.neT


Sqlite, Odbc, Ado Ve Addnew

Sqlite, Odbc, Ado Ve Addnew

#1
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
@benbendedeilem
Son Düzenleme: 14/05/2020, 13:01, Düzenleyen: accessman.
Cevapla
#2
Bunun içinmi yandınız Img-grin
Sadece bağlantı değişliği var değil mi?
Cevapla
#3
İş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
@benbendedeilem
Son Düzenleme: 14/05/2020, 16:29, Düzenleyen: accessman.
Cevapla
#4
Uyarı puanını 100 e kadar çıkartın kendiliğinden sıfırlanır Img-grin
Cevapla
#5
mod 100 e göre ayarlanmış
@benbendedeilem
Cevapla
#6
Hangi program kullanıyorsunuz sqlite vt hazırlamak için.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da