老师;如何把 excel 中表的数据导入到sql server2000(用PB语句)
老师;如何把 excel 中表的数据导入到sql server2000(用PB语句)

我做一个学生成绩管理,当教师评分,登记在excel 中,如何通过程序把它导入到 sql server2000呢(pb 的窗口)

表的结构 学号 课程名称 分数 学期 学分
1001 数据通信 60 1 4
1001 英语 90 1 5

[解决办法]
OLEobject export_object

integer i,j,k

integer Excel_Handle, Return_Value, ii_ExcelWindowState = 1

long Excel_Status

export_object = Create OLEobject

//d_out_data_window是事先拉好的data window出所要的果

dw_1.DataObject = "d_out_data_window"

dw_1.SetTransObject(sqlca)

//Excel

Return_Value = export_object.ConnectToNewObject("excel.application")

If Return_Value <> 0 then

DESTROY export_object

MessageBox(" Excel","不能Microsoft Excel")

return

end if

//Excel示

export_object.Application.Visible = true

if ii_ExcelWindowState <> 0 then

export_object.WindowState = ii_ExcelWindowState

end if

//eFile.xls是事先已作好表格的Excel案

export_object.Workbooks.Open("eFile.xls")

//eFile.xls是事先已作好表格在Sheet1的工作export_object.WorkSheets("Sheet1").select()

//始值塞入Excel，右的值塞入Sheet1的M1

export_object.Range("M1").value = "台中市政府教育局"

export_object.Range("A4").value = "台中市民中生告"

export_object.Range("A5").value = "中民" + m_yy + "年~度第二期"

//Excel的某些位零

string zeroX[]={'E','F','H','I','J','K','L','M','N'}

string zeroY[]={'21','22','23','24','25','26','29'}

for i = 1 to 9

for j = 1 to 7

export_object.Range(zeroX[i] + zeroY[j]).value = 0

next

next

//caa1 … caa6，cbb1… cbb6是dw_1中的Fields Name

//塞入Excel某指定位置

for i = 1 to 4

for k = 0 to 5

export_object.Range("E" + zeroY[k]).value =

dw_1.getitemnumber(1,'caa'+string(k + 1))

export_object.Range("F" + zeroY[k]).value =

dw_1.getitemnumber(1,'cbb'+string(k + 1))

next

next

//列印出去

export_object.ActiveSheet.PrintOut()

//Excel的eFile.xls存

export_object.ActiveWorkbook.save()

//跳Excel

export_object.quit()

//

export_object.DisconnectObject()

//放

DESTROY export_object