Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/12/2011 00:45
Konu Sahibi
drummers
Yorumlar
22
Okunma
4932
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
408
11/05/2009
125
İzmir
Ofis 2003
13/04/2018,19:04
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 If Me.TextBox1.Text = "" Then
 MsgBox("Lütfen Firma Ünvani Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
 Else
 If Me.ComboBox6.Text = "" Then
 MsgBox("Lütfen Firma Türü Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
 Else
 If Me.ComboBox7.Text = "" Then
 MsgBox("Lütfen Defter Cinsi Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
 Else
 Dim durum As String
 durum = MsgBox("Firmaunvani = " & TextBox1.Text & vbNewLine & _
 "Adi = " & TextBox2.Text & vbNewLine & _
 "Soyadi = " & TextBox3.Text & vbNewLine & _
 "Faaliyetalani = " & TextBox4.Text & vbNewLine & _
 "İsyeriadresi = " & TextBox5.Text & vbNewLine & _
 "İsyeriil = " & ComboBox1.Text & vbNewLine & _
 "İsyeriilce = " & ComboBox2.Text & vbNewLine & _
 "Subeadresi = " & TextBox6.Text & vbNewLine & _
 "Subeil = " & ComboBox3.Text & vbNewLine & _
 "Subeilce = " & ComboBox4.Text & vbNewLine & _
 "Vergidairesi = " & ComboBox5.Text & vbNewLine & _
 "Vergino = " & MaskedTextBox1.Text & vbNewLine & _
 "Tcno = " & MaskedTextBox2.Text & vbNewLine & _
 "İsebaslama = " & MaskedTextBox3.Text & vbNewLine & _
 "İsiterk = " & MaskedTextBox4.Text & vbNewLine & _
 "Telefon1 = " & MaskedTextBox5.Text & vbNewLine & _
 "Telefon2 = " & MaskedTextBox6.Text & vbNewLine & _
 "Emailadresi = " & TextBox13.Text & vbNewLine & _
 "Sozlesmetarihi = " & MaskedTextBox11.Text & vbNewLine & _
 "Sozlesmeno = " & TextBox15.Text & vbNewLine & _
 "Muhasebeucreti = " & MaskedTextBox7.Text & vbNewLine & _
 "Tasdiksayfasi = " & TextBox17.Text & vbNewLine & _
 "Firmaturu = " & ComboBox6.Text & vbNewLine & _
 "Deftercinsi = " & ComboBox7.Text & vbNewLine & _
 "Sgksicilno = " & MaskedTextBox8.Text & vbNewLine & _
 "Sgkkullanici = " & MaskedTextBox12.Text & vbNewLine & _
 "Sgkkod = " & TextBox20.Text & vbNewLine & _
 "Sgksistemsifre = " & TextBox21.Text & vbNewLine & _
 "Sgkisyerisifre = " & TextBox22.Text & vbNewLine & _
 "İnternetkullanici = " & MaskedTextBox14.Text & vbNewLine & _
 "İnternetparola = " & TextBox24.Text & vbNewLine & _
 "İnternetsifre = " & MaskedTextBox15.Text & vbNewLine & _
 "Ticaretsicilno = " & TextBox26.Text & vbNewLine & _
 "Odano = " & TextBox27.Text & vbNewLine & _
 "Anaadi = " & TextBox28.Text & vbNewLine & _
 "Babaadi = " & TextBox29.Text & vbNewLine & _
 "Dogumyeri = " & TextBox30.Text & vbNewLine & _
 "Dogumtarihi = " & MaskedTextBox9.Text & vbNewLine & _
 "Ciltno = " & TextBox32.Text & vbNewLine & _
 "Ailesirano = " & TextBox33.Text & vbNewLine & _
 "Sirano = " & TextBox34.Text & vbNewLine & _
 "İkametgahadresi = " & TextBox35.Text & vbNewLine & _
 "İkametgahil = " & ComboBox8.Text & vbNewLine & _
 "İkametgahilce = " & ComboBox9.Text & vbNewLine & _
 "Notertarih = " & MaskedTextBox10.Text & vbNewLine & _
 "Noterno = " & TextBox37.Text & vbNewLine & _
 "Dusunceler = " & TextBox38.Text & vbNewLine & _
 "Telefon3 = " & MaskedTextBox13.Text & vbNewLine & _
 "Ayirac = " & ComboBox10.Text & vbNewLine & _
 "Musaviri = " & TextBox7.Text & vbNewLine & _
 "Yukarıdaki yazdığınız veriler kayıt edilsinmi '", MsgBoxStyle.Question + MsgBoxStyle.YesNoCancel, "Kayıt Uyarı")
 If durum = vbYes Then
 Dim sql As New String("INSERT INTO data (Firmaunvani,Adi,Soyadi,Faaliyetalani,İsyeriadresi,İsyeriil,İsyeriilce,Subeadresi,Subeil,Subeilce,Vergidairesi,Vergino,Tcno,İsebaslama,İsiterk,Telefon1,Telefon2,Emailadresi,Sozlesmetarihi,Sozlesmeno,Muhasebeucreti,Tasdiksayfasi,Firmaturu,Deftercinsi,Sgksicilno,Sgkkullanici,Sgkkod,Sgksistemsifre,Sgkisyerisifre,İnternetkullanici,İnternetparola,İnternetsifre,Ticaretsicilno,Odano,Anaadi,Babaadi,Dogumyeri,Dogumtarihi,Ciltno,Ailesirano,Sirano,İkametgahadresi,İkametgahil,İkametgahilce,Notertarih,Noterno,Dusunceler,Telefon3,Ayirac,Musaviri) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}','{11}','{12}','{13}','{14}','{15}','{16}','{17}','{18}','{19}','{20}','{21}','{22}','{23}','{24}','{25}','{26}','{27}','{28}','{29}','{30}','{31}','{32}','{33}','{34}','{35}','{36}','{37}','{38}','{39}','{40}','{41}','{42}','{43}','{44}','{45}','{46}','{47}','{48}','{49}')")
 sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, ComboBox1.Text, ComboBox2.Text, TextBox6.Text, ComboBox3.Text, ComboBox4.Text, ComboBox5.Text, MaskedTextBox1.Text, MaskedTextBox2.Text, MaskedTextBox3.Text, MaskedTextBox4.Text, MaskedTextBox5.Text, MaskedTextBox6.Text, TextBox13.Text, MaskedTextBox11.Text, TextBox15.Text, MaskedTextBox7.Text, TextBox17.Text, ComboBox6.Text, ComboBox7.Text, MaskedTextBox8.Text, MaskedTextBox12.Text, TextBox20.Text, TextBox21.Text, TextBox22.Text, MaskedTextBox14.Text, TextBox24.Text, MaskedTextBox15.Text, TextBox26.Text, TextBox27.Text, TextBox28.Text, TextBox29.Text, TextBox30.Text, MaskedTextBox9.Text, TextBox32.Text, TextBox33.Text, TextBox34.Text, TextBox35.Text, ComboBox8.Text, ComboBox9.Text, MaskedTextBox10.Text, TextBox37.Text, TextBox38.Text, MaskedTextBox13.Text, ComboBox10.Text, TextBox7.Text)
 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
 Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
 Dim sonuc As Integer
 baglanti.Open()
 sonuc = komutnesnesi.ExecuteNonQuery()
 If sonuc = 1 Then
 MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
 End If
 Listele("SELECT * FROM data'")
 baglanti.Close()
 Temizle()
 Else
 End If
 End If
 End If
 End If
 End Sub


Bu kod ile textboxlardki verilerimi Access veritabanıma kayıt ediyorum. Benim istediğim aynı anda, program kalasörüm içinde ki "deneme.xls" içindeki "Sayfa 1" e B2" hücresinden başlıyarak alt alta eklemesi. Teşekkürler

Not: Sadece Textbox1.text verisini excele aktaracak

Ek Dosyalar
sorum.rar
[571.78 KB]


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.120
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
17/04/2018,11:04
Çözüldü 
Excelde istediğiniz Sayfa - Hücreye kaydeden bir çözümünüz vardı yanılmıyorsam. O kodları burada da kullanabilirsiniz.


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.
Cevapla

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
408
11/05/2009
125
İzmir
Ofis 2003
13/04/2018,19:04
Çözüldü 
(12/12/2011 01:10)alpeki99 Adlı Kullanıcıdan Alıntı: Excelde istediğiniz Sayfa - Hücreye kaydeden bir çözümünüz vardı yanılmıyorsam. O kodları burada da kullanabilirsiniz.


+1 satır alta geçmeyi beceremedim ondan yeni konu açma gereği duydum.


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.120
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
17/04/2018,11:04
Çözüldü 
Kaydettiğiniz hücre B10 ise 10 +1, 11 + 1... şeklinde son kısımları +1 ile toplayarak sonraki satıra geçebilirsiniz.


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.
Cevapla

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
408
11/05/2009
125
İzmir
Ofis 2003
13/04/2018,19:04
Çözüldü 
(12/12/2011 01:20)alpeki99 Adlı Kullanıcıdan Alıntı: Kaydettiğiniz hücre B10 ise 10 +1, 11 + 1... şeklinde son kısımları +1 ile toplayarak sonraki satıra geçebilirsiniz.

Visual Basic Code
1
2
3
4
5
6
Dim dosya As New Excel.Application
        Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
        dosya.Visible = True
        sayfa.Sheets("Sayfa1").range("B2") = TextBox1.Text + 1
        
        sayfa.Sheets("Sayfa1").Activate()

Yaptım ama veri aktarımı olmadı


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.120
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
17/04/2018,11:04
Çözüldü 

Visual Basic Code
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.


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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü PDF veri toplama ve veritabanına kaydetme.. Uğur ŞİRİN 3 334 05/11/2017, 09:31 alpeki99
Çözüldü VB.Net Aynı Sekmede Yeni Site Açmak Mettleshade 4 567 05/02/2017, 16:45 Mettleshade
Çözüldü İmports Microsoft.Office.İntertop.Excel Ve System.Data.OleDb Aynı Projede Kullanma Mettleshade 10 1.375 02/12/2016, 17:46 Mettleshade
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.698 04/05/2014, 16:31 umutakkaya
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 2.542 11/04/2014, 11:13 alpeki99

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
 
 
Forum use Krzysztof "Supryk" Supryczynski addons.