Visual Basic - MENSAJE DE ERROR AL GUARDAR FECHA DEL SERVER

Life is soft - evento anual de software empresarial
   
Vista:

MENSAJE DE ERROR AL GUARDAR FECHA DEL SERVER

Publicado por roxxane (8 intervenciones) el 07/11/2008 18:21:29
Hola que tal...

Tengo lo siguientes codigos que mandan a llamar la fecha del server, pero al momento de guardar me aparece el mensaje, aunque en realidad si lo guarda. Solo necesito que ese mensaje no apararezca:

"FIELD NO UPDATABLE, BOUND PROPIERTY NAME:TEXT TEXT, FIELD NAME:CURRENTDATE"

Public Sub RellenarFecha()
Dim cnn4 As New ADODB.Connection
Dim sQuery4 As String
Dim Rs4 As New ADODB.Recordset
With cnn4
.CursorLocation = adUseClient
.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=base_tel;Initial Catalog=base_tel"
.Open
End With
sQuery4 = "SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS [CurrentDate]"
Rs4.Open sQuery4, cnn4, adOpenForwardOnly, adLockOptimistic
Rs4.ActiveConnection = Nothing
TxtFechaCap2.DataField = "CurrentDate"
Set TxtFechaCap2.DataSource = Rs4
TxtFechaCap.Text = TxtFechaCap2 'este lo puse porque encontre que el error se debia a controles enlazados asi que puse este de mas , pero no funciono
Set Rs4 = Nothing
cnn4.Close
Set cnn4 = Nothing
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:MENSAJE DE ERROR AL GUARDAR FECHA DEL SERVER

Publicado por pacopaz (1 intervención) el 07/11/2008 21:38:04
Te genera un error en los contrles enlazados, no por los controles, si no por las funciones de uno y las restricciones del otro.
Tu recordset está enlazado a un valor que no proviene de ninguna tabla, por lo que no es modificable. El TextBox es, en si, modificable, por lo que estás enlazando un dato no modificable a un control que lo puede modificar, independientemente que lo quieras hacer o no.
Dado que no lo vas a hacer, es preferible asignar al .Text el valor o no enlazar el componente al recordset.
Algo como esto:

Public Sub RellenarFecha()
Dim cnn4 As New ADODB.Connection
Dim sQuery4 As String
Dim Rs4 As New ADODB.Recordset
With cnn4
.CursorLocation = adUseClient
.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=base_tel;Initial Catalog=base_tel"
.Open
End With
sQuery4 = "SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS [CurrentDate]"
Rs4.Open sQuery4, cnn4, adOpenForwardOnly, adLockOptimistic
Rs4.MoveFirst
TxtFechaCap.Text = Rs4("CurrentDate")
Rs4.ActiveConnection = Nothing
Set Rs4 = Nothing
cnn4.Close
Set cnn4 = Nothing
End Sub

Espero que te sirva.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:MENSAJE DE ERROR AL GUARDAR FECHA DEL SERVER

Publicado por roxxane (8 intervenciones) el 07/11/2008 22:09:57
OK, MUCHAS GRACIAS

SI RESULTO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar