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 SubPrivate 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 SubPrivate 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 FunctionEnd Class
数据库索引是什么，有什么用，怎么用
下面是关于数据库索引的相关知识：
简单来说，数据库索引就是数据库的数据结构！进一步说则是该数据结构中存储了一张表中某一列的所有值，也就是说索引是基于数据表中的某一列创建的。总而言之：一个索引是由表中某一列上的数据组成，并且这些数据存储在某个数据结构中。
2.索引的作用。举个例子，假设有一张数据表Emplyee，该表有三列：
表中有几万条记录。现在要执行下面这条查询语句，查找出所有名字叫“Jesus”的员工的详细信息
3.如果没有数据库索引功能，数据库系统会逐行的遍历整张表，对于每一行都要检查其Employee_Name字段是否等于“Jesus”。因为我们要查找所有名字为“Jesus”的员工，所以当我们发现了一条名字是“Jesus”的记录后，并不能停止继续查找，因为可能有其他员工也叫“Jesus”。这就意味着，对于表中的几万条记录，数据库每一条都要检查。这就是所谓的“全表扫描”（ full table scan）-vb
4.而数据库索引功能索引的最大作用就是加快查询速度，它能从根本上减少需要扫表的记录/行的数量。
5.如何创建数据库索引。可以基于Employee表的两列创建索引即可：
拓展资料：
索引是对数据库表中一列或多列的值进行排序的一种结构，使用索引可快速访问数据库表中的特定信息。如果想按特定职员的姓来查找他或她，则与在表中搜索所有的行相比，索引有助于更快地获取信息。
2.索引的一个主要目的就是加快检索表中数据的方法，亦即能协助信息搜索者尽快的找到符合限制条件的记录ID的辅助数据结构。
3.索引是对数据库表中一个或多个列（例如，employee 表的姓名 (name) 列）的值进行排序的结构。
4.例如这样一个查询：select * from table1 where id=10000。如果没有索引，必须遍历整个表，直到ID等于10000的这一行被找到为止；有了索引之后(必须是在ID这一列上建立的索引)，即可在索引中查找。由于索引是经过某种算法优化过的，因而查找次数要少的多。可见，索引是用来定位的。-数据库
5.从数据搜索实现的角度来看，索引也是另外一类文件/记录，它包含着可以指示出相关数据记录的各种记录。其中，每一索引都有一个相对应的搜索码，字符段的任意一个子集都能够形成一个搜索码。这样，索引就相当于所有数据目录项的一个集合，它能为既定的搜索码值的所有数据目录项提供定位所需的各种有效支持-vb
参考资料：数据库索引-百度百科
如何安装sqlserver2000数据库
网上有图文教程，参考连接1将Microsoft SQL Server 2000安装光盘放入光驱中，安装程序会自动运行出现版本选择界面，或是直接运行Microsoft SQL Server 2000安装压缩包，我们以安装企业版为例。2在接下来的界面中选择“安装SQL Server 2000组件”选项。如下图所示：3接着选择“安装数据库服务器”。如下图所示：4稍后才开始出现安装向导，点击“下一步”。5接着出现“计算机名”窗口。“本地计算机”是默认选项，其名称就显示在上面，我们按其默认设置，点“下一步”。6在 “安装选” 窗口，选择 “创建新的SQL Server实例，，或安装客户端工具”。对于初次安装的用户，应选用这一安装模式，不需要使用 “高级选项“ 进行安装。 “高级选项“ 中的内容均可在安装完成后进行调整，点“下一步”。7接下来的窗口是用户名、公司名的自取，同样地，按其默认，点“下一步”。“经过软件许可协议”对话框，选择“是”，到达“安装定义”对话窗口（如下图）。 在 “安装定义”窗口，选择 “服务器和客户端工具” 选项进行安装。我们需要将服务器和客户端同时安装，这样在同一台机器上，我们可以完成相关的所有操作，对于我们学习SQL Server很有用处。如果你已经在其它机器上安装了SQL Server，则可以只安装客户端工具， 用于对其它机器上SQL Server的存取。 同样地，按其默认“服务器和客户端工具”选择到“下一步”。在 “实例名“ 窗口，选择 “默认” 的实例名称。这时本SQL Server的名称将和Windows 2000服务器的名称相同。例如笔者的Windows服务器名称是 “Darkroad”，则SQL Server的名字也是 “Darkroad”。SQL Server 2000可以在同一台服务器上安装多个实例，也就是你可以重复安装几次。这时您就需要选择不同的实例名称了。建议将实例名限制在 10 个字符之内。实例名会出现在各种 SQL Server 和系统工具的用户界面中，因此，名称越短越容易读取。另外，实例名称不能是 “Default” 或 “MSSQLServer” 以及SQL Server的保留关键字等。“实例名”对话框按默认值，点“下一步”。在 “安装类型” 窗口，选择 “典型” 安装选项，并指定 “目的文件夹”。程序和数据文件的默认安装位置都是 C:\Program Files\Microsoft SQL Server\。一般C盘是系统区、建议放到其它盘。注意，如果您的数据库数据有10万条以上的话，请预留至少1G的存储空间，以应付需求庞大的日志空间和索引空间。按默认值。点“下一步”。在 “服务账号” 窗口，请选择 “对每个服务使用统一账户...” 的选项。在 “服务设置” 处，选择 “使用本地系统账户”。如果需要 “使用域用户账户” 的话，请将该用户添加至Windows Server的本机管理员组中。按默认值，必须输入机器密码，才能点“下一步”。在“身份验证模式” 窗口，请选择 “混合模式...” 选项，并设置管理员“sa”账号的密码。如果您的目的只是为了学习的话，可以将该密码设置为空，以方便登录。如果是真正的应用系统，则千万需要设置和保管好该密码！：）如果需要更高的安全性，则可以选择 “Windows身份验证模式” ，这时就只有Windows Server的本地用户和域用户才能使用SQL Server了。直接点“下一步”，开始复制文件。在 “选择许可模式” 窗口，根据您购买的类型和数量输入（0表示没有数量限制）。 “每客户”表示同一时间最多允许的连接数，“处理器许可证”表示该服务器最多能安装多少个CPU。笔者这里选择了“每客户” 并输入了100作为示例。出现安装程序进度条，稍等10分钟左右后，安装完成，弹出“安装完毕”对话框，点“完成”。安装完成后， 在“开始”-》“所有程序”中可以看到“Microsoft SQL Server”,即表示安装完成。打开“开始”-》“所有程序”-》“Microsoft SQL Server”-》“企业管理器”，便可以进行数据库的操作。
