471,354 Members | 2,063 Online
Bytes | Software Development & Data Engineering Community
Post +

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 471,354 software developers and data experts.

How do I convert this from VB6

Dib
Hi,

I have this statment in VB6 how do I make it work in Dot net program.
Dim oForm as Form

If rs.Fields("OpenFM").Value = "F" Then

strSqlFName = "SELECT * from tblmenudesc where tblmenudesc.menuid=" &
rs.Fields(0).Value

rs2 = New ADODB.Recordset

rs2.Open(strSqlFName, Cn)

If rs2.BOF = False And rs2.EOF = False Then

'UPGRADE_ISSUE: Forms collection was not upgraded. Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'

'UPGRADE_WARNING: Couldn't resolve default property of object Forms.Add.
Click for more:
'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Set oForm = Forms.Add(rs2.Fields("FName"))

I = 3

oForm.Show()

Thanks

Dib


Jul 21 '05 #1
0 972

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

1 post views Thread by Logan X via .NET 247 | last post: by
7 posts views Thread by patang | last post: by
6 posts views Thread by patang | last post: by
4 posts views Thread by Edwin Knoppert | last post: by
3 posts views Thread by mrajanikrishna | last post: by
reply views Thread by XIAOLAOHU | last post: by

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.