问SQL Server 2008导入数据向导无法识别列的整数数据

EN

您的意思是，您有FF5或620作为该列的值，这意味着您有一个或另一个，而没有其他值，或者该列中也有空白字段？

我尝试使用VB6.0中的excel库引用来读取Excel。

因为在将数据导出到SQL表时，SSIS导入向导会将NUMERIC视为NULL。

此过程非常适用于数据插入和其他数据库操作。

Error GoTo errHandler上的

私有子AccessExcelData()

Dim oXLApp As Excel.Application‘声明对象变量

Dim oXLBook As Excel.Workbook

Dim oXLSheet As Excel.worksheet

Dim strFileName As String

Dim lCount As Long

Dim strSCDName As String

Dim strICDName As String

作为整数的Dim intSource_Index

Dim strInput_Port As String

Dim strLabel As String

Dim strSDI_CID As String

作为整数的Dim intWordBitNO

Dim strFilter_Type As String

Dim strPgroup_Input As String

Dim strParagraph_Input As String

Dim strSQL As String Dim sConnString As String

作为新ADODB.Connection的Dim cnTest

作为新ADODB.Recordset的Dim rsTempRecordset

作为新FmmtDataAccess.clsDataAccess的Dim objDataAccess

Dim strxmlResult As String

objDataAccess.Intialize ConString

strFileName = App.Path & "\IODE.xls“

sConnString = "Server=uasql\commonsql;Database=accounts;Driver=SQL Server;Trusted_Connection=Yes;DSN=uasql\commonsql“

使用cnTest

   .ConnectionString = sConnString

   .ConnectionTimeout = 4

   .CursorLocation = adUseClient

   .Open

结尾为

‘创建excel工作表的一部分。

设置oXLApp = CreateObject("Excel.Application")

‘创建Excel的新实例

oXLApp.Visible = False

‘不将其显示给用户

Set oXLBook = oXLApp.Workbooks.Open(strFileName)‘打开现有工作簿

Set oXLSheet = oXLBook.Worksheets(1)‘使用第一个工作表oXLSheet.Activate

使用oXLApp

对于lCount =2到oXLSheet.UsedRange.Rows.Count

strSCDName = .Cells(lCount，1).Value

strICDName = .Cells(lCount，2).Value

intSource_Index = .Cells(lCount，3).Value

strInput_Port = .Cells(lCount，4).Value

strLabel = .Cells(lCount，5).Value

strSDI_CID = .Cells(lCount，6).Value

intWordBitNO = .Cells(lCount，7).Value

strFilter_Type = .Cells(lCount，8).Value

strPgroup_Input = .Cells(lCount，9).Value

strParagraph_Input = .Cells(lCount，10).Value

'strSQL = "Insert into XYX () values (strSCDName ..... )这里可以使用任何与数据库相关的查询

rsTempRecordset.Open strSQL，cnTest，adOpenForwardOnly，adLockReadOnly Next

结尾为

‘关闭excel工作表的一部分。

oXLApp.Visible = False‘不将其显示给用户

Set oXLSheet = Nothing‘断开与所有Excel对象的连接(让用户接管)

oXLBook.Close SaveChanges:=False‘保存工作簿(与工作簿断开连接)

设置oXLBook = Nothing

oXLApp.Quit关闭(和断开) Excel

设置oXLApp = Nothing

退出SuberrHandler：

MsgBox Err.Description

Screen.MousePointer = vbNormalEnd Sub

利用此过程，可以从vb应用程序中读取excel记录，并将其插入到SQL数据库中已有的表中。谢谢拉姆