vb.net操作sql的簡(jiǎn)單介紹

剛剛?cè)胧諺B.NET,對(duì)于SQL數(shù)據(jù)庫(kù)操作遇到些小問題,請(qǐng)知情者幫忙.在線等~~~

你干嘛把程序發(fā)兩次阿

成都創(chuàng)新互聯(lián)公司專注于延津網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供延津營(yíng)銷型網(wǎng)站建設(shè)，延津網(wǎng)站制作、延津網(wǎng)頁(yè)設(shè)計(jì)、延津網(wǎng)站官網(wǎng)定制、重慶小程序開發(fā)服務(wù)，打造延津網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供延津網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

訪問數(shù)據(jù)庫(kù)簡(jiǎn)單來說，先建立一個(gè)數(shù)據(jù)庫(kù)SqlClient.SqlConnection

連接，再建立一個(gè)數(shù)據(jù)命令SqlClient.SqlCommand，然后打開連接執(zhí)行命令得到結(jié)果并關(guān)閉連接。就這么簡(jiǎn)單。給你個(gè)例子吧。

Public

Function

SqlAccess()

{

strSqlConn

As

String

=

"

連接字符串";

//連接字符串

strSqlCmd

As

string

=

"sql查詢字符串";

//sql查詢字符串

sqlConn

As

SqlClient.SqlConnection;

//申明一個(gè)連接

sqlCmd

As

SqlClient.SqlCommand;

//申明一個(gè)SqlCommand

Try

sqlConn

=

New

SqlClient.SqlConnection;

//建立連接

sqlConn.ConnectionString

=

strSqlConn;

sqlCmd

=

New

SqlClient.SqlCommand(strSqlCmd

,sqlConn);//建立查詢

sqlConn.Open()

//打開連接

sqlCmd.ExcuteScalar()

//執(zhí)行查詢，并返回結(jié)果，這里你可以設(shè)一個(gè)變量來獲取結(jié)果，比如

tmp

=

sqlCmd.ExcuteScalar()，我這里省略了

Catch

ex

As

Exception

MsbBox(ex.ToString)

//顯示錯(cuò)誤信息

Finally

sqlConn.Close()

//關(guān)閉連接

End

Try

}

VB.net 如何修改SQL數(shù)據(jù)

點(diǎn)擊修改按鈕以后，相對(duì)的數(shù)據(jù)顯示到 信息顯示 窗口的相對(duì)TextBox 的代碼如下：

1

2

信息顯示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名為例，其他的跟這個(gè)一樣。

信息顯示.ShowDialog()

完成修改的SQL代碼如下：

1

UPDATE 表名 SET Name_CN='新值', Name_EN='新值' WHERE 列名=條件

請(qǐng)問：VB.NET怎么連接SQL？

Public sqlcon As System.Data.SqlClient.SqlConnection

Public sqladapter As System.Data.SqlClient.SqlDataAdapter

Public command As System.Data.SqlClient.SqlCommand

Public ds As System.Data.DataSet

Public dr As System.Data.DataTable

sqlcon = New System.Data.SqlClient.SqlConnection

sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="數(shù)據(jù)庫(kù)sa用戶"; Password="數(shù)據(jù)庫(kù)密碼""

ds = New System.Data.DataSet

dr = New System.Data.DataTable(" test2 ")

ds.Tables.Add(dr)

sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)

sqlcon.Open()

sqladapter.Fill(dr)

sqlcon.Close()

界面上控件

DataGridView1.DataSource = dr

vb.net 中如何使用SQL語句查詢數(shù)據(jù)庫(kù)

dim

myselectquery

as

string

=

"select

*

from

表1

where

姓名='小強(qiáng)'"

dim

mycommand

as

new

sqlcommand

(myselectquery,

conn)

'建立一個(gè)command控件，conn是你的sqlconnection對(duì)象

conn.open()'打開數(shù)據(jù)連接

dim

myreader

as

sqldatareader'定義一個(gè)reader用來讀數(shù)據(jù)

myreader

=

mycommand.executereader()'運(yùn)行你的查詢，結(jié)果到myreader

if

myreader.read()

then

'如果查到了數(shù)據(jù)

msgbox(myreader.getstring(0))

'顯示第一個(gè)字段

end

if

VB.NET中如何用SQL語句建表（復(fù)制表）？謝謝了！

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言

問題描述:

在SQL數(shù)據(jù)庫(kù)里已有一個(gè)現(xiàn)成的空數(shù)據(jù)表（只有字段、沒有數(shù)據(jù)），請(qǐng)問高手，怎樣在VB.NET中用SQL語句把該數(shù)據(jù)庫(kù)中的那個(gè)表復(fù)制一個(gè)到該數(shù)據(jù)庫(kù)（字段不變、數(shù)據(jù)為空）只是把數(shù)據(jù)表的名改了？

謝謝！謝謝！

解析:

select * into 新表 from 舊表

使用 SELECT INTO 插入行

SELECT INTO 語句創(chuàng)建一個(gè)新表，并用 SELECT 的結(jié)果集填充該表。新表的結(jié)構(gòu)由選擇列表中表達(dá)式的特性定義，例如：

SELECT Shippers.*, Link.Address, Link.City,

Link.Region, Link.PostalCode

INTO NewShippers

FROM Shippers

JOIN LinkServer.DB.dbo.Shippers AS Link

ON (Shippers.ShipperID = Link.ShipperID)

SELECT INTO 可將幾個(gè)表或視圖中的數(shù)據(jù)組合成一個(gè)表。也可用于創(chuàng)建一個(gè)包含選自鏈接服務(wù)器的數(shù)據(jù)的新表。

vb.net 連接sql數(shù)據(jù)庫(kù)模塊,如何使用？

比如有個(gè)asp.net(vb.net)連接sql server 2000數(shù)據(jù)庫(kù)的連接模塊(module)：

Module MdlCommon

Public txtSQL As String '存放SQL語句

Public DBSet As DataSet '查詢得到的記錄集

Public ErrorMsg As String '存放錯(cuò)誤信息

Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet

Dim cnn As SqlClient.SqlConnection

Dim cmd As New SqlClient.SqlCommand()

Dim adpt As SqlClient.SqlDataAdapter

Dim rst As New DataSet()

Dim SplitSQL() As String

errMsg = ""

Try

SplitSQL = Split(strSQL)

cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")

If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then

cmd.Connection = cnn

cmd.Connection.Open()

cmd.CommandText = strSQL

cmd.ExecuteNonQuery()

Else

adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)

adpt.Fill(rst)

ExecuteSQL = rst

End If

Catch ex As Exception

errMsg = ex.Message

Finally

rst = Nothing

cnn = Nothing

End Try

End Function End Module

調(diào)用時(shí)在asp.net后臺(tái)寫上txtSQL="SELECT * FROM user";

DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查詢db返回結(jié)果了。

網(wǎng)頁(yè)名稱：vb.net操作sql的簡(jiǎn)單介紹
網(wǎng)站URL：http://muchs.cn/article8/dodhhip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、外貿(mào)建站、靜態(tài)網(wǎng)站、網(wǎng)站導(dǎo)航、商城網(wǎng)站、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)