vb.net数据库名字 vb查询sql数据库

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 将数据库表名添加到ListBox1

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

Dim cstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\database\database1.mdb"

Dim con As New OleDb.OleDbConnection(cstring)

Dim sql As String = "select 姓名 from 学生信息表"

con.Open()

Dim cmd As New OleDb.OleDbCommand(sql, con)

Dim myreader As OleDbDataReader = cmd.ExecuteReader

Do While myreader.Read

ListBox1.Items.Add(myreader(0))

Loop

End Sub

在vb.net中如何查询MDB数据库的数据

以下是完整模块

Imports

System.Data

Imports

System.IO

Imports

System.Data.OleDb

Module

Module1

Public

cn

As

New

OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="

Application.StartupPath

"\mdb数据库名字.mdb")

'定义连接

Public

DataBaseRST

As

Integer

'用来返回数据库执行结果

Public

Function

DataModify(ByVal

str

As

String)

As

Boolean

'进行数据库修改操作

Dim

cmdinsert

As

New

OleDbCommand

Try

cmdinsert.CommandText

=

str

cmdinsert.Connection

=

cn

If

cn.State

=

ConnectionState.Closed

Then

cn.Open()

DataBaseRST

=

cmdinsert.ExecuteNonQuery()

'用来返回执行的结果

cn.Close()

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

Public

Function

Search(ByVal

str

As

String,

ByVal

DGV

As

DataGridView)

As

Boolean

'查询

str---查询命令，DGV---DataGridView，用来显示数据的控件

Dim

tb

As

New

DataTable

Try

Dim

ap

As

New

OleDb.OleDbDataAdapter(str,

cn)

ap.Fill(tb)

DGV.DataSource

=

tb

Return

True

Catch

ex

As

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Return

False

End

Try

End

Function

End

Module

'以下是调用方法

DataModify("

insert

into

aa

values

('1','2')")'-------这里是数据库更新操作

Search("select

bb

from

aa",DataGridView1)'-----------这里是数据表查询操作