vb.net创建空数据的简单介绍

vb.net sql数据库创建表

追问： 只有那个办法？ 回答： 是，这跟SQL Server不同，ACCESS是独立文件的，而且它能支持的SQL语句有限，一般是使用ACCESS来创建，若要动态创建，只能用ADO了，但Sql Server就不同了，它可以执行复杂的SQL语句，相对来说，动态创建数据库和表，要比ACCESS方便。 追问： 创建表的话能用SQL语句了吗？ 回答： 没试过，应该不行 追问： 那你能告诉我下怎么创建表吗？创建数据库我会了 回答： 可以使用DAO对象来操作，注意是DAO对象，不是ADO对象！ 追问： 能不能详细说下过程呢？创建表的过程 回答： 创建表的过程用DAO.net和ADO.net都可以，创建数据库可以用DAO对象，既然你已经可以创建数据库，那么创建表只要先连接到这个数据库，然后用create table语句来执行就行了，可以使用OledbConnection先连接这个库，接着用OledbCommand对象的ExecuteNonQuery来执行create table语句即可。

我们提供的服务有：成都做网站、成都网站建设、微信公众号开发、网站优化、网站认证、塔什库尔干塔吉克ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的塔什库尔干塔吉克网站制作公司

是否可以解决您的问题？

用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创建空文本文件的方法？

创建空文本文件（有时被叫做“文本流”）有三种方法。

第一种方法是用 CreateTextFile 方法。 下面的示例示范了在 VBScript 中如何用这种方法来创建文本文件：

Dim fso, f1

Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.CreateTextFile("c:\testfile.txt", True)

要在 Visual Basic Scripting Edition 中用这种方法，则使用下面的代码：

var fso, f1;

fso = new ActiveXObject("Scripting.FileSystemObject");

f1 = fso.CreateTextFile("c:\\testfile.txt", true);

创建文本文件的第二种方法是，使用 FileSystemObject 对象的 OpenTextFile 方法，并设置

ForWriting 标志。在 VBScript 中，代码就像下面的示例一样：

Dim fso, ts

Const ForWriting = 2

Set fso = CreateObject("Scripting. FileSystemObject")

Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)

要在 Visual Basic Scripting Edition 中使用这种方法来创建文本文件，则使用下面的代码：

var fso, ts;

var ForWriting= 2;

fso = new ActiveXObject("Scripting.FileSystemObject");

ts = fso.OpenTextFile("c:\\test.txt", ForWriting, true);

创建文本文件的第三种方法是，使用 OpenAsTextStream 方法，并设置 ForWriting

标志。要使用这种方法，在 VBScript 中使用下面的代码：

Dim fso, f1, ts

Const ForWriting = 2

Set fso = CreateObject("Scripting.FileSystemObject")

fso.CreateTextFile ("c:\test1.txt")

Set f1 = fso.GetFile("c:\test1.txt")

Set ts = f1.OpenAsTextStream(ForWriting, True)

在 Visual Basic Scripting Edition 中，则使用下面示例中的代码：

var fso, f1, ts;

var ForWriting = 2;

fso = new ActiveXObject("Scripting.FileSystemObject");

fso.CreateTextFile ("c:\\test1.txt");

f1 = fso.GetFile("c:\\test1.txt");

ts = f1.OpenAsTextStream(ForWriting, true);

添加数据到文件中

一旦创建了文本文件，使用下面的三个步骤向文件添加数据：

打开文本文件。

写入数据。

关闭文件。

要打开现有的文件，则使用 FileSystemObject 对象的 OpenTextFile 方法或 File 对象的 OpenAsTextStream

方法。

要写数据到打开的文本文件，则根据下表所述任务使用 TextStream 对象的 Write、WriteLine 或 WriteBlankLines

方法。

任务

方法

向打开的文本文件写数据，不用后续一个新行字符。

Write

向打开的文本文件写数据，后续一个新行字符。

WriteLine

向打开的文本文件写一个或多个空白行。

WriteBlankLines

要关闭一个打开的文件，则使用 TextStream 对象的 Close 方法。

