Hola a todos, no tengo mucha idea de visual basic, lo que he aprendido en un mes. Bueno, la pregunta.


Resulta que tengo un insert y un update, que los voy a ejecutar cuando se clica en Añadir o modificar respectivamente. Cuando doy a depurar el error, me marca la linea:


strSQL = "UPDATE TDOMFIL SET TIS='" & TIS.Text & "', NOMFIL='" & NOMFIL.Text & "'," & _
" APEFIL='" & APEFIL.Text & "' , DNIFIL='" & DNIFIL.Text & "'," & _
" DIRFIL='" & DIRFIL.Text & "', CODPOSFIL='" & CODPOSFIL.Text & "'," & _
" POBFIL='" & POBFIL.Text & "', PROFIL='" & PROFIL.Text & "', TEL1FIL='" & TEL1FIL.Text & "', " & _
" TEL2FIL='" & TEL2FIL.Text & "', CODHOS=" & cmbHospitales.ItemData(cmbHospitales.ListIndex) & ", " & _
" CODREM=" & cmbColegiados.ItemData(cmbColegiados.ListIndex) & ", DIAGPREV='" & DIAGPREV.Text & "'," & _
" DIAGACTU='" & DIAGACTU.Text & "', CODPR1=" & cmbProceso.ItemData(cmbProceso.ListIndex) & "," & _
" CODPR2=" & cmbProcedimiento.ItemData(cmbProcedimiento.ListInd ex) & ", PREOPE='" & PREOPE.Value & "', " & _
" CODEST=1, INFORMADO='" & INFORMADO.Value & "' WHERE NUMFIL=" & adoTDOMFIL.Recordset.Fields("NUMFIL") & ";"


Vamos, que es una tabla con 23 campos aunque no cambio todos, pero, no se si el problema es que el string es demasiado grande para almacenarlo en Dim strSQL As String.


He probado a poner unos valores fijos y en access funciona, pero al tratar de ejecutarlo aqui me da otro error, "no coinciden los tipos en la expresion de criterios".


Agradezco toda la ayuda que me podais prestar!!


Adios

Hola Nella...revisa q todos los campos sean del tipo correcto. Aparentemente todos los datos de los Texto son tipo caracter y lo campos de lo Combo son de tipo numerico, verifica bien eso en tu base de datos. Tambien creo q estas usando bd de Access, no estoy seguro pero creo q no tendria q llevar ese punto y como al final ( adoTDOMFIL.Recordset.Fields("NUMFIL") &";" ), creo q no tendrias q concatenerle ese punto y coma ";" ( no estoy muy seguro porq casi no trabajo con Access).


Ah y otra cosa q podrias hacer para verificar q esta bien tu codigo, seria q despues q concatenas la variable strSQL, poner otro linea mas para q esa variable te lo muestre en la Ventana Inmediato, algo asi:

Código:

 ' Aqui concatecas la Instruccion SQL
 ' strSQL = "UPDATE TDOMFIL SET ..... 
 ' Continua el resto del codigo
 ' adoTDOMFIL.Recordset.Fields("NUMFIL")


 ' Aqui enviamos la cadena concatenada a la ventana Inmediato
 Debug.Print strSQL
 ' Detenemos la ejecucion
 Debug.Assert False
 
 ' Para ver la ventana inmediato haces clic en
 ' menu Ver ---> Ventana Inmediatoó (Crtl + G)

Ya enviando la cadena a la ventana inmediato vez si es q esta bien concatenada, o si es q es muygrande y no sale completo, e incluso puedes copiar todo y probarlo en la consola del programa de tu base de datos (claro si es q tuviera esa opcion al menos SQL Server y FoxPro tienen esa opcion).


Bueno bye.


Isaac...Edited by: Isaac