转:Visual Basic.NET快速开发MIS系统(1)
点击次数：53 次 发布日期：2008-11-06 08:07:59 作者：源代码网
源代码网推荐 源代码网推荐 2002-11-29· ·黎宇 ··yesky 源代码网推荐 源代码网推荐 【摘 要】 本文介绍微软最新技术Visual Basic.NET在数据库开发方面的应用。结合数据库系统开发的知识，介绍了物理表操作的方法，利用Visual Basic.NET的面向对象的特征，利用类的继承知识，简化了数据库系统开发过程。 源代码网推荐 源代码网推荐 引言 源代码网推荐 源代码网推荐 以前版本的Visual Basic虽然号称自己是一种OOP（面向对象）编程语言，但却不是一个地地道道的OOP编程语言，最多只是半个面向对象的编程语言。但Visual Basic.NET已经是一种完全的面向对象的编程语言。他支持面向对象的所有基本特征：继承、多态和重载。这使得以前在Visual Basic中很难或根本实现不了的问题，在Visual Basic.NET中可以顺利的用简单的方法实现。 源代码网推荐 源代码网推荐 自定义数据操作类 源代码网推荐 源代码网推荐 定义一个数据访问的基类，并编写有关数据库操作的必要方法。 源代码网推荐 源代码网推荐 定义一个数据访问类，类名为CData。定义连接Oracle数据库的方法ConnOracle，获取数据集的方法GetDataSet, 获取物理表的方法GetDataTable, 向物理表中插入一行数据的方法Insert, 向物理表中删除数据的方法Delete, 向物理表中更新数据的方法Update。其实现方法不是本文的重点，在此仅给出代码，不作详细分析。代码如下： 源代码网推荐 源代码网推荐 Public Class CDataBase 源代码网推荐 Dim OleCnnDB As New OleDbConnection() 源代码网推荐 源代码网推荐 "连接Oracle数据库，ServerName:服务器名，UserId:用户名，UserPwd:用户密码 源代码网推荐 Public Function ConnOracle(ByVal ServerName As String, ByVal UserId As String, ByVal UserPwd As String) As OleDbConnection 源代码网推荐 源代码网推荐 Dim OleCnnDB As New OleDbConnection() 源代码网推荐 With OleCnnDB 源代码网推荐 .ConnectionString = "Provider=MSDAORA.1;Password="" & UserPwd & "";User ID="" & UserId & "";Data Source="" & ServerName & """ 源代码网推荐 Try 源代码网推荐 .Open() 源代码网推荐 Catch er As Exception 源代码网推荐 MsgBox(er.ToString) 源代码网推荐 End Try 源代码网推荐 End With 源代码网推荐 mOleCnnDB = OleCnnDB 源代码网推荐 Return OleCnnDB 源代码网推荐 End Function 源代码网推荐 源代码网推荐 "获取数据集。TableName：表名，strWhere：条件 源代码网推荐 Public Overloads Function GetDataSet(ByVal TableName As String, ByVal strWhere As String) As DataSet 源代码网推荐 源代码网推荐 Dim strSql As String 源代码网推荐 Dim myDataSet As New DataSet() 源代码网推荐 Dim myOleDataAdapter As New OleDbDataAdapter() 软件开发网 www.mscto.com 源代码网推荐 源代码网推荐 myOleDataAdapter.TableMappings.Add(TableName, TableName) 源代码网推荐 strSql = "SELECT * FROM " & TableName & " where " & strWhere 源代码网推荐 源代码网推荐 myOleDataAdapter.SelectCommand = New OleDbCommand(strSql, mOleCnnDB) 源代码网推荐 Try 源代码网推荐 myOleDataAdapter.Fill(myDataSet) 源代码网推荐 Catch er As Exception 源代码网推荐 MsgBox(er.ToString) 源代码网推荐 End Try 源代码网推荐 Return myDataSet 源代码网推荐 End Function 源代码网推荐 源代码网推荐 "获取物理表。TableName：表名 源代码网推荐 Public Overloads Function GetDataTable(ByVal TableName As String) As DataTable 源代码网推荐 Dim myDataSet As New DataSet() 源代码网推荐 myDataSet = GetDataSet(TableName) 源代码网推荐 Return myDataSet.Tables(0) 源代码网推荐 End Function 源代码网推荐 源代码网推荐 "获取物理表。TableName：表名，strWhere：条件 源代码网推荐 Public Overloads Function GetDataTable(ByVal TableName As String, ByVal strWhere As String) As DataTable 源代码网推荐 源代码网推荐 Dim myDataSet As New DataSet() 源代码网推荐 myDataSet = GetDataSet(TableName, strWhere) 源代码网推荐 源代码网供稿. |
