Como hago esto en VB.Net

[juanta]

Saludos a todos, Mi duda es la siguiente:
en visual basic 6.0 yo hacia esto:

Código:

consu="select * from mitabla where micampo='midato'"
Set RsCons = New ADODB.Recordset
RsCons.CursorType = adOpenDynamic
RsCons.LockType = adLockReadOnly
RsCons.Open Consu, miconex, , , adCmdText
If Not RsCons.EOF Then
    Label1.Caption = RsCons!campo1
    Label2.Caption = RsCons!campo2
    Label3.Caption = RsCons!campo3
endif
RsCons.Close
set RsCons=Nothing

Como hago esto en Visual Basic.Net
para que en Label 0 un TextBox me muestre el campo que yo quiera, haciéndolo todo desde codigo no usado controles.

De antemano, muchas Gracias.

[jose_d]

Que base de Datos estas Utilizando ??

[juanta]

Utilizo MySql V.4.0

[RootK]

Primero te puedes bajar el provider para empezar a trabajar con ADO.NET, lo puedes encontrar aqui..

http://www.sevenobjects.com/MySqlClient.aspx

Y despues hay que ponerse a leer acerca de como está estructurado ADO.Net porque hay muchos cambios de la version anterior que era ADO

Pero cuando lo programes en terminos generales te podría quedar así tu code:

Dim oConn As New MySqlConnection("tu_string connection")
Dim cmd As New MySqlCommand("select * from mitabla where micampo='midato'", oConn)
oConn.Open()
Dim dr As MySqlDataReader= cmd.ExecuteReader()

If dr.Read Then
Label1.Text = dr.Item("campo1")
Label2.Text = dr.Item("campo2")
Label3.Text = dr.Item("campo3")
End If

dr.Close()
oConn.Close()

Salu2

[juanta]

Gracias RootK, voy a probar tu codigoy te cuento,

Gracias.

[juanta]

Gracias por la respuesta que me sirvio de guia, pero soy nuevo en .net que me di cuenta que no era lo mismo un sqlconnection a un odbconnection.
por lo que tengo otro problemita.

Código:

Option Explicit On 

Imports System
Imports System.Windows.Forms
Imports System.Data
Imports System.Data.Odbc
Imports Microsoft.VisualBasic
Public Class Form1
    Inherits System.Windows.Forms.Form

    'Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=my-database;Uid=username;Pwd=password;
    Private Sub Conex()
        Dim nwindConn As OdbcConnection = New OdbcConnection("Driver={mySQL};Server=localhost;Port=3306;" & _
                                                             "Option=131072;Stmt=;Database=caja;Uid=rot;Pwd=;")

        Dim catCMD As OdbcCommand = New OdbcCommand("SELECT * FROM caja", nwindConn)

        nwindConn.Open()

        Dim myReader As OdbcDataReader = catCMD.ExecuteReader()

        Do While myReader.Read()
            Console.WriteLine(vbTab & "{0}" & vbTab & "{1}", myReader.GetInt32(0), myReader.GetString(1))
        Loop

        myReader.Close()
        nwindConn.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Conex()
    End Sub
End Class

y en la linea nwindConn.Open() me da el siguiente error:
Excepción no controlada del tipo 'System.NullReferenceException' en ICash.exe

Información adicional: Referencia a objeto no establecida como instancia de un objeto.

Si puedes ayudarme a solucionar este problemita te estaré muy agradecido

[RootK]

OK..

Estas seguro que tu string conexion está correcto (user=rot;pwd="") , no será mas bien (uid = root)

Posiblemente por ahí venga el error... , checalo y me avisas que tal..

[juanta]

perdon pero anote mal la cadena de conexion anterior esta es la que tengo:

DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=caja;UID=root;PA SSWORD=;OPTION=3;

Gracias otra vez

[RootK]

Mira.. no estoy seguro pero una vez leí que en algunos casos cuando usaban la version 3.51 del obdc arrojaba ese tipo de errores..(no siempre..) porque no haces la prueba con el MyODBC 2.5 haber que tal te funciona.

[juanta]

Perdona tantas molestias RootK pero probre el MyOdbc 2.50.39 y me sigue tirando el mismo error.

Gracias Otra Vez.

[juanta]

probe ahora con mysqlclient y me sigue dando el mismo error:

Código:

        Dim cnsql As MySqlConnection
        Dim cmSQL As MySqlCommand
        Dim drSQL As MySqlDataReader 'SqlDataReader
        Dim strSQL As String

        strSQL = "Select * from users where id_user='admin'"

        cnsql.Open()

        cmSQL = New MySqlCommand(strSQL, cnsql) 'New SqlCommand(strSQL, cnSQL)
        drSQL = cmSQL.ExecuteReader 'cmSQL.ExecuteReader()

        If drSQL.Read() Then
            Label1.Text = drSQL.Item("password").ToString()
        End If
        Me.DataGrid1.DataSource = drSQL
        drSQL.Close()
        cnsql.Close()
        cmSQL.Dispose()
        cnsql.Dispose()

Ya estoy que exploto por este problema. si puedes ayudarme te lo agradeceria.

[splinter]

Hola,
Te mando el codigo de como lo tengo yo con ODBC.

Dim MyOconn As New Data.Odbc.OdbcConnection
Dim MyComm As New Data.Odbc.OdbcCommand
Dim Myread As Data.Odbc.OdbcDataReader
MyOconn.ConnectionString = "STMT=;OPTION=3;DSN=MySQL_ODBC_Interview;UID=splin ter;PASSWORD=shark;DESC=MySQL ODBC 3.51 Driver DSN;DATABASE=DBinterview;SERVER=localhost;PORT=330 6"
MyComm.Connection = MyOconn
MyComm.CommandText = "SELECT city FROM inter_city"
Try
MyOconn.Open()
Myread = MyComm.ExecuteReader()
Do While Myread.Read
Response.Write("<br>" & Myread.GetValue(0))
Loop
Catch ex As Exception
Finally
MyOconn.Close()
MyComm.Dispose()
Myread.Close()
End Try

Saludos

[MartinAcevedo]

Yo uso un provider que se llama ByteFx (http://www.bytefx.com/) que participa del proyecto mono, he usados otros y tienen muchos problemas, este parece andar bastante bien...
Saludos