VB ile MS Access tablolarına kayıt yapabilme - Baskı Önizleme +- 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 |