Visual Basic - Prolemas con Adobc

Life is soft - evento anual de software empresarial
   
Vista:

Prolemas con Adobc

Publicado por Wendy miranda Pozo (3 intervenciones) el 12/05/2008 23:35:48
Necesito ayuda, la verdad yo trabajo con visual basic 6.0 y ms. access 2000, establezco mi conexion trabajando con adodb, estableciendo como referencia el Ms. activex 2.5, lo que hago es filtrar mediante un recordset los registros de mi base de datos... en mi aplicativo, donde lo que hago es actualizar dichos registros llenandolo de datos, el problema es que al hacer la actualiuzacion estos no se estan grabando, y por tal pierdo informacion... a veces lo registra y en ocasiones no.... debo recalcar que es un total de hasta 4 personas que trabajan con el mismo aplicativo, y por tal con la misma base de datos.... toda la informacion fluye bajo la misma red.
Adjunto mi codigo del boton actualizar, a ver si pueden ayudarme al respecto, o en todo caso que medio de conexion es el mas seguro .

rsTabla!P2 = Combo4.Text
rsTabla!P3 = Combo5.Text
rsTabla!P4 = Combo6.Text
rsTabla!P5 = Combo7.Text
rsTabla!P6 = Combo8.Text
rsTabla!P7 = Combo9.Text
rsTabla!P8 = Combo10.Text
rsTabla!P9 = Combo11.Text
rsTabla!P10 = Combo12.Text
rsTabla!P11 = Combo13.Text
rsTabla!P11_OTROS = Text9.Text
rsTabla!P12 = Combo20.Text
rsTabla!OBSERVACIONES = Text17.Text
rsTabla!JUICIO_VALOR = Combo16.Text
rsTabla!teleoperador = Combo19.Text
rsTabla!resultados = Combo14.Text
rsTabla!fecha_grabacion = Format(Now(), "dd/mm/yyyy")
rsTabla!hora = Format(Now(), "hh:mm:ss")
rsTabla.UpdateBatch
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:Prolemas con Adobc

Publicado por Enrique Veliz (5 intervenciones) el 13/05/2008 22:39:09
Que tal amiga, por lo que entiendo es tu haces un filtro a un registro para sacar los datos y luego actualizarlo..??? ó es que haces un Adnew al recordet que has abierto.....???

Bueno si es la primera yo te sugeriria que lo hagas filtrando los datos: Ejemplo:
'Esto iria en tu boton Actualizar.
rsTabla as new ADODB.Recordset
rsTabla.Open "Select * from Tu tabla",TuConexcion,Condicion1,Condicion2
rsTabla.Filter="ElCampo='"& elValor &"'"
if rsTabla.Recordcount>0 then
rsTabla.Fields("Campo1")=Objeto1.Text
rsTabla.Fields("Campo2")=Objeto2.Text
.
.
.etc
msgbox "Los datos se actualizaron con Exito"
End if
set rsTabla.Filter=AdfilterNone

Y si es la segunda bueno te recomendaria que hagas una variable booleana y controles cuando es nuevo y cuando se actualiza
Dim oNuevo as Boolean
'En tu boton nuevo pones oNuevo=True
'y en tu boton grabar pones
if oNuevo=true
sqlSQL="Insert into TuTabla(campo1,Campo2.....etc) values("' & objeto1.text
& "' , & "' Objeto2.text &"'")"
else
strSQL="Update TuTabla set campo1='"&objeto1.text &"', &"' Objeto2.text &"'
Where CampoId='" & ValorId &"'"
End if
Conexion.Execute(strSQL)
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