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数据库课程设计
看你要做出什么样的效果,根据你要显示的内容进行数据库建立字段,然后进行对记录的插,查,删除,改的操作