conectar datos con el DataEnvironment
un amigto me solicito que le realizara una aplicacion sencilla con coneccion a datos con el DataEnvironment que es la herraamienta que se utiliza generalmente para realizar los reportes con el datareport.
he logrado conectar los comando a las tablas y me muevo bien hacia adelante y atraz de los record, pero no logro incertar un nuevo registro, he probado con este codigo
Private Sub Command4_Click()
With DataEnvironment1.rsCommand1
.AddNew
.Fields("Precio") = Text3.Text
.Update
End With
End Sub
pero me rebota un mensaje en ingles que parece que dice que el provider no aaceta esa operacion
Si alguien me pudiera dar una mano
gracias
he logrado conectar los comando a las tablas y me muevo bien hacia adelante y atraz de los record, pero no logro incertar un nuevo registro, he probado con este codigo
Private Sub Command4_Click()
With DataEnvironment1.rsCommand1
.AddNew
.Fields("Precio") = Text3.Text
.Update
End With
End Sub
pero me rebota un mensaje en ingles que parece que dice que el provider no aaceta esa operacion
Si alguien me pudiera dar una mano
gracias
Hola, yo creo que el problema no es el proveedor, mas bien el tipo de bloque, ve a propiedades avanzadas y cambialo a optimistic o batchoptimistic, si tienes problemas hay documentaci贸n en mi foro para que lo hagas via ADO c贸digo. www.kognos.com.mx/foro
ok realmente tenias razon realice el cambio y corrio de maravillas, gracias por tu ayuda
no obstante hay va la otra
estoy tratando de utilizar el filter y me dice que debo tener el objeto cerrado y despues que lo cierro que debo abrirlos el codico es este
Private Sub Text1_LostFocus()
DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand1.Filter = "Precio LIKE '" & Text1 & "*'"
Text4 = DataEnvironment1.rsCommand1.Fields("Precio")
End Sub
Pero me esta dnado el bateo ese
Graicvas
no obstante hay va la otra
estoy tratando de utilizar el filter y me dice que debo tener el objeto cerrado y despues que lo cierro que debo abrirlos el codico es este
Private Sub Text1_LostFocus()
DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand1.Filter = "Precio LIKE '" & Text1 & "*'"
Text4 = DataEnvironment1.rsCommand1.Fields("Precio")
End Sub
Pero me esta dnado el bateo ese
Graicvas