将数据从SQL Server转换为DBF文件日期错误

问题描述

我想将数据从sql server导出到dbf文件。下面的查询没有日期。但是，当我添加日期时，它不起作用。请解决我的问题，在此先感谢。 [错误是：INSERT INTO错误]

Dim dv As DataView = datacls.fnGetdata(sql_X,ClsDataConnection.DMode.D_DataView)
Dim dt As New DataTable ' // assuming this is already populated from your SQL Database.
Dim buildInsert As StringBuilder = New StringBuilder
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\a\;Extended Properties=dBASE IV;"

Dim connection As OleDbConnection = New OleDbConnection(connectionString)
Dim scriptCommand As OleDbCommand = connection.CreateCommand

Dim str_sr_no As String = ""
Dim str_date As String = ""
Dim str_book As String = ""
Dim str_vchseries As String = ""
Dim str_vchno As String = ""
Dim str_accode As String = ""
Dim str_achead As String = ""
Dim str_city As String = ""
Dim str_narration As String = ""
Dim str_debit As String = ""
Dim str_credit As String = ""


For x = 0 To dv.Count - 1
    'sr_No,DT,'B' Book,'B' VCHseries,[VCH No],[Accode],'' [AcHead],[City],narration,debit,credit
    str_sr_no = dv(x).Item("lineno").ToString
    str_date = Format(CDate(dv(x).Item("date")),"MM/dd/yyyy")
    str_book = dv(x).Item("Book").ToString
    str_vchseries = dv(x).Item("VCHseries").ToString
    str_vchno = dv(x).Item("VCHNo").ToString
    str_accode = dv(x).Item("Accode").ToString
    str_achead = dv(x).Item("AcHead").ToString
    str_city = dv(x).Item("City").ToString
    str_narration = dv(x).Item("narration").ToString
    str_debit = dv(x).Item("debit").ToString
    str_credit = dv(x).Item("credit").ToString
    Dim ndt As Date = Date.Now()

    scriptCommand.CommandType = CommandType.Text
    scriptCommand.CommandText = "INSERT INTO Fe130328.DBF (LINENO,DATE,BOOK,VCHSERIES,VCHNO,ACCODE,ACHEAD,CITY,NARRATION,DEBIT,CREDIT) VALUES ('" & str_sr_no & "','" & ndt & "','" & str_book & "','" & str_vchseries & "','" & str_vchno & "','" & str_accode & "','" & str_achead & "','" & str_city & "','" & str_narration & "','" & str_debit & "','" & str_credit & "')"

    connection.Open()
    scriptCommand.ExecuteNonQuery()
    connection.Close()
Next

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）