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)'-----------這里是數據表查詢操作

當前標題：vb.net數據庫名字 vb查詢sql數據庫
網頁URL：http://m.kartarina.com/article6/hjgsog.html

成都網站建設公司_創新互聯，為您提供服務器托管、品牌網站建設、品牌網站設計、Google、虛擬主機、品牌網站制作

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