adonet+oracle+10g数据库应用程序开发实例（源代码）笑.pdfVIP

ADO.NET Oracle 10g 数据库应用程序开发实例讲解 -Peter Pan Public Class frmDataProcess Private objDataSet As New DataSet Private strSql As String Private objDataReader As OleDb.OleDbDataReader Private objCommand As New OleDb.OleDbCommand Private objDataAdapter As New OleDb.OleDbDataAdapter Private RowPos As Double Private NewEditStauts As Integer Private Sub tsbExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbExit.Click Me.Close() End Sub Private Sub frmDataProcess_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load NewEditStauts = 1 Call LoadClassData() Call LoadItemData() 1 End Sub Private Sub LoadClassData() Try strSql = select id,class,descrip from iqms.arinvt_class objCommand.Connection = Conn objCommand.CommandText = strSql objCommand.CommandType = CommandType.Text objDataReader = objCommand.ExecuteReader() If objDataReader.HasRows Then While objDataReader.Read() cboClass.Items.Add(objDataReader.Item(Class)) End While cboClass.SelectedIndex = -1 End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) Finally objDataReader.Close() objDataReader = Nothing End Try End Sub Public Sub LoadItemData() Dim iRows As Double strSql = select * from iqms.arinvt where class=FG order by id objCommand.Connection = Conn objCommand.CommandText = strSql objCommand.CommandType = CommandType.Text objDataAdapter.SelectCommand = objCommand objDataAdapter.Fill(objDataSet, Arinvt) dgvMain.DataSource = objDataSet dgvMain.DataMember = Arinvt