vb.net数学库 vbnet com

vb.net 怎么操作数据库

如果楼主熟悉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 数据库操作如何判断数据库里有无一个数据库名

SELECT count(*) FROM [数据库名称].[dbo].[sysobjects] where [xtype]='U' and [name] = '表名称'

根据返回的数量是1表示有一个这样的表已经存在了。

SELECT [info] FROM [数据库名称].[dbo].[sysobjects] where [xtype]='U' and [name] = '表名称'

返回的是这个表的字段数量。

SELECT [name] FROM [数据库名称].[dbo].[syscolumns] where id = (SELECT [id] FROM [数据库名称].[dbo].[sysobjects] where [name] = '表名称')

使用这个命令，可以返回您定义的表中的所有列的名称了。

VB.NET怎样连接数据库

Imports System.Data

Imports System.Data.SqlClient

Module 连接数据库

Public Server1 As String

Public DataBase1 As String

Public Function GetTable(ByVal sqlstr$) As DataTable

Dim SqlConn As SqlConnection = New SqlConnection("server=" Server1 ";database=" DataBase1 ";integrated security=true") '声明这些SQL的类

Dim facDataAdapter As SqlDataAdapter = New SqlDataAdapter

Dim SqlComm As SqlCommand = New SqlCommand(sqlstr, SqlConn)

facDataAdapter.SelectCommand = SqlComm

Dim dt As DataTable = New DataTable

facDataAdapter.Fill(dt)

Return dt

End Function

End Module

vb.net的数据库连接

1·绑定数据源来进行连接

2.用代码连接

先到数据库建立一个数据库和相应vb.net数学库的表

连接数据库vb.net数学库的代码vb.net数学库：

Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判断一条记录为真

kf.Show() '显示下个窗体

Me.Hide() ’隐藏当前窗体

Else

MessageBox.Show("输入信息有误vb.net数学库！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

关于vb.net上数据库的使用问题

这个就要用到dataview控件了

这个控件功能太强了一下子也说明不了，自己研究吧，不懂联系我

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

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

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

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

完整代码如下vb.net数学库：

Imports ADOX

Public Class Form1

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

        '创建空vb.net数学库的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) '把所有vb.net数学库的新字段追加到表

        MyTable = Nothing

        Mycat = Nothing

    End Sub

End Class

关于vb.net数学库和vbnet com的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。