hai,

Is there any way to convert VB.Net project into VB6 project, pls help me..

I have not heard of any automated tools to help with this and I do not think any will be coming. You will have to do most of it my hand; forms/user controls are completely different in terms of how they defined and wired up. That said, some of the logic should move directly over.

you can't convert directly to previous version. you need to do it manually by re writing the code as suggested in the previous post.

Imports System.Data.SqlClient
Partial Class Fmaster
Inherits System.Web.UI.Page
Dim con As New SqlConnection("data source=ABU; database=Focus5050; uid=sa; pwd=Focus123")

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
con.Open()
Dim com As New SqlCommand("sp_V_typeinsert", con)
com.Connection = con
com.CommandType = Data.CommandType.StoredProcedure
com.Parameters.Add(New SqlParameter("@VoucherNo", TextBox1.Text))
com.Parameters.Add(New SqlParameter("@Date", TextBox3.Text))
com.Parameters.Add(New SqlParameter("@Name", (DropDownList1.SelectedItem.Text)))
com.Parameters.Add(New SqlParameter("@VoucherType", TextBox2.Text))
com.Parameters.Add(New SqlParameter("@ItemName", (DropDownList2.SelectedItem.Text)))
com.ExecuteNonQuery()
Response.Redirect("Default.aspx")
con.Close()
Response.Write("data saved")
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim str As String = ("select * from mr000")
Dim Optcustacc As New SqlCommand(str, con)
com.Connection = con
Dim sqlda As New SqlDataAdapter(com)
con.Open()
DropDownList1.DataSource = Optcustacc.ExecuteReader()
DropDownList1.DataTextField = ("Name")
DropDownList1.DataValueField = ("MasterId")
DropDownList1.DataBind()
con.Close()
Dim str1 As String = ("select * from mr001")
Dim comm As New SqlCommand(str1, con)
comm.Connection = con
Dim sqlda1 As New SqlDataAdapter(comm)
con.Open()
DropDownList2.DataSource = comm.ExecuteReader()
DropDownList2.DataTextField = ("Name")
DropDownList2.DataValueField = ("MasterId")
DropDownList2.DataBind()
con.Close()
Dim str2 As String = ("select * from vtypes")
Dim com1 As New SqlCommand(str2, con)
com1.Connection = con
Dim sqlda2 As New SqlDataAdapter(com1)
con.Close()

End If
End Sub
End Class

Comments
idiot

You can always upgrade vb6.0 codes to vb.net but never heard of it the other way round. The world is moving forward.
Since you have the vb.net codes and you understand it, the vb6.0 would be easy for you to implement

This article has been dead for over six months. Start a new discussion instead.