vb.net和數據庫連接的問題

我們需要引用ADO.具體的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",這里的"*.*"是指的時ADO的版本號,一般來說,應用程序或ActiveX控件都具有向下兼容性,所以我們盡可能選擇比較新的版本.以確保程序在能識別舊版本Access的同時,也能識別較新版本的Access.

成都創(chuàng)新互聯專注于企業(yè)營銷型網站建設、網站重做改版、松桃網站定制設計、自適應品牌網站建設、成都h5網站建設、購物商城網站建設、集團公司官網建設、成都外貿網站建設公司、高端網站制作、響應式網頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為松桃等各大城市提供網站開發(fā)制作服務。

然后我們需要在程序中創(chuàng)建一個對象.就好比我們在窗體上添加一個FileBox才能看到文件名一樣,只有創(chuàng)建了ADO對象,我們才能夠訪問數據庫.常用的對象有兩個,Connection和Recordset.

創(chuàng)建這兩個對象的具體方法是:

1.在引用后,使用New關鍵字,如

Private Conn As New ADODB.Connection

Private Reco As New ADODB.Recordset

2.在沒引用時,用CreateObject創(chuàng)建對象:

Dim Conn,Reco

Set Conn = CreateObject("ADODB.Connection")

Set Reco = CreateObject("ADODB.Recordset")

創(chuàng)建了對象之后,下一步我們要做的就是打開數據庫了.

先看下面的代碼,可以成功的打開數據庫.

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"

這句代碼打開了D盤中的Main.mdb這個數據庫.

Connection.Open方法的第一個參數是連接代碼,它將傳遞給系統(tǒng)的數據庫引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了數據庫的類型.不同的數據庫可能會不同.后半句"Source=d:\main.mdb"它表示了數據庫所在的絕對路徑.

打開數據庫之后,還要打開表.假如數據庫中有一個表,表名為"Users",字段有兩個,一個為用戶名,一個為密碼.那么看以下代碼.

1.想返回"Users"中,[用戶名]為"去年煙花"的[密碼]

Recordset.open "Select 密碼 From Users Where 用戶名='去年煙花'",Connection,1,1

之后我們就可以把用戶輸入的密碼進行比較,看是否允許登錄.

If Recordset.eof and Recordset.bof then

Msgbox "用戶不存在!",16

Else

If PassWord =Recordset("密碼").value then

msgbox "登錄成功!",64

Else

msgbox "密碼錯誤!",32

End If

End If

Recordset.Close

2.假設Admin已經成功登錄系統(tǒng),我們想把所有的用戶名和密碼都顯示出來

Recordset.open "Select * From Users",Connection,1,1

這時,表已經被打開,我們就用以下代碼把它顯示出來.

Do whlie Not Recordset.eof

Print "用戶名: " Recordset("用戶名").value "密碼: " Recordset("密碼").value

Recordset.MoveNext

Loop

Recordset.Close

由以上代碼示例可以看出,打開表時,可以只打開其中的一個字段,也可以打開所有.第一個參數是SQL語句.

Select [字段名] From 表名 [Where 條件]

這里的條件可以省略.且字段名也可以用"*"來代替所有字段.

需要注意的是,如果你用(1)中的方法打開,那么(2)后面顯示的代碼就不能再用在(1)中.因為(1)里并沒有打開[用戶名]字段,所以這一句Recordset("密碼")就沒有值存在,還有可能出錯.

后面的條件,可以用"="、""、""等運算符.比如 "Where ID 32".(這里假設[ID]為數字型.)

這是打開的部分.第二個很重要的部分就是查詢記錄.

數據庫它并不是把所有記錄全部放到一個變量中備用的.而是以"當前記錄"的形式來返回一個值.所以我們想從中找到有用的信息,就必須要對信息進行定位/篩選.

定位:

移動到下一條 Recordset.MoveNext

移動到上一條 Recordset.MovePrevious

移動到最后一條 Recordset.MoveLast

移動到第一條 Recordset.MoveFrist

移動到某一條 Recordset.Move Number

篩選:

Recordset.Find "條件"

如:[用方法(2)打開表之后]

Private Sub Command1_Click()

Recordset.Find "用戶名=" "text1.text"

If Recordset.Eof True Then

Msgbox "該用戶的密碼是:" Recordset("密碼").value,64

Else

Msgbox "未找到該用戶的資料!",16

End If

End Sub

MoveNext 只有當Eof不為True時,才可用,否則發(fā)生錯誤.而MovePrevious剛是Bof不為True時....

而只要Eof 和 Bof中有一個不為真時,也就是說只要有一條記錄時,它就可以使用.

Find 方法中的條件和Open時的第一個參數中的條件表述方法是完全一致的.當在已打開的記錄集中,找不到該記錄時,Eof為True.找到則當前的值就是符合條件的記錄.

第三個部分就是添加/修改記錄.

修改記錄很簡單,先按以上的方法找到相關記錄之后,給記錄賦值就可以了.

比如:[(修改密碼)按方法(1)打開表之后]

Recordset("密碼").value = "123456"

Recordset.Updata

需要注意的就是,在修改完成后,要調用Updata方法,這樣修改才能生效.

而添加記錄則可以用以下代碼來實現:

Recordset.addnew

Recordset("用戶名").value = "Admin"

Recordset("密碼").value = "Admin"

Recordset.Updata

這里,先要調用Addnew方法,增加一條新記錄,然后對這個新記錄中的各字段賦值,最后再調用Updata方法.

到這里就差不多了,最后說一下上面提到的幾個方法.

Recordset.Open SQL語句,數據源,游標類型,打開方法

SQL語句不用說了,就是Select那啥的,目的就是按要求從表中返回數據

數據源就是一個打開之后的Connection對象.

去他媽的游標類型,填1就可以了 [偷笑ing]

打開方法對應了幾個常數,具體哪幾個可以從對象瀏覽器里看.

對應數值的意義:

1 只讀 2 獨占 3 可寫 4 自已可寫,別人可讀

Connection.open 連接代碼,服務器用戶名,密碼

這里的連接代碼就不在多說了,服務器用戶名,密碼只有在連接遠程數據庫時才用到.

vb.net的數據庫怎么連接啊?

Dim

sqlConnection1

As

SqlClient.SqlConnection

　Dim

strConnect

As

String=”data

source=服務器名;initial

catalog=數據庫名;user

id=sa;password=;”

sqlConnection1=New

System.Data.SqlClient.SqlConnection(strConnect)

　sqlConnection1.open

‘打開數據庫

sqlConnection1.close

‘關閉連接，釋放資源

1)連接Sql

Server數據庫

Dim

odbcDbConnetion1

As

Microsoft.Data.OdbcConnection

　Dim

strConnect

As

Sting=”Driver={SQL

Server};Server=服務器名;Uid=sa;pwd=;Database=

數據庫名;”

　odbcDbConnetion1=New

Microsoft.Data.OdbcConnection(strConnect)

vb.net的數據庫連接

1·綁定數據源來進行連接

2.用代碼連接

先到數據庫建立一個數據庫和相應的表

連接數據庫的代碼：

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("輸入信息有誤！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

新聞標題：vb.net行連接的簡單介紹
文章起源：http://www.chinadenli.net/article38/heispp.html

成都網站建設公司_創(chuàng)新互聯，為您提供網站策劃、Google、域名注冊、做網站、網站制作、外貿建站

廣告

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