Dim Grdbuy1 As New ADODB.Recordset
cn.ConnectionString = ConnStr
cn.Open
cn.Execute "INSERT INTO cbjl(NAME,DECE_ONE,DECE_DEC,THIS_DATE) " & _
"select * from openrowset('microsoft.jet.oledb.4.0','excel 8.0;database=D:\热量表程序\test.xls;imex = 1',sheet1$);"
这样写,如果有数据库里的字段是数值型的导入有问题,说是无法把nvarchar转换为number?
cn.ConnectionString = ConnStr
cn.Open
cn.Execute "INSERT INTO cbjl(NAME,DECE_ONE,DECE_DEC,THIS_DATE) " & _
"select * from openrowset('microsoft.jet.oledb.4.0','excel 8.0;database=D:\热量表程序\test.xls;imex = 1',sheet1$);"
这样写,如果有数据库里的字段是数值型的导入有问题,说是无法把nvarchar转换为number?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货