Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
08/09/2016 15:17
Konu Sahibi
Mettleshade
Yorumlar
2
Okunma
1527
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Mettleshade

Mettleshade

Aktif Üye
79306
Me.... Pa....
 Belirtilmemiş
 28
 72
 21/01/2016
0
 
 
 
 31/10/2017,04:52
Çözüldü 
arkadaşlar meraba başlıktada dedigim gibi mesela ben ögrenci bilgileri kayıt etmek istiyorum ama veritabanına degilde excele okul için bir uygulama yapıp satmak istiyorum. şimdi ben ögrencinin adını girip kaydet dedigimde b2 ye ögrencinin adını kayıt etcek sil veya güncelle olmasına gerek yok sadce kolay ve hızlı kayıt etmem gerekli. Yardımlarınız için teşekkürler eger uygulama isterseniz hemen oluşturup ekleyebilirim.




emir ustaoğlu

emir ustaoğlu

Onursal Üye
75504
Yu.... Em.... US....
 26
 28
 176
 12/08/2015
65
 Hatay
 Muhasebe Sorumlusu
 Ofis 2013 64 Bit
 08/04/2019,13:25
Sayın Mettleshade;

Öncelikle Site Kuralları gereği, hazırlamış olduğunuz örneğinizi içeriğinde sonuçları görmek için farazi gerçek dışı 5-10 kayıt barındıracak şekilde konunuza dahil ediniz.

Alıntı: ögrenci bilgileri kayıt etmek istiyorum ama veritabanına degilde excele okul için bir uygulama yapıp satmak istiyorum

İfadenize yönelik olarak;
Burada yapmak istediğiniz işlem verilerinizi veritabanı'na değilde (Sql/Access) excelemi kayıt etmek istiyorsunuz ? Yada hali hazırda olan verilerinizi excele mi göndermek istiyorsunuz ?

Eğer hali hazırda olan verilerinizi excele göndermek istiyorsanız aşağıdaki kodu kullana bilirsiniz;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim excel As New Microsoft.Office.Interop.Excel.Application()
        excel.Visible = True
        Dim workbook As Microsoft.Office.Interop.Excel.Workbook = excel.Workbooks.Add(System.Reflection.Missing.Value)
        Dim sheet1 As Microsoft.Office.Interop.Excel.Worksheet = DirectCast(workbook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        Dim StartCol As Integer = 1
        Dim StartRow As Integer = 1

        For j As Integer = 0 To DataGridView1.Columns.Count - 1
            Dim myRange As Microsoft.Office.Interop.Excel.Range = DirectCast(sheet1.Cells(StartRow, StartCol + j), Microsoft.Office.Interop.Excel.Range)
            myRange.Value2 = DataGridView1.Columns(j).HeaderText
        Next
        StartRow += 1
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            For j As Integer = 0 To DataGridView1.Columns.Count - 1

                Try
                    Dim myRange As Microsoft.Office.Interop.Excel.Range = DirectCast(sheet1.Cells(StartRow + i, StartCol + j), Microsoft.Office.Interop.Excel.Range)
                    myRange.Value2 = If(DataGridView1(j, i).Value Is Nothing, "", DataGridView1(j, i).Value)
                Catch
                End Try

            Next
        Next


Yapmak istediğiniz işlem farklı ise lütfen örneğinizle birlikte sorunuzu tam olarak belirtiniz.

Bilgilerinize
Saygılar.


Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların

...........
Mettleshade

Mettleshade

Aktif Üye
79306
Me.... Pa....
 Belirtilmemiş
 28
 72
 21/01/2016
0
 
 
 
 31/10/2017,04:52
(10/09/2016 09:29)emir ustaoğlu Adlı Kullanıcıdan Alıntı: Sayın Mettleshade;

Öncelikle Site Kuralları gereği, hazırlamış olduğunuz örneğinizi içeriğinde sonuçları görmek için farazi gerçek dışı 5-10 kayıt barındıracak şekilde konunuza dahil ediniz.

Alıntı:  ögrenci bilgileri kayıt etmek istiyorum ama veritabanına degilde excele okul için bir uygulama yapıp satmak istiyorum

İfadenize yönelik olarak;
Burada yapmak istediğiniz işlem verilerinizi veritabanı'na değilde (Sql/Access) excelemi kayıt etmek istiyorsunuz ? Yada hali hazırda olan verilerinizi excele mi göndermek istiyorsunuz ?

Eğer hali hazırda olan verilerinizi excele göndermek istiyorsanız aşağıdaki kodu kullana bilirsiniz;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim excel As New Microsoft.Office.Interop.Excel.Application()
        excel.Visible = True
        Dim workbook As Microsoft.Office.Interop.Excel.Workbook = excel.Workbooks.Add(System.Reflection.Missing.Value)
        Dim sheet1 As Microsoft.Office.Interop.Excel.Worksheet = DirectCast(workbook.Sheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        Dim StartCol As Integer = 1
        Dim StartRow As Integer = 1

        For j As Integer = 0 To DataGridView1.Columns.Count - 1
            Dim myRange As Microsoft.Office.Interop.Excel.Range = DirectCast(sheet1.Cells(StartRow, StartCol + j), Microsoft.Office.Interop.Excel.Range)
            myRange.Value2 = DataGridView1.Columns(j).HeaderText
        Next
        StartRow += 1
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            For j As Integer = 0 To DataGridView1.Columns.Count - 1

                Try
                    Dim myRange As Microsoft.Office.Interop.Excel.Range = DirectCast(sheet1.Cells(StartRow + i, StartCol + j), Microsoft.Office.Interop.Excel.Range)
                    myRange.Value2 = If(DataGridView1(j, i).Value Is Nothing, "", DataGridView1(j, i).Value)
                Catch
                End Try

            Next
        Next


Yapmak istediğiniz işlem farklı ise lütfen örneğinizle birlikte sorunuzu tam olarak belirtiniz.

Bilgilerinize
Saygılar.


Üstadım bilgi için teşekkürler ama benim anlatmak istedigim hani bi en basitinden stok programı yaptık office acces ile aynı o biçimde ama bilgileri accese degilde office excel'e kayıt edecek.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü PDF veri toplama ve veritabanına kaydetme.. Uğur ŞİRİN 3 1.022 05/11/2017, 09:31
Son Yorum: alpeki99
Çözüldü Picturebox A Yazı Ekleme Ve Kaydetme drummers 5 972 04/07/2017, 17:44
Son Yorum: drummers
Çözüldü DataGridView dan Excele Veri Gönderme emir ustaoğlu 2 923 31/08/2016, 15:33
Son Yorum: emir ustaoğlu
Çözüldü ComboBoxtaki Degeri Kullanarak TextBoxa Veritabanından Veri Çekme (Resimli) Acil Yrdm Metlesshade 12 3.247 21/01/2016, 15:11
Son Yorum: Metlesshade
Çözüldü visual studio 2010 ile video oynatıcı yapmak umutakkaya 2 2.086 09/06/2014, 08:46
Son Yorum: umutakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.