vb.net界面库 vbnet ui

VB.net制作启动界面

新建一个Sub ： Main

创新互联公司是一家专业提供青龙企业网站建设,专注与网站设计、成都网站建设、H5技术、小程序制作等业务。10年已为青龙众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。

Private Sub Main()

xxx.show 'xxx指启动窗体

'载入图片、数据库之类的

Unload xxx

{from}.show '{from}指主界面

End Sub

然后在工程-属性将"Main"作为启动对象

vb.net 登陆界面设计 连接ACCESSS数据库 为什么打不开新窗体

Form2.Show()这里有下划线报错

Form1.Close()

应该是Load Form2

Form2.Show

Unload Form1

用户名和密码输入错误码的话，连接数据库后用IF语句判断用户名和密码，正确则执行后面的代码，错误则弹出MSGBOX提示，用EXIT SUB跳出过程回到输入用户名和密码的界面就行了。

用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