论文部分内容阅读
摘 要:以网络实验信息管理系统为研究背景,应用VB.NET将数据库信息发布到Internet上,很好地实现了WEB数据库建立、绑定、查询、编辑等操作,功能齐全,便于扩展。
关键词:VB.NET 实验信息管理 B/S(Browser/Server)模式 Internet 信息服务 软件设计
中图分类号:TP391.9 文献标识码:A 文章编号:1672-3791(2013)04(a)-0045-02
1 VB.NET概述[1]
在ADO中,如果脱离了数据提供者用来保存和描述数据的结构,数据将不能独立存在。系统的开发难点主要是对数据库的操作,ADO.NET用以下对象来实现对数据库的操作:
Connections--连接和管理数据库事务。
Commands--向数据库发送的命令。
DataReaders--直接读取流数据。
DateSets 和 DateSetCommands--对驻留内存中的数据进行存储和操作。
2 核心源码
2.1 数据建立
在系统中创建一个公用模块改模块中实现对数据库的所有访问。
//引入访问SQLServer数据库[2]的命名空间
Imports System
Imports System.Data
Imports System.Data.SqlClient
Module Module1
//在模块中定义一些公共变量,用于在窗体之间传递数据
Public Connstr As String = "server=(local);database=lab;Trusted_connection=yes"
Public DataAdapter as SqlDataAdapter
Public DataConnection as SqlConnection
Public DataSet as DataSet
//定义一个用于返回数据集的公共查询函数,如果正常访问数据库则返回查询结果,改结果以一个数据集来表现,否则则返回Nothing
Public Function GetDataFromSql(ByVal sqlstr As String) As DataSet
Try
DataConnection = New SqlConnection(Connstr)
DataAdapter = New SqlDataAdapter(sqlstr,DataConnection)
DataSet = New DataSet
DataSet.Clear()
DataAdapter.Fill(DataSet)
DataConnection.Close()
关键词:VB.NET 实验信息管理 B/S(Browser/Server)模式 Internet 信息服务 软件设计
中图分类号:TP391.9 文献标识码:A 文章编号:1672-3791(2013)04(a)-0045-02
1 VB.NET概述[1]
在ADO中,如果脱离了数据提供者用来保存和描述数据的结构,数据将不能独立存在。系统的开发难点主要是对数据库的操作,ADO.NET用以下对象来实现对数据库的操作:
Connections--连接和管理数据库事务。
Commands--向数据库发送的命令。
DataReaders--直接读取流数据。
DateSets 和 DateSetCommands--对驻留内存中的数据进行存储和操作。
2 核心源码
2.1 数据建立
在系统中创建一个公用模块改模块中实现对数据库的所有访问。
//引入访问SQLServer数据库[2]的命名空间
Imports System
Imports System.Data
Imports System.Data.SqlClient
Module Module1
//在模块中定义一些公共变量,用于在窗体之间传递数据
Public Connstr As String = "server=(local);database=lab;Trusted_connection=yes"
Public DataAdapter as SqlDataAdapter
Public DataConnection as SqlConnection
Public DataSet as DataSet
//定义一个用于返回数据集的公共查询函数,如果正常访问数据库则返回查询结果,改结果以一个数据集来表现,否则则返回Nothing
Public Function GetDataFromSql(ByVal sqlstr As String) As DataSet
Try
DataConnection = New SqlConnection(Connstr)
DataAdapter = New SqlDataAdapter(sqlstr,DataConnection)
DataSet = New DataSet
DataSet.Clear()
DataAdapter.Fill(DataSet)
DataConnection.Close()