AccessTr.neTVisual Basic .NETVisual Basic .NET Cevaplanmış Soruları

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

1 2 3 4
13/12/2011, 22:31

drummers

(13/12/2011, 22:20)alpeki99 yazdı: 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.

Örnek dosya ekledim.
Sorumu tekrarlıyorum: Kaydet butonuna bastığımda hem Access verileri kaydedecek hemde "deneme.xls" ye "Sayfa1" e Textbox1 deki "B2" den başıyarak veriyi alt alta ekliyecek

Ek Dosyalar

13/12/2011, 23:35

alpeki99

Değişen bir şey olmamış yukarıdaki dosyanızın aynısını koymuşsunuz. Biz yazınca üyelerimiz alınıyor ancak bir türlü derdimizi anlatamıyoruz. Programı çalıştırıyorum hatalar veriyor önce onları temizleyip düzeltmeye çalışıyorum. Daha sonra konuyu okuyorum hangi formda hangi buton olduğunu yazmamışsınız onu arıyorum. Bulduktan sonra süreci anlamak için yeni bir kayıt yapayım diyorum formunuzun tasarımını kendi çözünürlüğünüze göre yapmışsınız Scroll konulmamış onları düzeltiyorum. Sorunuz için örnek oluşturmayıp projenizi koyduğunuz için bir sürü mecburi alan dolduruyorum Kaydet diyorum bu defada bir programda asla olmaması gereken bir MessageBox penceresi görüyorum güç bela onu da hallediyorum. Kodları inceliyorum Excel ile ilgili hiç bir şey yazmamışsınız. Siz yazmış olsanız belki de hatanızı görüp hemen düzelteceğiz ancak baştan uğraşmak zorunda kalıyoruz.

Diğer arkadaşları bilmiyorum ancak benden çok farklı durumda değillerdir. Ne kadar problemsiz soru sorarsanız o kadar çabuk yanıt alabilirsiniz. Ben düzeltilmiş hali ile ekleyeyim müsait bir arkadaş ilgilenir.

Ek Dosyalar

13/12/2011, 23:41

drummers

(13/12/2011, 23:35)alpeki99 yazdı: Değişen bir şey olmamış yukarıdaki dosyanızın aynısını koymuşsunuz. Biz yazınca üyelerimiz alınıyor ancak bir türlü derdimizi anlatamıyoruz. Programı çalıştırıyorum hatalar veriyor önce onları temizleyip düzeltmeye çalışıyorum. Daha sonra konuyu okuyorum hangi formda hangi buton olduğunu yazmamışsınız onu arıyorum. Bulduktan sonra süreci anlamak için yeni bir kayıt yapayım diyorum formunuzun tasarımını kendi çözünürlüğünüze göre yapmışsınız Scroll konulmamış onları düzeltiyorum. Sorunuz için örnek oluşturmayıp projenizi koyduğunuz için bir sürü mecburi alan dolduruyorum Kaydet diyorum bu defada bir programda asla olmaması gereken bir MessageBox penceresi görüyorum güç bela onu da hallediyorum. Kodları inceliyorum Excel ile ilgili hiç bir şey yazmamışsınız. Siz yazmış olsanız belki de hatanızı görüp hemen düzelteceğiz ancak baştan uğraşmak zorunda kalıyoruz.

Diğer arkadaşları bilmiyorum ancak benden çok farklı durumda değillerdir. Ne kadar problemsiz soru sorarsanız o kadar çabuk yanıt alabilirsiniz. Ben düzeltilmiş hali ile ekleyeyim müsait bir arkadaş ilgilenir.

Ek Dosyalar

Aynısı değil dostum. En sade hali ve herhangi bir uyarı vermedi. Denedim öyle rarladım. Bir yanlışın olmasın. Şu anda tekrar kontrol ettim. 1 form var içinde ve herşey sade. Yanılıyorsun bence
13/12/2011, 23:45

alpeki99

İlginç tekrar indirdim aynen dediğiniz gibi çıktı. Son bir enerji bir daha bakacağım soruya.
Excel kodlarınızı hangi prosedüre yazdınız?
13/12/2011, 23:47

drummers

İşte benim tepede duran "% 50" uyarı yazısı aynen böyle oluşmuştu. Önemli olmasada hakkımın yendiğini düşünüyorum. Sade ve açıklayıcı yazmaya çalışıyorum, ama unutmamalıki bizler işi bilmeyen veya az bileniz. Yüz sefer bile hata yapsak sıfırmala konumundakiler sizlersiniz. Amaç bu zaten saçma sorular veya akıllı sorular sorulsun cevap verelim
13/12/2011, 23:58

schworse

Merhaba;

Örneği inceledim For a gerek yok altta bulunan kodu yazın ve txt leri b,c,d diye değiştirip çoğatabilirsiniz.

Kolay gelsin.
Kod:
Dim dosya As New Excel.Application
        Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
        dosya.Visible = True

        Dim sonsatir As Integer

        sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("Sayfa1").Columns("A"))
        sonsatir = sonsatir + 1
        sayfa.Sheets("Sayfa1").Range("A" & sonsatir) = TextBox1.Text

    End Sub
Merhaba;

Çalışan örnek ekte yer almaktadır.

Kolay gelsin.
Ek Dosyalar

1 2 3 4