+ -
当前位置:首页 → 问答吧 → 请教:从vb把excle导入sql,在sql中返回所有行,发现excle数据的 列 顺序混乱了。怎么解决呢?

请教:从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

作者: superjoson21   发布时间: 2011-09-07

你的表加一列自动序号,然后用的时候按自动序号排序

作者: koohhj   发布时间: 2011-09-07

热门下载

更多