AccessTr.neT

AccessTr.neT > Visual Basic .NET > Visual Basic .NET Cevaplanmış Soruları > Aynı anda iki veritabanına kayıt hk.
Tam Versiyon: Aynı anda iki veritabanına kayıt hk.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4

drummers

12/12/2011, 00:45
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)

alpeki99

12/12/2011, 01:10
Excelde istediğiniz Sayfa - Hücreye kaydeden bir çözümünüz vardı yanılmıyorsam. O kodları burada da kullanabilirsiniz.

drummers

12/12/2011, 01:15
(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.

alpeki99

12/12/2011, 01:20
Kaydettiğiniz hücre B10 ise 10 +1, 11 + 1... şeklinde son kısımları +1 ile toplayarak sonraki satıra geçebilirsiniz.

drummers

12/12/2011, 01:33
(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ı

alpeki99

12/12/2011, 10:29
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.
Sayfalar: 1 2 3 4
AccessTr.neT > Visual Basic .NET > Visual Basic .NET Cevaplanmış Soruları > Aynı anda iki veritabanına kayıt hk.