Skip to main content

AccessTr.neT


Veri aktarımında hata

Veri aktarımında hata

Çözüldü #1
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
Çözüldü #2
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.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
Çözüldü #3
(29/11/2011, 23:25)alpeki99 yazdı:
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.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

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

Yorum yapmak için üye olmanız gerekiyor

ya da