20/10/2006, 11:29
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 17 años, 9 meses Puntos: 2 | |
| prueba asi
Public Function Fun_NomDistrito(pIdDistrito as string) As String
Fun_NomDistrito="" ' <---dejar vacio 0 o con el valor que quieras por defecto
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.Source = "SELECT Distrito FROM DISTRITO where CodDistrito = " & trim(pIdDistrito)
.CursorLocation = adUseClient
.Open
End With
if not rs.eof then Fun_NomDistrito = rs!Distrito
rs.close
Set rs = Nothing
End Function |