vb.net复制sql表的简单介绍

VB.NET中如何用SQL语句建表（复制表）？谢谢了！

分类: 电脑/网络 程序设计 其他编程语言

创新互联主要从事做网站、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务天峻,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108

问题描述:

在SQL数据库里已有一个现成的空数据表（只有字段、没有数据），请问高手，怎样在VB.NET中用SQL语句把该数据库中的那个表复制一个到该数据库（字段不变、数据为空）只是把数据表的名改了？

谢谢！谢谢！

解析:

select * into 新表 from 旧表

使用 SELECT INTO 插入行

SELECT INTO 语句创建一个新表，并用 SELECT 的结果集填充该表。新表的结构由选择列表中表达式的特性定义，例如：

SELECT Shippers.*, Link.Address, Link.City,

Link.Region, Link.PostalCode

INTO NewShippers

FROM Shippers

JOIN LinkServer.DB.dbo.Shippers AS Link

ON (Shippers.ShipperID = Link.ShipperID)

SELECT INTO 可将几个表或视图中的数据组合成一个表。也可用于创建一个包含选自链接服务器的数据的新表。

请问高手：如何在VB.NET中实现把SQL数据库里表的数据导入到Excel中？谢谢！

这个我是这么实现的.要用到

Excel.Application

Set xlapp = CreateObject("Excel.Application") '激活EXCEL

xlapp.Visible = True '让EXCEL可见

Set xlbook = xlapp.Workbooks.Open(App.Path + "个人简历.xlt")

'打开工作簿，strDestination为一个EXCEL报表文件

Set xlsheet = xlbook.Worksheets(1) '设定工作表

这个有点像是vb6的、vb.net也有相应的方法的.总之是

excel.application 用到这个就可以了.必要的话导入excel的dll文件.

这样你就发现、可以用vb.net来对excel来操作.你可以查下微软的msdn、有具体的属性方法.

如:

Dim ef As New Excel.Application

Dim es As New Excel.Worksheet

Dim er As Excel.Range

ef.Workbooks.Add()

es = ef.Worksheets("sheet1")

es.Activate()

er = es.Range("a1:C1")

er.Select()

er.Merge()

er.Value = "gordon1117" ef.Visible = True 目前应用了三个对象:application,worksheet和range,三者的关系应该清晰,做到这点就能从基本开始做了:)格式设置都在range对象,只不过在设置对齐属性上是verticalalignment和horizon

range 用来定位、

然后你可以循环把数据输出到指定了格式的excel文件里了吧、其实连格式都是可以程序控制的好好学下吧.

可以参考一下这篇文章

如何在VB.NET中实现把SQL数据库里表的数据导入到Excel中？

asp.net 中将gridview数据导入到excel的类 usingSystem; usingSystem.Data; usingSystem.Configuration; usingSystem.IO; usingSystem.Web; usingSystem.Web.Security; usingSystem.Web.UI; usingSystem.Web.UI. WebControls; usingSystem.Web.UI. WebControls.WebParts; usingSystem.Web.UI. HtmlControls; ///summary /// ////summary publicclass GridViewExportUtil { ///summary /// ////summary ///paramname="fileName" /param ///paramname="gv"/ param publicstaticvoidExport( stringfileName,GridViewgv) { HttpContext.Current. Response.Clear(); HttpContext.Current. Response.AddHeader( "content- disposition",string.Format(" attachment;filename={0}", System.Web.HttpUtility. UrlEncode(fileName,System. Text.Encoding.UTF8))); HttpContext.Current. Response.ContentType=" application/ms-excel"; HttpContext.Current. Response.Charset="utf-8"; HttpContext.Current. Response.ContentEncoding= System.Text.Encoding. GetEncoding("utf-8"); using(StringWriter sw=newStringWriter()) { using( HtmlTextWriterhtw=new HtmlTextWriter(sw)) { //Createa formtocontainthegrid Tabletable= newTable(); //addthe headerrowtothetable if(gv. HeaderRow!=null) { GridViewExportUtil. PrepareControlForExport(gv. HeaderRow); table. Rows.Add(gv.HeaderRow); } //addeach ofthedatarowstothetable foreach( GridViewRowrowingv.Rows) { GridViewExportUtil. PrepareControlForExport(row); table. Rows.Add(row); } //addthe footerrowtothetable if(gv. FooterRow!=null) { GridViewExportUtil. PrepareControlForExport(gv. FooterRow); table. Rows.Add(gv.FooterRow); } //render thetableintothehtmlwriter table. RenderControl(htw); //render thehtmlwriterintothe response HttpContext. Current.Response.Write(sw. ToString()); HttpContext. Current.Response.End(); } } } 作者： 后天美丽 2007-8-31 09:24 回复此发言 2 回复： asp.net 中将gridview数据导入到excel 的类 ///summary ///Replaceanyofthe containedcontrolswith literals ////summary ///paramname="control"/ param privatestaticvoid PrepareControlForExport( Controlcontrol) { for(inti=0;icontrol. Controls.Count;i++) { Controlcurrent=control. Controls[i]; if(currentisLinkButton) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asLinkButton).Text)); } elseif(currentis ImageButton) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asImageButton).AlternateText) ); } elseif(currentis HyperLink) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asHyperLink).Text)); } elseif(currentis DropDownList) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asDropDownList).SelectedItem. Text)); } elseif(currentisCheckBox) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asCheckBox).Checked?"True" :"False")); } if(current.HasControls()) { GridViewExportUtil. PrepareControlForExport( current); } } } }

VB复制SQL数据库结构

不用这么麻烦。你

程序

记录一下

版本号

，再根据版本号，把要更新的数据库表

结构

转成

SQL

代码，升级时执行一遍就行了