Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

drummers
drummers
Visual Basic .NET Cevaplanmış Soruları
22
8923

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

Çözüldü #1
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/08/2024,13:39
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
Kod:
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.
Son Düzenleme: 12/12/2011, 00:54, Düzenleyen: drummers.
Cevapla
Çözüldü #2
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
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
Çözüldü #3
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/08/2024,13:39
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
(12/12/2011, 01:10)alpeki99 yazdı: 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
Çözüldü #4
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
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
Çözüldü #5
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/08/2024,13:39
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
(12/12/2011, 01:20)alpeki99 yazdı: Kaydettiğiniz hücre B10 ise 10 +1, 11 + 1... şeklinde son kısımları +1 ile toplayarak sonraki satıra geçebilirsiniz.

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
Çözüldü #6
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici 
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task