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
VB ile MS Access tablolarına kayıt yapabilme
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.
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.
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.
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
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
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
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
Konuyu Okuyanlar:
