使用vb.net从数据库导出到.csv文件/ .txt文件 [英] export to .csv file / .txt file from database using vb.net

问题描述

大家好，我这里有一个代码，用于转换.csv /中的数据库。 txt文件，我在使用 Dim pFun As New PageFunctions 时出现错误，因为我使用 Imports System.Windows.Navigation 仍然存在系统错误..请帮助或分享任何更换此错误的想法感谢



选项明确开启

  Imports  System.Configuration 
  Imports  System.Data 
  Imports  System.Net.Mail 
  Imports  System.Runtime.InteropServices.Marshal 
  Imports  System.IO 
  Imports  System.Web 
  Imports  System.Web.Security 
  Imports  System.Web.UI 
  Imports  System.Web.UI.WebControls 
  Imports  System.Web.UI.WebControls.WebParts 
  Impor ts  System.Web.UI.HtmlControls 
  Imports  System.Data.SqlClient 
  Imports  System.Text 
  Imports  System.Windows.Navigation 
 
 部分 类 GetTextFile 
 继承 System.Web.UI.Page 
 
  Dim  pFun 作为 新 PageFunctions 
 
 受保护的  Sub  Page_Load（ ByVal 发​​件人作为 对象， ByVal  e  As  System.EventArgs）句柄 我 .Load 
 如果 不 IsPostBack 那么 
 如果 不 pFun.IsUserLoggedIn 那么 
响应。重定向（  Login.aspx）
 否则 
  Dim  dt  As  新 Data.DataTable 
 
  Dim  strViewDate  As  字符串 = 字符串 .Empty 
  Dim  dVDate  As  DateTime = Now 
  Dim  strAcctNo  As   String  =  String  .Empty 
  Dim  strTelNo 作为 字符串 = 字符串 .Empty 
  Dim  strEmail  As   String  = 字符串 .Empty 
  Dim  strPostDate 作为 字符串 = 字符串 .Empty 
 < span class =code-keyword> Dim  dPostDate  As  DateTime = Now 
  Dim  strRef 作为 字符串 = 字符串 .Empty 
 
  Dim  sDelimiter  As   String  =   
  Dim  delimiter  As   String  =    
 
  Dim  sDateFormat 作为 字符串 =    
 
 如果 Page.Request.Item（ < span class =code-string> delimiter）   Nothing  然后 
 sDelimiter =   tab 
 其他 
 sDelimiter = Page.Request.Item（  delimiter）。ToString.ToLower 
 结束 如果 
 
 如果 sDelimiter =  逗号 然后 
 delimiter =  ， 
  ElseIf  sDelimiter =   tab 然后 
 delimiter = vbTab 
  Else  
 delimiter = vbTab 
 结束 如果 
 
 如果 Page.Request.Item（  dateformat）   Nothing  然后 
 sDateFormat =格式（< span class =code-keyword> CDate （ Date  .Now.ToShortDateString），  yyyyMMdd）
 否则 
 sDateFormat = Page.Request.Item（< span class =code-string>  dateformat）。ToString 
 结束 如果 

解决方案

http：//halmsolvedbugs.blogspot。 COM /十分之二千零十三/怎么样了出口到CSV-和-TXT-从-vbnet.html

Hi everyone i have a code here that convert database in .csv /. txt file where i having an error by using Dim pFun As New PageFunctions as i use Imports System.Windows.Navigation still there is system error behind.. please help or share any ideas to replace this error thanks

Option Explicit On

Imports System.Configuration
Imports System.Data
Imports System.Net.Mail
Imports System.Runtime.InteropServices.Marshal
Imports System.IO
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Data.SqlClient
Imports System.Text
Imports System.Windows.Navigation

Partial Class GetTextFile
    Inherits System.Web.UI.Page

    Dim pFun As New PageFunctions

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If Not pFun.IsUserLoggedIn Then
                Response.Redirect("Login.aspx")
            Else
                Dim dt As New Data.DataTable

                Dim strViewDate As String = String.Empty
                Dim dVDate As DateTime = Now
                Dim strAcctNo As String = String.Empty
                Dim strTelNo As String = String.Empty
                Dim strEmail As String = String.Empty
                Dim strPostDate As String = String.Empty
                Dim dPostDate As DateTime = Now
                Dim strRef As String = String.Empty

                Dim sDelimiter As String = ""
                Dim delimiter As String = ""

                Dim sDateFormat As String = ""

                If Page.Request.Item("delimiter") Is Nothing Then
                    sDelimiter = "tab"
                Else
                    sDelimiter = Page.Request.Item("delimiter").ToString.ToLower
                End If

                If sDelimiter = "comma" Then
                    delimiter = ","
                ElseIf sDelimiter = "tab" Then
                    delimiter = vbTab
                Else
                    delimiter = vbTab
                End If

                If Page.Request.Item("dateformat") Is Nothing Then
                    sDateFormat = Format(CDate(Date.Now.ToShortDateString), "yyyyMMdd")
                Else
                    sDateFormat = Page.Request.Item("dateformat").ToString
                End If

解决方案

http://halmsolvedbugs.blogspot.com/2013/10/hows-export-to-csv-and-txt-from-vbnet.html

这篇关于使用vb.net从数据库导出到.csv文件/ .txt文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！