Aynı anda iki veritabanına kayıt hk.

Aynı anda iki veritabanına kayıt hk. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aynı anda iki veritabanına kayıt hk. (/konu-ayni-anda-iki-veritabanina-kayit-hk.html)

Sayfalar: 1 2 3 4

Cvp: Aynı anda iki veritabanına kayıt hk. - drummers - 12/12/2011

(12/12/2011, 10:29)alpeki99 yazdı:
sayfa.Sheets("Sayfa1").range("B2") = TextBox1.Text + 1
şeklinde olmayacak. Range("B2") bölümünde eğer B3,B4,B5 gibi +1 arttırırsanız alt satıra geçecektir.

sayfa.Sheets("Sayfa1").range("B2 + 1") = TextBox1.Text

Böylemi olacak

Cvp: Aynı anda iki veritabanına kayıt hk. - alpeki99 - 12/12/2011

B2 değeri yerine değişken kullanıp For döngüsü içinde +1 arttırmanız gerekmektedir.



alan = 2

For i = 1 To 10



  sayfa.Sheets("Sayfa1").range("B" & alan+1) = yazılacak değer.



Next i

Buna benzer bir yapı kurmalısınız.

Cvp: Aynı anda iki veritabanına kayıt hk. - schworse - 12/12/2011

Merhaba;



Dim Son As Integer



satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))



satirsayisi = satirsayisi + 1



Son = 5  // Yazdırılacak olan satir sayisi yazılmalı



For i = satirsayisi To Son



Sheets("Sayfa1").Range("A" & i) = "Yazılacak Değer"



Next

excel'de son satıra ben bu şekilde yazdırıyorum.

Kolay gelsin.

Cvp: Aynı anda iki veritabanına kayıt hk. - drummers - 13/12/2011

(12/12/2011, 20:37)schworse yazdı: Merhaba;



Dim Son As Integer



satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))



satirsayisi = satirsayisi + 1



Son = 5 // Yazdırılacak olan satir sayisi yazılmalı



For i = satirsayisi To Son



Sheets("Sayfa1").Range("A" & i) = "Yazılacak Değer"



Next

excel'de son satıra ben bu şekilde yazdırıyorum.

Kolay gelsin.

(12/12/2011, 15:25)alpeki99 yazdı: B2 değeri yerine değişken kullanıp For döngüsü içinde +1 arttırmanız gerekmektedir.
alan = 2

For i = 1 To 10



 sayfa.Sheets("Sayfa1").range("B" & alan+1) = yazılacak değer.



Next i
Buna benzer bir yapı kurmalısınız.

Bu ikisindede sonuca ulaşamadım acaba hata bendemi ?

Cvp: Aynı anda iki veritabanına kayıt hk. - drummers - 13/12/2011

Dim alan As Integer

                            Dim dosya As New Excel.Application

                            Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")

                            dosya.Visible = True



                            alan = 2

                            For i = 1 To 10



                                sayfa.Sheets("Sayfa1").range("B" & alan + 1) = TextBox1.Text

                                sayfa.Sheets("Sayfa1").Activate()

                            Next i

Böyle yapıyorurum eklediğim verileri excelde hep üstü üste aynı satıra yazıyor. Yani veri yazıldıktan sonra sonraki satıra geçip ekleme yapmıyor. Img-cray

Cvp: Aynı anda iki veritabanına kayıt hk. - alpeki99 - 13/12/2011

Sadece bu işi yapan formlarınızı ekleyin o şekilde kontrol edelim. Benim yazdığımı kafadan hızlıca yazdığım için eksik var. For döngüsü içinde B sütunundan sonraki sayı 1 artacağı için ben orada katmayı unutmuşum. Schworse hocamın yazdığı kodda ki gibi döngüde sütun yanındaki sayıyı arttıracak bir sayı gelecek. Schworse hocam For'un parametresini vermiş o şekilde kullanabilirsiniz.