[VB.NET]救助:将vb代码转换成vb.net????
发布时间：2020-12-16 23:39:14 所属栏目：大数据 来源：网络整理
导读：救助:将vb代码转换成vb.net???? 可以将以下vb代码转换成vb.net吗??? dim xlbook as excel.workbook dim xlsheet as excel.worksheet dim cs as connection dim rstu as recordset private sub form_load() set cs=new connection cs.open dsn=stud;uid=sa;pw
|
救助:将vb代码转换成vb.net???? 可以将以下vb代码转换成vb.net吗??? dim xlbook as excel.workbook dim xlsheet as excel.worksheet dim cs as connection dim rstu as recordset private sub form_load() set cs=new connection cs.open dsn=stud;uid=sa;pwd=; end sub private sub cmddbtoexcel_click() dim i,h as integer set rstu=new recordset rstu.open select * from student,cs,adopenkeyset,adlockoptimistic set xlapp=new excel.application set xlapp=createobject( excel application ) xlapp.visible=true set xlbook=xlapp.workbooks.add set xlsheet=xlbook.worksheets(1) for i=1 to rstu.fields.count xlsheet.cells(1,i)=rstu(i-1).name next h=2 do while rstu.EOF=False for i=1 to rstu.fields.count xlsheet.cells(h,i)=rstu(i-1) next rstu.movenext h=h+1 loop xlbook.saveas(app.path& /ss.xls ) end sub 非常感谢..... __________________________________________________________________________ lz不如把这段代码要实现的功能说明一下，然后给这段代码适当地加些注释。 __________________________________________________________________________ 看意思好像是把SQL Server中的数据存到Excel文件中是么？我谢谢看。 __________________________________________________________________________ 升级向导.. __________________________________________________________________________ 我靠好象也是把SQL Server中的数据存到Excel文件中 加一下注释 __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |