JPTL

Ok, bellow is an example Public Sub dInserir_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles dInserir.Click Dim db As DAO.Database Dim rs As DAO.Recordset db = DAODBEngine_definst.Workspaces(0).OpenDatabase(letra) rs = db.OpenRecordset("Select Max(n_cliente) As MC From DEPOSITARIOS") 'UPGRADE_ISSUE: Data property Data1.Recordset was not upgraded. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm? keyword="vbup2069"' Me.Data1.Recordset.AddNew() Me.Text1.Text = rs.Fields("MC").Value + 1 Me.Text2.Focus() End Sub OR THIS If mess = CStr(MsgBoxResult.Yes) Then Me.Data1.Recordset.Delete() Me.Data1.Recordset.MoveFirst() Else 'nada End If

Humm...i see, the conversion looks Good, why?, because the only things that´s not converted was, Data.Recordset Methods and the Load Form method, but this last one is easy to get a solution. How can i handle this?, thanks;)

Hi, when converting a DAO project all Data based on a DataSource can´t be upgraded, code bellow, how can i menage this?, Thanks 4 helping If mess = CStr(MsgBoxResult.Yes) Then 'UPGRADE_ISSUE: Data property Data1.Recordset was not upgraded. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2069"' Me.Data1.Recordset.Delete() 'UPGRADE_ISSUE: Data property Data1.Recordset was not upgraded. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2069"' Me.Data1.Recordset.MoveFirst() Else 'nada End If

Thanks for helping, *.SelectedItems(0).Text* was missing in the ListView and the Conection *con* ("Select * From Fotos Where SE_COD='" & Me.ListView1.SelectedItems(0).Text & "'", con)

Hello, i am having some problems to return Value from a control into a SQL string, in VB6 worked like above, now how can i do this Dim cmf As DataView = New DataView(ds.Tables("Fotos")) cmf.Sort = "S_COD" cmf.RowFilter = "S_COD='" & Me.ListView1.Select & "'" Thanks, Regards