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#中实体相比，这也体现了一定的优越性。
50分就回答一下吧,我的答案才是正确的
窗体名称如果是Form1
添加两个控件出来,一个是按扭Button1,一个是表格DataGridView1
然后你直接用我的代码就行了不多说了
你最好把我的代码复制到你的代码窗口里再看了,这里太乱了
还有啊你并没有给出数据库名称,是用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...余下全文>>
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