程序如下: Sub handlefile(sender as object,e as eventargs)
Dim strConn As String '定义数据连接字符串
Dim SQL As String '定义SQL语句
Dim odConn As OleDbConnection
Dim odAdapt As OleDbDataAdapter
dim comm as oledbcommand
Dim DS As DataSet '创建DataSet对象
Dim DT As DataTable '创建DataTable对象
Dim nStart As Integer '存放当前页面的起始记录序号
Dim nEnd As Integer '存放当前页面的终止记录序号
Dim i As Integer
SQL = "SELECT * FROM gt "
strConn = "Provider=SQLOLEDB.1;User ID=sa;Password=zsldf;Initial Catalog=bc_serch;Data Source=21.140.192.33;Connect Timeout=120"
odConn = New OleDbConnection ( strConn )
odAdapt = New OleDbDataAdapter
comm=new oledbcommand(SQL,odconn)
odAdapt.selectcommand=comm
DS = New DataSet
odAdapt.Fill ( DS ,"gt") DIM objExcelApp AS new EXCEL.APPLICATION
DIM objExcelBook AS EXCEL.WORKBOOK
dim objExcelSheets as excel.sheets
DIM objExcelSheet AS EXCEL.WORKSHEET
DIM oCells as Excel.Range
objExcelApp.WorkBooks.Open(left(Server.MapPath(Request.ApplicationPath),len(Server.MapPath(Request.ApplicationPath))-7)&"bc_web\uploadfile\"&session("fn") &"")
objExcelBook = objExcelApp.ActiveWorkBook
objExcelSheets = objExcelBook.Worksheets
objExcelSheet = objExcelBook.Sheets(1)
'objExcelApp.visible=false
dim aa as string=objExcelApp.Cells(1,1)dim myAddData as string= "insert into gt(机构号) values ('"&aa &"')"
dim myCmd as OleDbCommand = new OleDbCommand(myAddData, odConn)
myCmd.Connection.Open()
myCmd.ExecuteNonQuery()
myCmd.connection.close()
objExcelApp.quit
End Sub问题出在:dim aa as string=objExcelApp.Cells(1,1)
错误:异常详细信息: System.InvalidCastException: 从类型“Range”到类型“String”的强制转换无效。
请帮忙解决,急!!!!
Dim strConn As String '定义数据连接字符串
Dim SQL As String '定义SQL语句
Dim odConn As OleDbConnection
Dim odAdapt As OleDbDataAdapter
dim comm as oledbcommand
Dim DS As DataSet '创建DataSet对象
Dim DT As DataTable '创建DataTable对象
Dim nStart As Integer '存放当前页面的起始记录序号
Dim nEnd As Integer '存放当前页面的终止记录序号
Dim i As Integer
SQL = "SELECT * FROM gt "
strConn = "Provider=SQLOLEDB.1;User ID=sa;Password=zsldf;Initial Catalog=bc_serch;Data Source=21.140.192.33;Connect Timeout=120"
odConn = New OleDbConnection ( strConn )
odAdapt = New OleDbDataAdapter
comm=new oledbcommand(SQL,odconn)
odAdapt.selectcommand=comm
DS = New DataSet
odAdapt.Fill ( DS ,"gt") DIM objExcelApp AS new EXCEL.APPLICATION
DIM objExcelBook AS EXCEL.WORKBOOK
dim objExcelSheets as excel.sheets
DIM objExcelSheet AS EXCEL.WORKSHEET
DIM oCells as Excel.Range
objExcelApp.WorkBooks.Open(left(Server.MapPath(Request.ApplicationPath),len(Server.MapPath(Request.ApplicationPath))-7)&"bc_web\uploadfile\"&session("fn") &"")
objExcelBook = objExcelApp.ActiveWorkBook
objExcelSheets = objExcelBook.Worksheets
objExcelSheet = objExcelBook.Sheets(1)
'objExcelApp.visible=false
dim aa as string=objExcelApp.Cells(1,1)dim myAddData as string= "insert into gt(机构号) values ('"&aa &"')"
dim myCmd as OleDbCommand = new OleDbCommand(myAddData, odConn)
myCmd.Connection.Open()
myCmd.ExecuteNonQuery()
myCmd.connection.close()
objExcelApp.quit
End Sub问题出在:dim aa as string=objExcelApp.Cells(1,1)
错误:异常详细信息: System.InvalidCastException: 从类型“Range”到类型“String”的强制转换无效。
请帮忙解决,急!!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货