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
CODE PROJECT For Those Who Code
  • Home
  • Articles
  • FAQ
Community
  1. Home
  2. General Programming
  3. Visual Basic
  4. VB6 to VB.Net

VB6 to VB.Net

Scheduled Pinned Locked Moved Visual Basic
csharphelp
2 Posts 2 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.
  • S Offline
    S Offline
    shakizil
    wrote on last edited by
    #1

    I am new to VB.Net and I having some difficulty with the new codes. I wrote the following code in VB6 and trying to implement the same technique in VB.Net. autosql = "select * from orders" Set myorder = mydb.OpenRecordset(autosql, dbOpenDynaset) If myorder.EOF Then x = 1 Else myorder.MoveLast x = myorder!autono + 1 End If addordstring = "insert into orders values(" & x & ",'" & mebdate & "','" & txtaccount & "','" & phone & "','" & coname & "','" & psgname & "','" & cabno & "','" & authname & "','" & driver & "','" & mebpick & "','" & wait & "','" & mebdrop & "','" & from & "','" & txtto & "','" & fare & "')" Set addorder = mydb.CreateQueryDef("", addordstring) addorder.Execute MsgBox "New entry has been added", vbOKOnly + vbExclamation, "Success" clear End Sub Can someone help please. Thanks.

    K 1 Reply Last reply
    0
    • S shakizil

      I am new to VB.Net and I having some difficulty with the new codes. I wrote the following code in VB6 and trying to implement the same technique in VB.Net. autosql = "select * from orders" Set myorder = mydb.OpenRecordset(autosql, dbOpenDynaset) If myorder.EOF Then x = 1 Else myorder.MoveLast x = myorder!autono + 1 End If addordstring = "insert into orders values(" & x & ",'" & mebdate & "','" & txtaccount & "','" & phone & "','" & coname & "','" & psgname & "','" & cabno & "','" & authname & "','" & driver & "','" & mebpick & "','" & wait & "','" & mebdrop & "','" & from & "','" & txtto & "','" & fare & "')" Set addorder = mydb.CreateQueryDef("", addordstring) addorder.Execute MsgBox "New entry has been added", vbOKOnly + vbExclamation, "Success" clear End Sub Can someone help please. Thanks.

      K Offline
      K Offline
      Kevin McFarlane
      wrote on last edited by
      #2

      Have a look at the ADO.NET examples here http://samples.gotdotnet.com/quickstart/howto/[^] Kevin

      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