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

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

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站制作、成都網(wǎng)站制作、仙游網(wǎng)絡(luò)推廣、小程序制作、仙游網(wǎng)絡(luò)營銷、仙游企業(yè)策劃、仙游品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供仙游建站搭建服務(wù)，24小時服務(wù)熱線：13518219792，官方網(wǎng)址：www.rwnh.cn

Module MdlCommon

Public txtSQL As String '存放SQL語句

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

Public ErrorMsg As String '存放錯誤信息

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)用時在asp.net后臺寫上txtSQL="SELECT * FROM user";

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

請問：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ù)庫sa用戶"; Password="數(shù)據(jù)庫密碼""

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ù)庫

Imports?System.Data

Imports?System.Data.SqlClient

Public?Class?Form1

Inherits?System.Windows.Forms.Form

'數(shù)據(jù)庫連接對象

'錯誤的寫法??

'Dim?objConnection?As?SqlConnection?=?New?SqlConnection("server=(local);database=pubs;user?id=sa;password=")

'正確寫法

Dim?objConnection?As?New?SqlConnection("Data?Source=127.0.0.1;?Initial?Catalog=pubs;?user?id=sa;?password=;")

'數(shù)據(jù)適配器

Dim?objDataAdapter?As?SqlDataAdapter?=?New?SqlDataAdapter()

'DataSet

Dim?objDataSet?As?DataSet?=?New?DataSet()

Private?Sub?Form1_Load(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Load

'設(shè)置查詢命令屬性

objDataAdapter.SelectCommand?=?New?SqlCommand

objDataAdapter.SelectCommand.Connection?=?objConnection

objDataAdapter.SelectCommand.CommandText?=?"select?au_lname,au_fname,title,price?from?authors?join?titleauthor?on?authors.au_id=titleauthor.au_id?join?titles?on?titleauthor.title_id=titles.title_id?order?by?au_lname,au_fname"

objDataAdapter.SelectCommand.CommandType?=?CommandType.Text

'打開數(shù)據(jù)庫連接

objConnection.Open()

'填充DataSet對象

objDataAdapter.Fill(objDataSet,?"authors")

'關(guān)閉數(shù)據(jù)庫連接

objConnection.Close()

'給DataGrid綁定數(shù)據(jù)

grdAuthorTitles.DataSource?=?objDataSet

grdAuthorTitles.DataMember?=?"authors"

'清除

objDataAdapter?=?Nothing

objConnection?=?Nothing

End?Sub

End?Class

vb.net是怎么樣實現(xiàn)與sql的連接的？

ADO.net +SQLSever（比如說你的服務(wù)器是：MYSQLSERVER,你要連的數(shù)據(jù)庫是pubs）

首先引入命名空間(在public class ..之上）

imports system.data.sqlclient

⑴信任連接（不用使用用戶名，密碼）

Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;integrated security=true;")

mycon.open()

....

mycon.close()

⑵采用用戶名和密碼連接(假如你的數(shù)據(jù)庫登陸用戶名為sa,密碼為：dorient)：

Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;uid=sa;pwd=dorient;")

vb.net連接sql數(shù)據(jù)庫

您好：給你個Sql Servers 2000的鏈接方法參考一下。

Public Shared connectionString As String = “Data Source=SERVERS;Initial Catalog=HL;User ID=sa;Password=pw" providerName="System.Data.SqlClient”

'summary

'執(zhí)行SQL語句，返回影響的記錄數(shù)

'/summary

'param name="SQLString"SQL語句/param

'returns影響的記錄數(shù)/returns

Public Shared Function ExecuteSql(ByVal SQLString As String) As Integer

Using connection As New SqlConnection(connectionString)

Using cmd As New SqlCommand(SQLString, connection)

Try

connection.Open()

Dim rows As Integer = cmd.ExecuteNonQuery()

Return rows

Catch e As System.Data.SqlClient.SqlException

connection.Close()

Throw e

End Try

End Using

End Using

End Function

希望對您有用！

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

1、首先打開Visual Studio 2008代碼窗口，添加引用。

2、輸入以下代碼：Public conn1 ?As SqlConnection = New SqlConnection 。

3、聲明關(guān)鍵字 Public；（因為是全局變量，所以用Public 來聲明）。

4、如果SQL 數(shù)據(jù)庫就在本機，則用以下代碼連接。

5、如果代碼太長，影響可讀性，可以用空格加"_"后，回車換行即可。

網(wǎng)頁名稱：sql與vb.net連接的簡單介紹
轉(zhuǎn)載注明：http://www.rwnh.cn/article22/hicjjc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、網(wǎng)站設(shè)計公司、小程序開發(fā)、電子商務(wù)、品牌網(wǎng)站設(shè)計、微信小程序

廣告

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