RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
包含vb点虐 数据库实验的词条

vb点虐 怎么操作数据库

如果楼主熟悉VB6,可以直接在项目中添加ADODB的Com引用,这样你就可以像VB6那样操作数据库了!

创新互联是一家集网站建设,神木企业网站建设,神木品牌网站建设,网站定制,神木网站建设报价,网络营销,网络优化,神木网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。

另外

.NET Framework中连接数据库要用到ADO.NET。如果要操作Access数据库,要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说,“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”:

'首先导入命名空间

Imports System.Data

Imports System.Data.OleDb

'然后在某一个事件处理程序中写:

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库.accdb;Jet OLEDB:Database Password=MyDbPassword")

Dim command As New OleDbCommand("Select * From 数据表", conn)

conn.Open() '打开数据库连接

Dim reader As OleDbDataReader = command.ExecuteReader() '执行SQL语句,返回OleDbDataReader 对明兆慧象

Do While reader.Read() '读取一条数据

textbox1.Text += reader("一些数据") VbCrLf

Loop

reader.Close() '猜搜关闭OleDbDataReader

conn.Close() '关闭激答连接

怎样用VB.NET实现对数据库的添加

Insert Into 数据哗厅表名 (字段汪芦岩1,字段2,...) Values ('字段1值','困御字段2值'....)

VB.NET 数据库操作

真的要学绝颤祥习 就自己去一条条的找洞绝结果 在csnd上很多很多的,你的编译出来如果并搏是64 那在32位机器可能不能用 或者JET不支持,

用vb点虐 怎样建立一个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点虐 数据库实验的词条
分享路径:http://cqwzjz.cn/article/ddpdpod.html