vbnet資料庫教程
⑴ vb.net連接資料庫
1、 用The sql Server .NET Data Provider連接資料庫
The SQL Server .NET Data Provider是利用SqlConnection類來連接SQL Server7.0或更高版本的資料庫，
SqlConnection類位於名稱空間System.Data.SqlClient下。
連接代碼：
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 『關閉連接，釋放資源
2、 用The OLE DB .NET Data Provider連接資料庫
上面已經說過，利用The OLE DB .NET Data Provider可以訪問Access、Oracle和SQL Server等種數據
庫，那麼，它是怎樣訪問這些資料庫的呢？The OLE DB .NET Data Provider是通過位於名稱空間Sy
stem.Data.OleDb類庫下的OleDbConnection類來連接這三種不同類型的資料庫的。下面舉例說明:
1)連接SQL Server資料庫
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=SQLOLEDB;Persist Security Info=False;Data Source=伺服器名;Initial Catalog=資料庫名;User ID=sa;Password=;」
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)
2)連接Access資料庫
假設要連接的Access資料庫名為「Example.mdb」，存放在d:\Data\目錄下。
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb」
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3)連接Oracle資料庫
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=MSDAORA;Data Source=伺服器名;User ID=用戶ID;Password=密碼;」
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3、 用The ODBC .NET Data Provider連接資料庫
The ODBC .NET Data Provider連接資料庫是通過OdbcConnection類來實現的，這個類位於名稱空間
Microsoft.Data.Odbc下，而名稱空間Microsoft.Data.Odbc是封裝在Microsoft.Data.Odbc.dll文件下的。
由於篇幅有限，這里就只介紹連接Sql Server和Oracle資料庫的方法，其他資料庫的連接方法基本類
似，我就不再多講了。
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)
2)連接Oracle資料庫
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=」Driver={Microsoft ODBC for Oracle};Server=伺服器名;Uid=sa;pwd=;」
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
四、總結
通過本文的介紹，讀者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET連接各種資料庫的方法
。以上三種驅動針對不同的資料庫，它們的性能方面也有很大的不同：The SQL Server .NET Data Provider
的效率最高；The OLE DB .NET Data Provider的效率比較底；The ODBC .NET Data Provider的效率最慢。
具體連接哪一種資料庫選用哪一種數據驅動要從工作效率方面來考慮。
以上回答你滿意么？
⑵ 求用vb.net寫一個讀取資料庫數據的簡單操作。
Option Explicit On
Option Strict On
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Program
Public Shared Sub Main()
Dim connectionString As String = _
"Data Source=(local);Initial Catalog=Northwind;" _
& "Integrated Security=true"
' Provide the query string with a parameter placeholder.
Dim queryString As String = _
"SELECT ProctID, UnitPrice, ProctName from dbo.Procts " _
& "WHERE UnitPrice > @pricePoint " _
& "ORDER BY UnitPrice DESC;"
' Specify the parameter value.
Dim paramValue As Integer = 5
' Create and open the connection in a using block. This
' ensures that all resources will be closed and disposed
' when the code exits.
Using connection As New SqlConnection(connectionString)
' Create the Command and Parameter objects.
Dim command As New SqlCommand(queryString, connection)
command.Parameters.AddWithValue("@pricePoint", paramValue)
' Open the connection in a try/catch block.
' Create and execute the DataReader, writing the result
' set to the console window.
Try
connection.Open()
Dim dataReader As SqlDataReader = _
command.ExecuteReader()
Do While dataReader.Read()
Console.WriteLine( _
vbTab & "{0}" & vbTab & "{1}" & vbTab & "{2}", _
dataReader(0), dataReader(1), dataReader(2))
Loop
dataReader.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Using
End Sub
End Class
這是我在vs2010中微軟自帶的MSDN示例代碼裡面拷的，是關於ADO.net連接sql的操作。
希望對你有幫助。 如果你還需要其他的，我也可以再拷給你看。
⑶ VB.NET如何連接資料庫
VB.NET連接資料庫的幾種方法
Microsoft Visual Basic.NET 是Microsoft Visual Basic的更新版本，它基於.NET的框架結構，能使用戶非常容易地創建Microsoft Windows操作系統和網路的應用程序。 使用Visual Basic.NET，可以快速地實現可視化開發網路應用程序、網路服務、Windows 應用程序和伺服器端組件。另外，Visual Basic.NET為Windows應用程序提供了XCOPY部署，開發人員不再需要為DLL的版本問題擔憂。 Visual Basic現在已經真正成為面向對象以及支持繼承性的語言。窗體設計器支持可視化繼承，並且包含了許多新的特性，比如自動改變窗體大小、資源本地化以及可達性支持。數據類工具內在支持XML數據，在設計時數據綁定使用斷開的數據。另外， Visual Basic.NET直接建立在.NET 的框架結構上，因此開發人員可以充分利用所有平台特性，也可以與其他的.NET語言交互。
在這篇文章中我要跟大家講的，是介紹Visual Basic.NET的資料庫編程及其相關知識。
一、先介紹ADO.NET和ODBC.NET
ADO .NET由Microsoft ActiveX Data Objects (ADO)改進而來，它提供平台互用和可收縮的數據訪問功能，是Visual Basic.NET進行資料庫編程所使用的重要工具。ADO.NET 使用了某些 ADO 的對象，如 Connection 和 Command 對象，並且還引入了新的對象。主要的新 ADO.NET 對象包括 DataSet、DataReader 和 DataAdapter。
ODBC.NET是.NET框架中另外一個很有用的用於資料庫開發的類庫。但是，在.NET FrameWork SDK1.0版中不包含 ODBC.NET，要使用ODBC.NET請到微軟網站下載，具體下載地址：http: //msdn.microsoft.com/library/default.asp?url=/downloads/list/netdevframework.asp （文件名是odbc_net.msi）在默認情況下，安裝路徑是「C:\Program File\Microsoft.net\odbc.net」。安裝後的組件名為Microsoft.Data.Odbc.dll文件。
添加ODBC .NET Data Provider的步驟：
啟動Visual Basic.NET開發環境，選中菜單欄的[工具]—>[數據]—>[自定義工具箱]，在彈出的[自定義工具箱] 對話框中選[.Net 框架組件]單擊[瀏覽]按鈕，在「C:\Program File\Microsoft.net\odbc.net」目錄下選擇 Microsoft.Data.Odbc.dll文件。接下來就在[自定義工具箱]中選擇「OdbcCommand」、 「OdbcCommandBuilder」、「OdbcConnection」、「OdbcDataApdater」後，單擊[確定]。至此，完成了在 Visual Basic.NET中加入ODBC .NET。
二、接下來介紹數據提供者（Data Provider）
ADO.NET和ODBC.NET兩者共提供了三種數據提供者，其中ADO.NET提供兩種（The SQL Server .NET Data Provider和 The OLE DB .NET Data Provider ） ODBC .NET提供一種（The ODBC .NET Data Provider）。表1是三種數據提供者及其支持的資料庫:
數據提供者（Data Provider）
支持的資料庫
I
The SQL Server .NET Data Provider
僅支持SQL Server7.0或更高版本
II
The OLE DB .NET Data Provider
Access、Oracle和Sql Server等
III
The ODBC .NET Data Provider
Access、Oracle、Sql Server、MySql、VFP等
表1三種數據提供者及其支持的資料庫
三、接下來就分別介紹以上幾種數據提供者連接各種資料庫
1、 用The SQL Server .NET Data Provider連接資料庫
The SQL Server .NET Data Provider是利用SqlConnection類來連接SQL Server7.0或更高版本的資料庫，
SqlConnection類位於名稱空間System.Data.SqlClient下。
連接代碼：
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 『關閉連接，釋放資源
2、 用The OLE DB .NET Data Provider連接資料庫
上面已經說過，利用The OLE DB .NET Data Provider可以訪問Access、Oracle和SQL Server等種數據
庫，那麼，它是怎樣訪問這些資料庫的呢？The OLE DB .NET Data Provider是通過位於名稱空間Sy
stem.Data.OleDb類庫下的OleDbConnection類來連接這三種不同類型的資料庫的。下面舉例說明:
1)連接SQL Server資料庫
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=SQLOLEDB;Persist Security Info=False; Data Source=伺服器名;Initial Catalog=資料庫名;User ID=sa;Password=;」
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)
2)連接Access資料庫
假設要連接的Access資料庫名為「Example.mdb」，存放在d:\Data\目錄下。
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb」
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3)連接Oracle資料庫
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As Sting=」Provider=MSDAORA;Data Source=伺服器名;User ID=用戶ID;Password=密碼;」
oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)
3、 用The ODBC .NET Data Provider連接資料庫
The ODBC .NET Data Provider連接資料庫是通過OdbcConnection類來實現的，這個類位於名稱空間
Microsoft.Data.Odbc下，而名稱空間Microsoft.Data.Odbc是封裝在Microsoft.Data.Odbc.dll文件下的。
由於篇幅有限，這里就只介紹連接Sql Server和Oracle資料庫的方法，其他資料庫的連接方法基本類
似，我就不再多講了。
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)
2)連接Oracle資料庫
Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection
Dim strConnect As Sting=」Driver={Microsoft ODBC for Oracle};Server=伺服器名;Uid=sa;pwd=;」
odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)
四、總結
通過本文的介紹，讀者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET連接各種資料庫的方法
。以上三種驅動針對不同的資料庫，它們的性能方面也有很大的不同：The SQL Server .NET Data Provider
的效率最高；The OLE DB .NET Data Provider的效率比較底；The ODBC .NET Data Provider的效率最慢。
具體連接哪一種資料庫選用哪一種數據驅動要從工作效率方面來考慮。
相關資料：http://dotnet.chinaitlab.com/VBNET/759455_3.html
⑷ 如何用vb.net查詢、添加、刪除、修改資料庫(需要很詳細的代碼)
sQueryString是SQL（增刪查改）語句
public
Boolean
ExecSQL(string
sQueryString)
{
SqlConnection
con
=
new
SqlConnection(ConfigurationManager.AppSettings["conStr"]);
con.Open();
SqlCommand
dbCommand
=
new
SqlCommand(sQueryString,
con);
try
{
dbCommand.ExecuteNonQuery();
con.Close();
}
catch
{
con.Close();
return
false;
}
return
true;
}
}
建立一個類，明自己取，然後調用就是了
例如：
類
BC=NEW
類（）；
STRING
ist="INSERT
INTO
XX(1,2,3)VALUES(A,B,C)";
BC.ExecSQL（ist）;
就可以了
⑸ vb.net資料庫操作
參考一下下面這段代碼就可以了。
Imports System.Data
'引入資料庫操作類命名空間
Imports System.Data.OleDb
'引入ADO.NET操作命名空間
Public Class FrmModifystInfo
Inherits System.Windows.Forms.Form
Public ADOcmd As OleDbDataAdapter
Public ds As DataSet = New DataSet()
'建立DataSet對象
Public mytable As Data.DataTable
'建立表單對象
Public myrow As Data.DataRow
'建立數據行對象
Public rownumber As Integer
'定義一個整型變數來存放當前行數
Public SearchSQL As String
Public cmd As OleDbCommandBuilder
'======================================================
#Region " Windows 窗體設計器生成的代碼 "
#End Region
'======================================================
Private Sub FrmModifystInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'窗體的載入
TxtSID.Enabled = False
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False
TxtAddress.Enabled = False
TxtComment.Enabled = False '設置信息為只讀
Dim tablename As String = "student_Info "
SearchSQL = "select * from student_Info "
ExecuteSQL(SearchSQL, tablename) '打開資料庫
ShowData() '顯示記錄
End Sub
Private Sub ShowData()
'在窗口中的textbox中顯示數據
myrow = mytable.Rows.Item(rownumber)
TxtSID.Text = myrow.Item(0).ToString
TxtName.Text = myrow.Item(1).ToString
ComboSex.Text = myrow.Item(2).ToString
TxtBornDate.Text = Format(myrow.Item(3), "yyyy-MM-dd ")
TxtClassno.Text = myrow.Item(4).ToString
TxtTel.Text = myrow.Item(5).ToString
TxtRuDate.Text = Format(CDate(myrow.Item(6)), "yyyy-MM-dd ")
TxtAddress.Text = myrow.Item(7).ToString
TxtComment.Text = myrow.Item(8).ToString
End Sub
Private Sub BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtFirst.Click
'指向第一條數據
rownumber = 0
ShowData()
End Sub
Private Sub BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPrev.Click
'指向上一條數據
BtNext.Enabled = True
rownumber = rownumber - 1
If rownumber < 0 Then
rownumber = 0 '如果到達記錄的首部，行號設為零
BtPrev.Enabled = False
End If
ShowData()
End Sub
Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNext.Click
'指向上一條數據
BtPrev.Enabled = True
rownumber = rownumber + 1
If rownumber > mytable.Rows.Count - 1 Then
rownumber = mytable.Rows.Count - 1 '判斷是否到達最後一條數據
BtNext.Enabled = False
End If
ShowData()
End Sub
Private Sub BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLast.Click
'指向最後一條數據
rownumber = mytable.Rows.Count - 1
ShowData()
End Sub
Private Sub BtDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDelete.Click
mytable.Rows.Item(rownumber).Delete() '刪除記錄
If MsgBox( "確定要刪除改記錄嗎？ ", MsgBoxStyle.OKCancel + vbExclamation, "警告 ") = MsgBoxResult.OK Then
cmd = New OleDbCommandBuilder(ADOcmd)
'使用自動生成的SQL語句
ADOcmd.Update(ds, "student_Info ")
BtNext.PerformClick()
End If
End Sub
Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click
TxtSID.Enabled = False '關鍵欄位只讀
TxtName.Enabled = True '可讀寫
ComboSex.Enabled = True
TxtBornDate.Enabled = True
TxtClassno.Enabled = True
TxtRuDate.Enabled = True
TxtTel.Enabled = True
TxtAddress.Enabled = True
TxtComment.Enabled = True
End Sub
Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click
If Not Testtxt(TxtName.Text) Then
MsgBox( "請輸入姓名！ ", vbOKOnly + vbExclamation, "警告 ")
TxtName.Focus()
Exit Sub
End If
If Not Testtxt(ComboSex.Text) Then
MsgBox( "請選擇性別！ ", vbOKOnly + vbExclamation, "警告 ")
ComboSex.Focus()
Exit Sub
End If
If Not Testtxt(TxtClassno.Text) Then
MsgBox( "請選擇班號！ ", vbOKOnly + vbExclamation, "警告 ")
TxtClassno.Focus()
Exit Sub
End If
If Not Testtxt(TxtTel.Text) Then
MsgBox( "請輸入聯系電話！ ", vbOKOnly + vbExclamation, "警告 ")
TxtTel.Focus()
Exit Sub
End If
If Not Testtxt(TxtAddress.Text) Then
MsgBox( "請輸入家庭住址！ ", vbOKOnly + vbExclamation, "警告 ")
TxtAddress.Focus()
Exit Sub
End If
If Not IsNumeric(Trim(TxtSID.Text)) Then
MsgBox( "請輸入數字學號！ ", vbOKOnly + vbExclamation, "警告 ")
Exit Sub
TxtSID.Focus()
End If
If Not IsDate(TxtBornDate.Text) Then
MsgBox( "出生時間應輸入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")
Exit Sub
TxtBornDate.Focus()
End If
If Not IsDate(TxtRuDate.Text) Then
MsgBox( "入校時間應輸入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")
TxtRuDate.Focus()
Exit Sub
End If
myrow.Item(0) = Trim(TxtSID.Text)
myrow.Item(1) = Trim(TxtName.Text)
myrow.Item(2) = Trim(ComboSex.Text)
myrow.Item(3) = Trim(TxtBornDate.Text)
myrow.Item(4) = Trim(TxtClassno.Text)
myrow.Item(5) = Trim(TxtTel.Text)
myrow.Item(6) = Trim(TxtRuDate.Text)
myrow.Item(7) = Trim(TxtAddress.Text)
myrow.Item(8) = Trim(TxtComment.Text)
mytable.GetChanges()
cmd = New OleDbCommandBuilder(ADOcmd)
'使用自動生成的SQL語句
ADOcmd.Update(ds, "student_Info ")
'對資料庫進行更新
MsgBox( "修改學籍信息成功！ ", vbOKOnly + vbExclamation, "警告 ")
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False
TxtAddress.Enabled = False
TxtComment.Enabled = False '重新設置信息為只讀
End Sub
Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
TxtSID.Enabled = False
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False
TxtAddress.Enabled = False
TxtComment.Enabled = False
End Sub
Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)
Try
'建立ADODataSetCommand對象
'資料庫查詢函數
ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb ")
'建立ADODataSetCommand對象
ADOcmd.Fill(ds, table) '取得表單
mytable = ds.Tables.Item(0) '取得名為table的表
rownumber = 0 '設置為第一行
myrow = mytable.Rows.Item(rownumber)
'取得第一行數據
Catch
MsgBox(Err.Description)
End Try
End Function
End Class
⑹ vb.net 有關資料庫的操作
具體說起來就麻煩了，給你看我做的一個查詢吧
我有一些視頻教程，太大，發不了給你，介紹個比較好的網站：csdn，有。net問題去那問會更好
cs里的代碼：
using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Data.SqlClient;
public partial class 鑒定查詢 : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
}
protected void Button1_Click(object sender, EventArgs e)
{
SqlConnection conn = new SqlConnection();
ConnectionStringSettings connsetting = ConfigurationManager.ConnectionStrings["科研管理ConnectionString"];
conn.ConnectionString = connsetting.ConnectionString;
SqlCommand cmd = new SqlCommand("proc_achimang_selectappraisal", conn);
cmd.CommandType = CommandType.StoredProcere;
conn.Open();
cmd.Parameters.AddWithValue("@鑒定編號", this.鑒定編號.Text);
cmd.Parameters.AddWithValue("@鑒定登記號", this.鑒定登記號.Text);
cmd.Parameters.AddWithValue("@鑒定獲得人", this.鑒定獲得人.Text);
cmd.Parameters.AddWithValue("@鑒定級別", this.鑒定級別.SelectedValue);
cmd.Parameters.AddWithValue("@鑒定形式", this.鑒定形式.SelectedValue);
cmd.Parameters.AddWithValue("@成果水平", this.成果水平.SelectedValue);
cmd.Parameters.AddWithValue("@鑒定日期", this.鑒定日期.Text);
SqlDataAdapter sda = new SqlDataAdapter(cmd);
DataSet dt = new DataSet();
sda.Fill(dt);
GridView1.DataSource = dt;
GridView1.DataBind();
conn.Close();
}
protected void GridView1_PageIndexChanging(object sender, GridViewPageEventArgs e)
{
GridView1.PageIndex = e.NewPageIndex;
SqlConnection conn = new SqlConnection();
ConnectionStringSettings connsetting = ConfigurationManager.ConnectionStrings["科研管理ConnectionString"];
conn.ConnectionString = connsetting.ConnectionString;
SqlCommand cmd = new SqlCommand("proc_achimang_selectappraisal", conn);
cmd.CommandType = CommandType.StoredProcere;
conn.Open();
cmd.Parameters.AddWithValue("@鑒定編號", this.鑒定編號.Text);
cmd.Parameters.AddWithValue("@鑒定登記號", this.鑒定登記號.Text);
cmd.Parameters.AddWithValue("@鑒定獲得人", this.鑒定獲得人.Text);
cmd.Parameters.AddWithValue("@鑒定級別", this.鑒定級別.SelectedValue);
cmd.Parameters.AddWithValue("@鑒定形式", this.鑒定形式.SelectedValue);
cmd.Parameters.AddWithValue("@成果水平", this.成果水平.SelectedValue);
cmd.Parameters.AddWithValue("@鑒定日期", this.鑒定日期.Text);
SqlDataAdapter sda = new SqlDataAdapter(cmd);
DataSet dt = new DataSet();
sda.Fill(dt);
GridView1.DataSource = dt;
GridView1.DataBind();
conn.Close();
}
protected void GridView1_DataBound(object sender, EventArgs e)
{
Label1.Text = "點擊編號名查看詳細信息";
}
}
存儲過程：
ALTER PROCEDURE dbo.proc_achimang_selectappraisal
@鑒定編號 char(50)=null,
@鑒定登記號 varchar(50)=null,
@鑒定獲得人 varchar(50)=null,
@鑒定級別 varchar(50)=null,
@鑒定形式 varchar(50)=null,
@成果水平 varchar(255)=null,
@鑒定日期 varchar(50)=null
AS
if isnull(@鑒定獲得人,'') !=''
select [ID], [成果ID],[鑒定編號], [鑒定登記號],[狀態] FROM [科研鑒定表]
where ID in (select[鑒定ID] from [鑒定獲得人] where 人員ID in (select ID from [人員信息表] where [姓名] like '%'+isnull(@鑒定獲得人,'')+'%'))
and (case isnull(@鑒定編號,'') when '' then '' else 鑒定編號 end)=isnull(@鑒定編號 ,'')
and (case isnull(@鑒定登記號,'') when '' then '' else 鑒定登記號 end)=isnull(@鑒定登記號 ,'')
and (case isnull(@鑒定級別,'') when '' then '' else 鑒定級別 end)=isnull(@鑒定級別 ,'')
and (case isnull(@鑒定形式,'') when '' then '' else 鑒定形式 end)=isnull(@鑒定形式,'')
and (case isnull(@成果水平,'') when '' then '' else 成果水平 end)=isnull(@成果水平,'')
and (case isnull(@鑒定日期,'') when '' then '' else 鑒定日期 end) like '%'+isnull(@鑒定日期 ,'')+'%'
else
SELECT [ID], [成果ID],[鑒定編號], [鑒定登記號],[狀態] FROM [科研鑒定表]
where (case isnull(@鑒定編號,'') when '' then '' else 鑒定編號 end)=isnull(@鑒定編號 ,'')
and (case isnull(@鑒定登記號,'') when '' then '' else 鑒定登記號 end)=isnull(@鑒定登記號 ,'')
and (case isnull(@鑒定級別,'') when '' then '' else 鑒定級別 end)=isnull(@鑒定級別 ,'')
and (case isnull(@鑒定形式,'') when '' then '' else 鑒定形式 end)=isnull(@鑒定形式,'')
and (case isnull(@成果水平,'') when '' then '' else 成果水平 end)=isnull(@成果水平,'')
and (case isnull(@鑒定日期,'') when '' then '' else 鑒定日期 end) like '%'+isnull(@鑒定日期 ,'')+'%'
RETURN
⑺ 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資料庫課程設計
看你要做出什麼樣的效果,根據你要顯示的內容進行資料庫建立欄位,然後進行對記錄的插,查,刪除,改的操作