Oscar
19 de Junio del 2003

Hola estoy haciendo una pequeña aplicación para pasar los datos de un fichero de texto plano a una base de datos sql server. Bien tengo un campo (telefono) que en la base de datos es de tipo entero y en el fichero de texto es de tipo caracter. Al recoger los datos como tiene nueve posiciones entran perfectamente sin dar ningún tipo de error, pero el problema biene cuando se en cuentra con un cararacter en blanco entre medias del número.la pregunta es ¿como puedo detectar que hay un espacio?, cuando lo detecte en el caso de que haya un blanco el campo lo cambio de valor y lo inserto como 0.

Aqui pongo una muestra de lo que llevo hecho
telefono = Trim$(Mid$(texto$, 181, 9))
If ((InStr(CStr(telefono), "") <> 0)) Then
telefono = 0
ElseIf ((Len(CStr(telefono)) <> 9) Or telefono = "") Then
telefono = 0
RsODBC("alojamientos_tlf") = telefono
Else
RsODBC("alojamientos_tlf") = telefono
End If

Por favor necesito ayuda urgentemente. Gracias de antemano

angeles
19 de Junio del 2003

Dim Telefono As String
Telefono=texto$
If ((InStr(telefono, " ") <> 0) Or Len(telefono)<>9 Then
telefono = 0
Enf If
RsODBC("alojamientos_tlf") = telefono