Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
29/11/2011 22:42
Konu Sahibi
drummers
Yorumlar
2
Okunma
1532
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çözüldü 
Projemde Access veritabanından verilerimi textboxlara, gatagride aktarıyorum. Kayıt ekleme silme işlemi yapıyorum. Buraya kadar sorun yok. Fakat iş textboxlara gelen verileri bir Excel dosyasındaki hücrelere aktarmaya geldiğinde burda işin içinden çıkamadım.

Referanslarım bunlar

Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbCommand
Imports System.Data


Üstteki referanslara ilaveten

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

Bunlarıda aynı anda nasıl kullanırım. Projem VB 2010. Teşekürler


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

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çözüldü 
Alıntı: public void gridden_excele(Control grid_adi, string excel_cikti_adi, string sayfa_mesaji)
{

//Dil Farkını Önlemek İçin
System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-us");
Microsoft.Office.Interop.Excel._Application app = new Microsoft.Office.Interop.Excel.Application();
Microsoft.Office.Interop.Excel._Workbook workbook = app.Workbooks.Add(Type.Missing);
Microsoft.Office.Interop.Excel._Worksheet worksheet = null;
app.Visible = false;

worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Sheets["Sayfa1"];
worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.ActiveSheet;

worksheet.Name = sayfa_mesaji;

for (int i = 1; i < (grid_adi as DataGridView).Columns.Count + 1; i++)
{
worksheet.Cells[1, i] = (grid_adi as DataGridView).Columns[i - 1].HeaderText;
}

for (int i = 0; i < (grid_adi as DataGridView).Rows.Count - 1; i++)
{

for (int j = 0; j < (grid_adi as DataGridView).Columns.Count; j++)
{

worksheet.Cells[i + 2, j + 1] = (grid_adi as DataGridView).Rows[i].Cells[j].Value.ToString();

}

}

string masaustu = Environment.GetFolderPath(Environment.SpecialFolder.Desktop);

workbook.SaveAs(masaustu + "\\" + excel_cikti_adi + ".xls", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive, Type.Missing, Type.Missing, Type.Missing, Type.Missing);

app.Quit();

MessageBox.Show("Masaüstünde istemiş olduğunuz Excel dosyası oluşturuldu.", "İşlem Tamam", MessageBoxButtons.OK,MessageBoxIcon.Information);
} // gridden excele bitti


Ben c# ile gridten excele bu şekilde veriyorum. İsterseniz bir inceleyin fikir verir. Diğer yandan Vb.Net için aşağıdaki kaynağı bir inceleyin isterseniz:

Kod:
http://www.codeproject.com/KB/vb/Senthil_S__Software_Eng_.aspx


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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çözüldü 
(29/11/2011, 23:25)alpeki99 Adlı Kullanıcıdan Alıntı:
Alıntı: public void gridden_excele(Control grid_adi, string excel_cikti_adi, string sayfa_mesaji)
{

//Dil Farkını Önlemek İçin
System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-us");
Microsoft.Office.Interop.Excel._Application app = new Microsoft.Office.Interop.Excel.Application();
Microsoft.Office.Interop.Excel._Workbook workbook = app.Workbooks.Add(Type.Missing);
Microsoft.Office.Interop.Excel._Worksheet worksheet = null;
app.Visible = false;

worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Sheets["Sayfa1"];
worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.ActiveSheet;

worksheet.Name = sayfa_mesaji;

for (int i = 1; i < (grid_adi as DataGridView).Columns.Count + 1; i++)
{
worksheet.Cells[1, i] = (grid_adi as DataGridView).Columns[i - 1].HeaderText;
}

for (int i = 0; i < (grid_adi as DataGridView).Rows.Count - 1; i++)
{

for (int j = 0; j < (grid_adi as DataGridView).Columns.Count; j++)
{

worksheet.Cells[i + 2, j + 1] = (grid_adi as DataGridView).Rows[i].Cells[j].Value.ToString();

}

}

string masaustu = Environment.GetFolderPath(Environment.SpecialFolder.Desktop);

workbook.SaveAs(masaustu + "\\" + excel_cikti_adi + ".xls", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive, Type.Missing, Type.Missing, Type.Missing, Type.Missing);

app.Quit();

MessageBox.Show("Masaüstünde istemiş olduğunuz Excel dosyası oluşturuldu.", "İşlem Tamam", MessageBoxButtons.OK,MessageBoxIcon.Information);
} // gridden excele bitti

Ben c# ile gridten excele bu şekilde veriyorum. İsterseniz bir inceleyin fikir verir. Diğer yandan Vb.Net için aşağıdaki kaynağı bir inceleyin isterseniz:

Kod:
http://www.codeproject.com/KB/vb/Senthil_S__Software_Eng_.aspx



Güzel. Teşekürler


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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB veri tabanı güncellemede hata hatice.haa 2 849 30/05/2015, 21:02 hatice.haa
Çözüldü Silme işleminde hata alıyorum cix06 2 2.379 29/08/2014, 11:30 cix06
Çözüldü Form2 içinde ComboBox4 (cinsiyet verisi) veri girdiğimde hata veriyor mtaser 1 1.371 25/06/2014, 17:54 alpeki99
Çözüldü komut nesnesi.ExecuteNonQuery() hata veriyor silme işlemi gerçekleşmiyor mtaser 3 2.492 19/06/2014, 09:58 mtaser
Çözüldü Kayıt Ekleme Sırasında Hata TheDeceit 7 2.431 11/04/2014, 11:13 alpeki99

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