Hola, utilizo VB 2005, y mi problema es que quiero crear una función del tipo "Dlookup" de VB Access, en la que con tres variables: "Nombre Campo", "Tabla" ,"Condicion Where", me devuelva el valor del primero.
El código que utilizo es este, pero no funciona. Un cable "plis"
Código:
Function LeerDato(ByVal sCampo As String, ByVal sTabla As String, ByVal sWhere As String) As String
Dim MiConexion As String
MiConexion = "Dsn=MiDsn;uid=admin;pwd=1234"
Dim cxn As Odbc.OdbcConnection
cxn = New OdbcConnection
cxn.ConnectionString = MiConexion
cxn.Open()
Dim sSql As OdbcCommand
sSql = New OdbcCommand
sSql.CommandText = "select " & sCampo & " from " & sTabla & " where " & sWhere
sSql.Connection.CreateCommand()
LeerDato = sSql.ExecuteReader.ToString
End Function
La conexión está bien, solo que en la última línea me dice que la conexión no está inicializada.
Tal vez exista alguna otra función que haga esto.
Gracias anticipadas