请教:从vb把excle导入sql,在sql中返回所有行,发现excle数据的 列 顺序混乱了。怎么解决呢?
时间:2011-09-07
来源:互联网
小弟想做一个”奖学金”评定系统。通过vb把已有的数据(该班学生考试学号,姓名,科目,及各科成绩)导入sql中,然后在sql中进行处理。最后导出修改后的表。导入导出和处理均没有问题,可是导出的表却出现与原表的列不对应的情况,经分析小弟确认是刚刚导入sql是表的列就发生了改变。然后我觉得可能是第一行的中文(科目名:汇编语言等等太长)的原因。所以在第一行前面再加一行,分别写上a,b,c,d,导入后不会乱序,但相应的科目那一列到第二行就为"null"了,查看属性,数据类型为float. 请问我该怎么该才能达到导入后不乱序的目的呢?
导入代码如下:
Private Sub inputexcel_Click()
Dim cn As New ADODB.Connection
Dim str As String
Dim path As String
CommonDialog1.FileName = "*.xls"
CommonDialog1.InitDir = "F:\vb做大学生综合系统\大学生综合测评系统\大学生综合测评系统"
CommonDialog1.Filter = "(*.xls)|*.xls|所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
path = CommonDialog1.FileName
str = "select * into 原始数据 from openrowset('MICROSOFT.JET.OLEDB.4.0','excel 5.0;hdr=yes;database=" & path & "',sheet1$)"
cn.Open "Driver={SQL Server};Server=PC-201105201503;DataBase=master;integrated_security=SSPI;"
cn.Execute str
MsgBox "ok"
End Sub
导入代码如下:
Private Sub inputexcel_Click()
Dim cn As New ADODB.Connection
Dim str As String
Dim path As String
CommonDialog1.FileName = "*.xls"
CommonDialog1.InitDir = "F:\vb做大学生综合系统\大学生综合测评系统\大学生综合测评系统"
CommonDialog1.Filter = "(*.xls)|*.xls|所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
path = CommonDialog1.FileName
str = "select * into 原始数据 from openrowset('MICROSOFT.JET.OLEDB.4.0','excel 5.0;hdr=yes;database=" & path & "',sheet1$)"
cn.Open "Driver={SQL Server};Server=PC-201105201503;DataBase=master;integrated_security=SSPI;"
cn.Execute str
MsgBox "ok"
End Sub
作者: superjoson21 发布时间: 2011-09-07
你的表加一列自动序号,然后用的时候按自动序号排序
作者: koohhj 发布时间: 2011-09-07
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28