VB.NET與 sql資料庫，VB.NETsql資料庫

VB.NET與 sql資料庫，VB.NETsql資料庫

       資料蘊含豐富的資訊，資料就是資源。

       不同的語言，由於各自的文法特點，對sql資料庫的串連操作有些小區別。但有一點，那就是，對sql資料庫的動作陳述式sql語句大體是一樣的。

       這段時間正進行VB.NET的學習，說實話，在最開始的時候，確實會感覺到比較難下手。在此之前，學習的是C#，從C#到VB.NET，彎不大，但有點急。現將一些VB.NET中sql資料庫的增、刪、改、查總結一下，方便自己以後查詢，也為剛接觸VB.NET的朋友提供小小參考。對於這些語句，就是一個熟練過程，更多的是運用而不是記憶。下面看看VB.NET實現增刪改查的整個過程及對應執行個體。

查尋資料：SELECT  返回的記錄1、記錄2、記錄3……[或*]  FROM  表名  WHERE 欄位名 =’ ”變數名” ’ 

插入資料：INSERT  INTO 表名 (欄位名1，欄位名2，欄位名3……） Values(@欄位名1，@欄位名2，@欄位名3……) 

更新資料：UPDATA  表名  SET  <條件1>  <AND條件2>  <AND條件2> WHERE <欄位名1=參數名1>  <AND 欄位名2=參數名2> <AND ……>

刪除資料：DELETE  FROM  <表名>  WHERE  < 條件>

對應一些執行個體

（1）尋找資料

（採用：拼接字串法）

    Function selectLogon(ByVal User As Entity.LogonEntity) As Entity.LogonEntity        Dim cmd_Logon As New SqlCommand                                   '執行個體化一個命令對象        Dim sqlconnection_Logon = New SqlConnection(DbUtil.sqlConcectStr) '執行個體化帶條件的一個資料庫連接對象        cmd_Logon.Connection = sqlconnection_Logon                        '建立串連命令        sqlconnection_Logon.Open()                                        '執行串連，將資料庫開啟        '建立查詢語句        cmd_Logon.CommandText = "SELECT * FROM T_Logon WHERE CardID = '" & User.CardID & "' "        Dim reader As SqlClient.SqlDataReader                             '建立讀資料對象        reader = cmd_Logon.ExecuteReader                                  '對象逐條讀        Dim users As New Entity.LogonEntity        While (reader.Read())                                             '迴圈讀資料            If users Is Nothing Then                users = New Entity.LogonEntity            End If            users.ID = reader.GetValue(reader.GetOrdinal("UserID"))       '讀取資料，賦給新實體            users.CardID = reader.GetValue(reader.GetOrdinal("CardID"))            users.UserName = reader.GetValue(reader.GetOrdinal("UserName"))            users.Sex = reader.GetValue(reader.GetOrdinal("Sex"))            users.Department = reader.GetValue(reader.GetOrdinal("Department"))            users.Grade = reader.GetValue(reader.GetOrdinal("Grade"))            users.InCash = reader.GetValue(reader.GetOrdinal("InCash"))        End While        sqlconnection_Logon.Close()        Return users    End Function

（2）插入資料

（採用：參數法）

    Function InsertUp_Doing(ByVal User As Entity.MainEntity) As Boolean        Dim cmd_insert_updoing As New SqlCommand        Dim sqlconnection_updoing As New SqlConnection(DbUtil.sqlConcectStr)        cmd_insert_updoing.Connection = sqlconnection_updoing        '插入語句        cmd_insert_updoing.CommandText = "INSERT INTO T_Updoing (CardID) Values(@CardID)"        '參數法        cmd_insert_updoing.Parameters.Add(New SqlParameter("@CardID", User.CardID))        sqlconnection_updoing.Open()        cmd_insert_updoing.ExecuteNonQuery()        sqlconnection_updoing.Close()        Return True    End Function

（3）更新資料

（採用：拼接字串 法）

    Function update_updown(ByVal User As Entity.MainEntity) As Boolean        Dim OK_NO_updown As Boolean        Dim cmd_update_updown As New SqlCommand        Dim sqlconnection_updown As New SqlConnection(DbUtil.sqlConcectStr)        '根據“學號”、“狀態”條件更新        cmd_update_updown.Connection = sqlconnection_updown        cmd_update_updown.CommandText = "UPDATE T_UpDown SET UserID = @UserID AND Status = @Status WHERE " & _            "Downdatetime = @Downdatetime AND Downtime = @Downtime AND Consumetime = @Consumetime AND" & _            " ConsumeCash = @ConsumeCash AND Remaincash = @Remaincash"        cmd_update_updown.CommandType = CommandType.Text        sqlconnection_updown.Open()                                 '開啟串連        '添加參數        cmd_update_updown.Parameters.Add(New SqlParameter("@Downdatetime", User.Downdatetime))        cmd_update_updown.Parameters.Add(New SqlParameter("@Downtime", User.Downtime))        cmd_update_updown.Parameters.Add(New SqlParameter("@Consumetime", User.Timeconsume))        cmd_update_updown.Parameters.Add(New SqlParameter("@ConsumeCash", User.Cashconsume))        cmd_update_updown.Parameters.Add(New SqlParameter("@Remaincash", User.Cashremain))        cmd_update_updown.Parameters.Add(New SqlParameter("@Status", User.Status))        sqlconnection_updown.Close()        Return OK_NO_updown = True    End Function

（4）刪除資料

（採用：拼接字串法[CardID =' " & User.CardID & " ' ]）

    Function deleteUp_doing(ByVal User As Entity.MainEntity) As Boolean        Dim OK_NO_down As Boolean        Dim cmd_delete_updoing As New SqlCommand        Dim sqlconnection_delectupdoing As New SqlConnection(DbUtil.sqlConcectStr)        sqlconnection_delectupdoing.Open()        cmd_delete_updoing.Connection = sqlconnection_delectupdoing        cmd_delete_updoing.CommandText = "DELETE FROM T_Updoing WHERE CardID ='" & User.CardID & "'"        cmd_delete_updoing.ExecuteNonQuery()        sqlconnection_delectupdoing.Close()        Return OK_NO_down = True    End Function

       在VB.NET中，與我之前使用一年前使用VB相比，多了用參數法。查了一些資料，告知，用參數法能減少錯誤的產生，增強安全性。

       上面的代碼中，傳參採用的是傳實體的方式。在VB.NET中，與實體代碼更具自動性，與C#中實體相比，這也體現了一定的優越性。

vbnet 中怎使用SQL語句查詢資料庫中的資料

50分就回答一下吧,我的答案才是正確的
表單名稱如果是Form1
添加兩個控制項出來,一個是按扭Button1,一個是表格DataGridView1
然後你直接用My Code就行了不多說了
你最好把My Code複製到你的代碼視窗裡再看了,這裡太亂了
還有啊你並沒有給出資料庫名稱,是用Windows登陸還是SQL登陸,你要在代碼裡改一下,我都注釋有了的你自己慢慢看下
我用的平台是WIndows VISTA , SQL 2005 , VB 2008

Imports System.Data.SqlClient
Public Class Form1

Dim LeafSqlConnection As SqlConnection '聲明這些SQL的類
Dim LeafSqlCommand As SqlCommand
Dim LeafSqlDataAdapter As SqlDataAdapter
Dim LeafData As DataTable '這個是表格的類,用來裝你讀取的資訊的表

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LeafSqlConnection = New SqlConnection("Data Source=.;Initial Catalog=你的資料庫名稱 ;Integrated Security=True;Pooling=False") '如果採用windows身份登入就用這個,資料庫名稱我直接寫成'你的資料庫名稱'了,沒有使用者名稱密碼
'LeafSqlConnection = New SqlConnection("Initial Catalog=你的資料庫名稱 ;User ID=sa;PWD=leafsoftpassword") '如果採用SQL使用者密碼登入用這個,注意的是前面這些資料庫名稱我直接寫成'你的資料庫名稱'了,你如果要讀別的資料庫自己改,還有使用者密碼自己改
LeafSqlCommand = New SqlCommand("Select * from 表1 Where 姓名='小強';", LeafSqlConnection) '這裡記得名字的兩邊要加符號 '
LeafSqlDataAdapter = New SqlDataAdapter
LeafSqlCommand.CommandType = CommandType.Text
LeafSqlDataAdapter.SelectCommand = LeafSqlCommand
LeafData = New DataTable
LeafSqlDataAdapter.Fill(LeafData)
DataGridView1.DataSource = LeafData
End Sub
End Class...餘下全文>>
 
vbnet 與資料庫的串連(pl/sql)

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DBSet As DataSet
Dim ErrMsg As String
Dim cnn As SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
Dim rst As New DataSet()
Dim sSQL As String

ErrMsg = ""

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

sSQL = "select * from employee"

adpt = New SqlClient.SqlDataAdapter(sSQL, cnn)
adpt.Fill(rst)
DBSet = rst
DataGridView1.DataSource = DBSet
Catch ex As Exception
ErrMsg = ex.Message
Finally
rst = Nothing
cnn = Nothing
End Try

End Sub

End Class