20 Jun 2016 @ 11:23 AM 

I just created a quick app using VB6 to convert VB.NET code to SQL and vice versa

Option Explicit
Dim strSQL As String
Dim strVB As String
Private Sub cmdConvert1_Click()
    strVB = Trim(Text1.Text)
    strVB = Replace(strVB, "strSQL = """, "")
    strVB = Replace(strVB, "strSQL &= "" ", "")
    strVB = Replace(strVB, """", "")
    strVB = Replace(strVB, " ", "")
    Text2.Text = Trim(strVB)
    If chkClear1.Value = vbChecked Then
        Text1.Text = ""
    End If
End Sub
Private Sub cmdConvert2_Click()
    strSQL = Trim(Text2.Text)
    strSQL = "strSQL = """ & strSQL
    strSQL = Replace(strSQL, vbCrLf, """" & vbCrLf & "strSQL &= "" ")
    Text1.Text = strSQL & """"
    If chkClear2.Value = vbChecked Then
        Text2.Text = ""
    End If
End Sub

Screenshot:

VB2SQL

Source and Exe:

VB2SQL

Posted By: Aeric
Last Edit: 20 Jun 2016 @ 11:28 AM

EmailPermalink
Tags
Tags: ,
Categories: Projects


 

Responses to this post » (None)

 
Post a Comment

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>


 Last 50 Posts
 Back
Change Theme...
  • Users » 2
  • Posts/Pages » 127
  • Comments » 199
Change Theme...
  • VoidVoid « Default
  • LifeLife
  • EarthEarth
  • WindWind
  • WaterWater
  • FireFire
  • LightLight