+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: VB ile MS Access tablolarına kayıt yapabilme (/konu-vb-ile-ms-access-tablolarina-kayit-yapabilme.html)
VB ile MS Access tablolarına kayıt yapabilme - ebekkaya - 02/03/2009
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
Cvp: VB ile MS Access tablolarına kayıt yapabilme - ebekkaya - 03/03/2009
Arkadaşlar,
Yardımcı olabilecek hiç vatandaş yok mu ?
Saygılar
Cvp: VB ile MS Access tablolarına kayıt yapabilme - alpeki99 - 03/03/2009
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.
Cvp: VB ile MS Access tablolarına kayıt yapabilme - esrefigit - 03/03/2009
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
Cvp: VB ile MS Access tablolarına kayıt yapabilme - ebekkaya - 03/03/2009
TEŞEKKÜRLER
Cvp: VB ile MS Access tablolarına kayıt yapabilme - ebekkaya - 04/03/2009
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