Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. General Programming
  3. Visual Basic
  4. nedd help with this code from converting vb6.0 to .net

nedd help with this code from converting vb6.0 to .net

Scheduled Pinned Locked Moved Visual Basic
csharphelp
4 Posts 3 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • A Offline
    A Offline
    Anonymous
    wrote on last edited by
    #1

    i know it is the recordst but I dont know to read on vb.net Option Strict Off Option Explicit On Friend Class frmOomsra Inherits System.Windows.Forms.Form Dim prstRecordSet As DataSet #Region "Windows Form Designer generated code " Public Sub New() MyBase.New() If m_vb6FormDefInstance Is Nothing Then If m_InitializingDefInstance Then m_vb6FormDefInstance = Me Else Try 'For the start-up form, the first instance created is the default instance. If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then m_vb6FormDefInstance = Me End If Catch End Try End If End If 'This call is required by the Windows Form Designer. InitializeComponent() End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean) If Disposing Then If Not components Is Nothing Then components.Dispose() End If End If MyBase.Dispose(Disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer Public ToolTip1 As System.Windows.Forms.ToolTip Public WithEvents Total As System.Windows.Forms.Button Public WithEvents Previous As System.Windows.Forms.Button Public WithEvents Next_Renamed As System.Windows.Forms.Button Public WithEvents Delete As System.Windows.Forms.Button Public WithEvents Add_Renamed As System.Windows.Forms.Button Public WithEvents txtTotal_Cost As System.Windows.Forms.TextBox Public WithEvents txtUnitPrice As System.Windows.Forms.TextBox Public WithEvents txtBalance As System.Windows.Forms.TextBox Public WithEvents txtQty As System.Windows.Forms.TextBox Public WithEvents txtCustomerName As System.Windows.Forms.TextBox Public WithEvents dtaOomsra As System.Windows.Forms.Label Public WithEvents lblTotal_Cost As System.Windows.Forms.Label Public WithEvents lblUnitPrice As System.Windows.Forms.Label Public WithEvents lblBalance As System.Windows.Forms.Label Public WithEvents lblQty As System.Windows.Forms.Label Public WithEvents lblCustomerName As System.Windows.Forms.Label 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents DataSet1 As System.Data.DataSet Private Sub InitializeComponent() Me.components = New System.ComponentModel.Contai

    P 1 Reply Last reply
    0
    • A Anonymous

      i know it is the recordst but I dont know to read on vb.net Option Strict Off Option Explicit On Friend Class frmOomsra Inherits System.Windows.Forms.Form Dim prstRecordSet As DataSet #Region "Windows Form Designer generated code " Public Sub New() MyBase.New() If m_vb6FormDefInstance Is Nothing Then If m_InitializingDefInstance Then m_vb6FormDefInstance = Me Else Try 'For the start-up form, the first instance created is the default instance. If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then m_vb6FormDefInstance = Me End If Catch End Try End If End If 'This call is required by the Windows Form Designer. InitializeComponent() End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean) If Disposing Then If Not components Is Nothing Then components.Dispose() End If End If MyBase.Dispose(Disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer Public ToolTip1 As System.Windows.Forms.ToolTip Public WithEvents Total As System.Windows.Forms.Button Public WithEvents Previous As System.Windows.Forms.Button Public WithEvents Next_Renamed As System.Windows.Forms.Button Public WithEvents Delete As System.Windows.Forms.Button Public WithEvents Add_Renamed As System.Windows.Forms.Button Public WithEvents txtTotal_Cost As System.Windows.Forms.TextBox Public WithEvents txtUnitPrice As System.Windows.Forms.TextBox Public WithEvents txtBalance As System.Windows.Forms.TextBox Public WithEvents txtQty As System.Windows.Forms.TextBox Public WithEvents txtCustomerName As System.Windows.Forms.TextBox Public WithEvents dtaOomsra As System.Windows.Forms.Label Public WithEvents lblTotal_Cost As System.Windows.Forms.Label Public WithEvents lblUnitPrice As System.Windows.Forms.Label Public WithEvents lblBalance As System.Windows.Forms.Label Public WithEvents lblQty As System.Windows.Forms.Label Public WithEvents lblCustomerName As System.Windows.Forms.Label 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents DataSet1 As System.Data.DataSet Private Sub InitializeComponent() Me.components = New System.ComponentModel.Contai

      P Offline
      P Offline
      Pradeep C
      wrote on last edited by
      #2

      I would suggest you to start from scratch and use ADO.NET. It seems there isn't much work to be done even if u start all over again. "I think there is a world market for maybe 5 computers" Thomas Watson, chairman of IBM, 1943 "There is no reason anyone would want a computer in their home" Ken Olson, chairman & founder of Digital equipment, 1977 "This 'telephone' has too many shortcomings to be seriously considered as a means of communication. The device is ingerently of no value to us." Western Union internal memo, 1876 "640 K ought to be enough for anybody." Bill Gates, 1981 "Computers in the future may

      A 1 Reply Last reply
      0
      • P Pradeep C

        I would suggest you to start from scratch and use ADO.NET. It seems there isn't much work to be done even if u start all over again. "I think there is a world market for maybe 5 computers" Thomas Watson, chairman of IBM, 1943 "There is no reason anyone would want a computer in their home" Ken Olson, chairman & founder of Digital equipment, 1977 "This 'telephone' has too many shortcomings to be seriously considered as a means of communication. The device is ingerently of no value to us." Western Union internal memo, 1876 "640 K ought to be enough for anybody." Bill Gates, 1981 "Computers in the future may

        A Offline
        A Offline
        Anonymous
        wrote on last edited by
        #3

        I cant figure out how to use ado.net, can be posible an example have the book for it i just cannot understand, i tried every thing but it doesn't work at all, I am still use the vb6.0 then the net

        G 1 Reply Last reply
        0
        • A Anonymous

          I cant figure out how to use ado.net, can be posible an example have the book for it i just cannot understand, i tried every thing but it doesn't work at all, I am still use the vb6.0 then the net

          G Offline
          G Offline
          Guerven
          wrote on last edited by
          #4

          To start with, ADO and ADO.NET have very different approach. ADO in vb6 is autometed at most when compared to ADO.net Converting vb6 programs to vb.net is not very practical at most.... ok, ok! ok so! its not really effective and really difficult! You need to understand how ADO.net captures data. read a lot of references or search and download "PDF files" using IMESH. (the best way to gather references") You need 4 kind objects 1 connection 2 dataadapter 3 Command 4 Dataset A Dataview can be used for further processing. Marvin N. Guerrero - Casting More!!

          1 Reply Last reply
          0
          Reply
          • Reply as topic
          Log in to reply
          • Oldest to Newest
          • Newest to Oldest
          • Most Votes


          • Login

          • Don't have an account? Register

          • Login or register to search.
          • First post
            Last post
          0
          • Categories
          • Recent
          • Tags
          • Popular
          • World
          • Users
          • Groups