VB.net如何在数据库中新建表

没有写完吧

任丘网站建设公司创新互联,任丘网站设计制作，有大型网站制作公司丰富经验。已为任丘近千家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱，请找那个售后服务好的任丘做网站的公司定做！

Try

sqlcom.ExecuteNonQuery()

Catch ae As SqlException

msgbox("fail")

End Try

VB.NET Word创建表格并录入文字

‘首先，创建一个VB.NET项目，再点击菜单”项目“-”添加引用“，在”Com“-”类型库“里，选择Microsoft.Word 14.0 Object Library（对应Office版本为2010），将以下代码复制粘贴到Form1窗体替换原代码。

’PS：以下代码仅创建表格，将第行2至4列合并，添加1个文字，其他的你自己分析。

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Word  '引入Word

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim DWrd As New Word.Application, DDoc As Word.Document '定义Word及文档对象

DDoc = DWrd.Documents.Add '新增文档

Dim DTbl As Word.Table  '定义表格对象

DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4)  '新增表格

DTbl.Style = "网格型"  '表格的样式

DTbl.Cell(1, 2).Select()  '选择起始单元格为第1行/第2列

DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended)  '向右扩展两个单元格(即选择第1行的第2至4列)

DWrd.Selection().Cells.Merge()  '单元格合并

DTbl.Cell(1, 1).Range.Text = 1  '在第1个单元格填写文本

DWrd.Visible = True '显示Word

End Sub

End Class

用vb.net 怎样建立一个mdb数据库及一张表

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

选择  Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建空的access数据库文件--数据库文件.mdb，密码为123

Dim Mycat As Catalog = New Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")

'以下代码创建一个名为“实验数据表”

Dim MyTable As ADOX.Table = New ADOX.Table         '定义新表

MyTable.Name = "实验数据表"    '表命名

'给表“实验数据表” 创建一个字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

'给表“实验数据表” 创建一个整数字段，字段名“学号”

MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)    '追加一个数字型字段

'给字段“学号”创建一个主键“PimaryKey_Field”        

MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

MyTable = Nothing

Mycat = Nothing

End Sub

End Class

VB.net 创建EXCEL的问题

项目——添加引用——com——microsoft excel 11.0 object library

Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序

Dim Xlsbook As Excel.Workbook '定义工作簿

Dim Xlssheet As Excel.Worksheet '定义工作表

Xls.Visible = True '显示excel 程序

Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路径\文件名")'打开已存在工作薄

Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄

MsgBox("EXCEL档案创建完毕！")

Xlssheet.Cells(1, 1) = "这是一个创建EXCEL的示例"

Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框

Sdlg.FileName = "*.xls" '保存对话框的默认文件名

Sdlg.Filter = "EXCEL档案(*.Xls)|*.Xls" '过滤器设置

If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下

Xlsbook.SaveAs(Sdlg.FileName) '保存文件

End If

Xlssheet = Nothing '释放资源

Xlsbook.Close() '关闭工作簿

Xlsbook = Nothing '释放资源

Xls.Quit() '退出excel应用程序

Xls = Nothing

分享题目：vb.net新建工作表,vbnet access创建表
文章分享：http://cdweb.net/article/hcccij.html