注意 新行字符包含一个或几个字符（取决于操作系统），以把光标移动到下一行的开始位置（回车/换行）。注意某些字符串末尾可能已经有这个非打印字符了。

下面的 VBScript 例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件：

Sub CreateFile()

Dim fso, tf

Set fso = CreateObject("Scripting.FileSystemObject")

Set tf = fso.CreateTextFile("c:\testfile.txt", True)

' 写一行，并且带有新行字符。

tf.WriteLine("Testing 1, 2, 3.")

'向文件写三个新行字符。

tf.WriteBlankLines(3)

'写一行。

tf.Write ("This is a test.")

tf.Close

End Sub

这个示例示范了在 Visual Basic Scripting Edition 中如何使用这三个方法：

function CreateFile()

{

var fso, tf;

fso = new ActiveXObject("Scripting.FileSystemObject");

tf = fso.CreateTextFile("c:\\testfile.txt", true);

// 写一行，并且带有新行字符。

tf.WriteLine("Testing 1, 2, 3.") ;

// 向文件写三个新行字符。

tf.WriteBlankLines(3) ;

// 写一行。

tf.Write ("This is a test.");

tf.Close();

}

vb.net中怎么创建xml文件并写数据

DataSet 和 DataTable都有现成的方法：WriteXml

DataTable tb = this.dataGridView1.DataSource as DataTable;

if(tb != null)

{

tb.WriteXml(@"C:\table.xml",true);

return;

}

DataView dv = this.dataGridView1.DataSource as DataView;

if(dv != null)

{

dv.Table.WriteXml(@"C:\table.xml",true);

return;

}

IList list = this.dataGridView1.DataSource as IList;

if(list != null)

{

//to do,如果是IList,就要你自己想办法导出了

//XmlDocument or XmlWriter都可以考虑

}

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中的DataGrid中增加一空白行

VS中的DataGridView控件，在机房重构里的出镜率还是很高哒~这篇博客就把一些有关DataGridView

控件的一些使用细节和大家分享一下！

找到控件：

绑定数据源

选中行数代码实现：

DataGridView1.SelectedRows.Count

以增加删除用户窗体中的删除所选行数代码为例：

[vb] view plain copy

Private Sub btnDeleteUser_Click(sender As Object, e As EventArgs) Handles btnDeleteUser.Click

'判断下拉表中是否选择了用户类型

If cmbUserLevel.SelectedItem = "" Then

MsgBox("如需删除用户，请先选择用户类型！", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End If

Dim K As Integer = DataGridView1.SelectedRows.Count

Dim FFacade As New Facade.DeleteUserFacade

Dim Uuser As New Entity.AddDeleteUserInfo

Dim strResult As Boolean

'strResult = FFacade.DeleteUserinfo(Uuser)

If DataGridView1.SelectedRows.Count  0 Then '如果选中的行数大于0

For i As Integer = K To 1 Step -1

'获取控件的第N行的第一列数据，得到用户ID，以用户ID为主键来删除整行数据

Dim userinfo As String = DataGridView1.SelectedRows(i - 1).Cells("UserID").Value.ToString

'删除的数据不能为当前登录的用户，需要判断用户ID

If Entity.Share.ID.Trim = userinfo Then

MsgBox("您无法删除当前登录的用户！", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Else

Uuser.UserID = userinfo

End If

strResult = FFacade.DeleteUserinfo(Uuser)

'If FFacade.DeleteUserinfo(Uuser) Then

If strResult = True Then

'删除选中行

DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(i - 1).Index)

MsgBox("数据删除成功！", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Next

Else '如果选中的行数不大于0

MsgBox("请您选中所要删除的行！", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

'DataGridView1.Rows.Clear()

End If

End Sub

运行图：

常用属性：

1.想把Datagridview的第一行隐藏。     Idea：把RowHeadersVisible属性改为False就可以。

2.DataGridview显示出datatable之后，最后一行有空白行怎么去掉？

Idea：修改AllowUserToAddRow属性为False。