daniloide
06 de Noviembre del 2002

En varios casos en que inteno hacer un insert en una base de datos de acces 2000 en un campo de tipo númerico de un valor que recogi con un select anteriormente de un valor que es autonumerico. Seria algo asi:
dim mcod as integer
Set bus = Ads.OpenRecordset("Select * from Examenes e,Asignaturas a,Cursos c where a.Asignatura='" + Text2.Text + "'and e.Asigcod = a.Asigcod and e.Grado = '" + Text3.Text + "' and c.Nombre='" + Text4.Text + "' and e.Curcod=c.curcod and Fecha='" + Text5.Text + "'")
mcdo = bus.Fields("Exacod")
'Exacod es autonumerico
Ads.Execute ("Insert into Insexamen(CI,Exacod,RL)values('" + Text7.Text + "'," + Str(mcod) + ",'" + text4.text+ "'")
'Exacod es numerico
Me dice "No coinciden los tipos"
Agradezco enormemente toda la ayuda posible ya que esto es parte de mi proyecto de fin de año y debo entregarlo en 2 días. Gracias

HJALMAR
06 de Noviembre del 2002

AMIGO TU ERROR ES QUE USAS EL SIGNO +PARA TU INSERT(Ads.Execute ("Insert into Insexamen(CI,Exacod,RL)values('" + Text7.Text + "'," + Str(mcod) + ",'" + text4.text+ "'")
DEBES HACER ASI
Ads.Execute ("Insert into Insexamen(CI,Exacod,RL)values(' & Text7.Text & '," + Str(mcod) + ",' & text4.text & '")
MIRA SI VAS A INSERTAR TEXTO SERIA ('" & TXTMONBRE & "')
SI ES NUMERICO
' & TXTNUM & '
SI ES FECHA
# " & TXTFECHA & " #

ESPERO SE RESULTE