cargar datos de un datagridview vb.net

[damid3]

Hola wenas de nuevo
explico lo que quiero es cargar datos de mi base de datos a mi datagridview
el codigo q uso es este

Código:

            query = "SELECT * FROM articulos where codigo='" & cbbuscar.Text & "'"
            cmd.Connection = conec
            cmd.CommandText = "SELECT * FROM articulos where codigo='" & cbbuscar.Text & "'"
            cmd.CommandType = CommandType.Text
            da.SelectCommand = cmd
            dt = New DataTable
                da = New Odbc.OdbcDataAdapter(cmd)
                da.Fill(dt)
                dgv.DataSource = dt
                With (dgv)
                    .MultiSelect = False
                    .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                    .DataSource = dgv.DataSource
                End With

pero la cmd.connection = conec me dice q conec
"un valor de tipo "conexion" no puede convertirse en "system.data.odbc.odbcconnection""

mi clase conexion es

Código:

Public Class conexion

    Public Reader As Odbc.OdbcDataReader
    Public conec As New Data.Odbc.OdbcConnection
    Public comando As New Odbc.OdbcCommand
    Public conec2 As New Odbc.OdbcConnection
    Dim uid, pwd As String

    Sub New()

    End Sub

    Sub New(ByVal usuario As String, ByVal pass As String)
        conectar(usuario, pass)
    End Sub

    Sub conectar(ByVal uid As String, ByVal pwd As String)
        Try
            If conec.State = ConnectionState.Closed Then
                conec.ConnectionString = "DSN=sqlvc;Uid=" & uid & ";pwd=" & pwd & ";"
                conec.Open()
            End If
        Catch ex As Exception
            MsgBox("Usuario no válido")
        End Try
    End Sub

y tengo en mi modulo valglobal

Código:

Module ValGlobal

    Public query As String
    Public query2 As String
    Public conec As New conexion("root", "")
    Public ds As DataSet
    Public dt As DataTable
    Public dr As Odbc.OdbcDataReader
    Public da As Odbc.OdbcDataAdapter
    Public cmd As Odbc.OdbcCommand

End Module

con mis datos apra conectar

entonses cual es el problema ??


desde ya muchas gracias

Saludos

[Aquaventus]

Tu clase conexion anda mal, tu clase no puede ser un método, lo que deberias hacer es instanciar tu clase, y luego llamar aun método que retorne un ODBCConnection :

Código vb:

Public Class conexion
 
    Public Reader As Odbc.OdbcDataReader
    Public conec As New Data.Odbc.OdbcConnection
    Public comando As New Odbc.OdbcCommand
    Public conec2 As New Odbc.OdbcConnection
    Dim uid, pwd As String
 
    Public Funtion conectar(ByVal uid As String, ByVal pwd As String) As Odbc.OdbcConnection
            If conec.State = ConnectionState.Closed Then
                conec.ConnectionString = "DSN=sqlvc;Uid=" & uid & ";pwd=" & pwd & ";"
                conec.Open()
            End If
            return conec
    End Sub
 

Código vb:

Module ValGlobal
 
    Public query As String
    Public query2 As String
    Public conec As New Conexion
    Public ds As DataSet
    Public dt As DataTable
    Public dr As Odbc.OdbcDataReader
    Public da As Odbc.OdbcDataAdapter
    Public cmd As Odbc.OdbcCommand
 
End Module
 

Código vb:

query = "SELECT * FROM articulos where codigo='" & cbbuscar.Text & "'"
            cmd.Connection = conec.conectar("root", "")
            cmd.CommandText = "SELECT * FROM articulos where codigo='" & cbbuscar.Text & "'"
            cmd.CommandType = CommandType.Text
            da.SelectCommand = cmd
            dt = New DataTable
                da = New Odbc.OdbcDataAdapter(cmd)
                da.Fill(dt)
                dgv.DataSource = dt
                With (dgv)
                    .MultiSelect = False
                    .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                    .DataSource = dgv.DataSource
                End With
 

Prueba y nos comentas. Saludos!.

[damid3]

Wenas

lo e cambiado a lo q tu dices pero me dice
"Referencia a objeto no establecida como instancia de un objeto."
sobre

cmd.Connection = conec.conectar2("root", "")

e creado la funcion con conectar2 para no tocar nada por si tengo que cambiarlo


mmmm ahora esoty viendo q si muevo esa linea para abajo y la ordeno deesta forma

Código vb:

cmd.CommandText = "SELECT * FROM articulos where codigo='" & cbbuscar.Text & "'"
 cmd.CommandType = CommandType.Text
 cmd.Connection = conec.conectar2("root", "")
 

me dice lo mismo sobre la linea cmd.CommandText = "SELECT * FROM articulos where codigo='" & cbbuscar.Text & "'"

se me va de las manos :S

a q te refieres con instancia ?
Saludos

[Aquaventus]

Colocale un break point sobre conec.ConnectionString = "DSN=sqlvc;Uid=" & uid & ";pwd=" & pwd & ";" de tu clase Conexion y dime si logra entrar ahí, sabes hacer seguimiento de código?

[damid3]

Si se hacer seguimiento lo acabo de hacer y me frena en



http://img267.imageshack.us/img267/3076/sinttulobdj.jpg

aqui para mi es tierra de nadie no veo porque no me me tira ese error y recorro el codigo sin problemas asta ese punto dende doy click al boton buscar

Saludos

[Aquaventus]

En tu clase ValGlobal te falto colocarle el NEW a :

Código vb:

Public cmd As Odbc.OdbcCommand
 

Deberia ser así :

Código vb:

Public cmd As New Odbc.OdbcCommand
 

Saludos!.

[damid3]

Perfecto Aqua eres un crack ^^

Como siempre Muchas Gracias

Saludos

[Aquaventus]

De nada!. Saludos!.