vb.net писатель, чтобы превзойти функцию, работающую на одном компьютере, но не на другом - PullRequest
Новая
       2

vb.net писатель, чтобы превзойти функцию, работающую на одном компьютере, но не на другом

0 голосов
/ 29 марта 2011

У меня есть функция vb.net, которая использует oledb для создания электронной таблицы, а затем обрабатывает ее как базу данных, создает таблицы и вставляет значения.Функция принимает имя файла и набор данных и возвращает имя файла, если оно сработало.Функция прекрасно работает на моем компьютере разработчика, но не на других компьютерах.Ниже моя функция, что-то не так с кодом?Любые предложения?

РЕДАКТИРОВАТЬ: не выдается никаких ошибок, результирующий файл не содержит никаких данных. 

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.IO
Imports System.Net.Mail
Imports System.Text
Imports System.Web
Imports Microsoft.Office.Interop

.... 

Public Shared Function writeToExcelFile(ByVal template As String, ByVal filename As String, ByVal data As DataSet) As String
    If File.Exists(filename) Then
        File.Delete(filename)
    End If
    If template <> String.Empty AndAlso filename <> String.Empty Then
        File.Copy(template, filename)
    End If

    Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filename + ";Extended Properties=""Excel 8.0;HDR=Yes;"""
    Dim conn As New OleDbConnection(connString)

    Try
        conn.Open()

        Dim cmd As New OleDbCommand()

        For Each table As DataTable In data.Tables
            Dim tableName As String = table.TableName.Replace(" ", "")

            Dim tableCreate As String = "CREATE TABLE [" + tableName + "] ("

            Dim sql As String = "INSERT INTO [" + tableName + "$]("
            Dim colName As String = String.Empty

        For Each col As DataColumn In table.Columns
            colName = col.ColumnName.Replace("#", "num")

            If colName.Contains(" ") Then
                sql += " [" + colName.Replace("'", "") + "],"
            Else
                sql += " " + colName.Replace("'", "") + ","
            End If

            tableCreate += " [" + colName + "] varchar(255),"
        Next

        If tableCreate.EndsWith(",") Then
            tableCreate = tableCreate.TrimEnd(New [Char]() {","c})
        End If

        tableCreate += ") "

        cmd = New OleDbCommand(tableCreate, conn)
        cmd.ExecuteNonQuery()

        If sql.EndsWith(",") Then
            sql = sql.TrimEnd(New [Char]() {","c})
        End If

        sql += ") "

        For Each row As DataRow In table.Rows
            Dim values As String = " VALUES("

            For Each col As DataColumn In table.Columns
                Try
                    values += "'" + cleanString(row(col).ToString()).Substring(0, 250) + "...',"
                Catch e As Exception
                    values += "'" + cleanString(row(col).ToString()) + "',"
                End Try
            Next

            If values.EndsWith(",") Then
                values = values.TrimEnd(New [Char]() {","c})
            End If

            values += ") "
            cmd = New OleDbCommand(sql + values, conn)
            cmd.ExecuteNonQuery()
        Next
    Next
    conn.Close()
    Return filename
Catch e As Exception
    Throw New Exception(e.Message)
    Return String.Empty
End Try
End Function

Ответы [ 2 ]

0 голосов
/ 31 марта 2011

Проблема не с этим кодом. Проблема с набором данных, который передается.

0 голосов
/ 29 марта 2011

Проверьте региональные настройки вашей системы по сравнению с региональными настройками других машин.Если они различаются, попробуйте сопоставить их.

Кроме того, при работе с Office Automation вы должны настроить культуру потока на en-US.Установите это непосредственно перед вызовом writeToExcelFile () (синтаксис C #): 

System.Threading.Thread.CurrentThread.CultureInfo = new System.Globalization.CultureInfo("en-US");

После вызова метода восстановите культуру (при необходимости).

...