Skip to main content

AccessTr.neT


VB ile MS Access tablolarına kayıt yapabilme

VB ile MS Access tablolarına kayıt yapabilme

#1
Arkadaşlar ekte yapılmış olan Timer değerini daha önce bir tabloda açılmış olan bir değere atayarak kaydetmek istiyorum. Ms access'de vb ile kayıt nasıl yapılacağını anlatabilirmisiniz.

Saygılar[/color]

Option Compare Database
Dim Start


Private Sub bas_Enter()

Start = Timer

End Sub

Private Sub bit_Click()

End Sub

Private Sub bit_Enter()

Finish = Timer

TotalTime = Round(((Finish - Start) / 60), 2)

MsgBox (TotalTime & " dakika")



End Sub
Cevapla
#2
Arkadaşlar,

Yardımcı olabilecek hiç vatandaş yok mu ?

Saygılar
Cevapla
#3
Sayın ebekkaya

Ekteki kronometre uygulamasını indirip inceleyiniz. Burada saat bilgisinide kaydetmek isterseniz hangi aşamada kaydedilecekse(Butona basma vs.) orada saat bilgisini tablodaki bir alana kaydetmeniz yeterlidir.

NOT : Program eşref hocamızdan alıntı diye hatırlıyorum.
.rar Kronometre.rar (Dosya Boyutu: 12,09 KB | İndirme Sayısı: 117)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#4
ado referansını ekle vb projene
Private Sub bit_Enter()

Finish = Timer

TotalTime = Round(((Finish - Start) / 60), 2)

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor


klasor = CurrentProject.Path & "\örnek.mdb"

With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With

With rst
.ActiveConnection = conn
.Open "tabloadın", LockType:=adLockOptimistic
End With

With rst
.AddNew
.Fields("dakika").Value = TotalTime
.Update
End With
rst.Close

conn.Close

end sub
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
#5
TEŞEKKÜRLER
Cevapla
#6
Arkadaşlar,

Başka bir kanaldan ekteki gibi farklı bir çözüm örneği mevcut. Arkadaşlara faydası olur umarım.

Saygılar


Private Sub bit_Enter()

Finish = Timer

TotalTime = Round(((Finish - Start) / 60), 2)

Dim SQLQuery As String

vCompany = Company
vDate = Now()
vAgent_Name = "Cenk"
vTimer = TotalTime

SQLQuery = "INSERT INTO DATA (Company, zDate, Agent_Name, zTimer) SELECT '" & vCompany & "', '" & vDate & "', '" & vAgent_Name & "', '" & vTimer & "'"

DoCmd.SetWarnings False
DoCmd.RunSQL SQLQuery
DoCmd.SetWarnings True

MsgBox (Company & " SIRKETINDE " & TotalTime & " DAKIKA CALISILDI LUTFEN YENI BIR SIRKET SECINIZ")

End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da