El código que utilizo es este, pero no funciona. Un cable "plis"
Código:
La conexión está bien, solo que en la última línea me dice que la conexión no está inicializada.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
Tal vez exista alguna otra función que haga esto.
Gracias anticipadas