Autor Tema: Ayuda Busquedas (Leído 1259 veces)

FerMDC · « **en:** Jueves 19 de Julio de 2007, 06:35 »

Bueno que tal a todos soy nuevo en esto de la programacion y encontre este foro al cual pienso concurrir mucho

Aqui mi duda:

- Estoy que programo en VB.NET2005 usando base de datos de access y bueno quiero realizar una busqueda en un datatable la conexion la realize mediante un modulo:

Código: Text

 
Public CN As String = &#34;Provider=Microsoft.Jet.Oledb.4.0;Data Source=LOGEO.MDB&#34;

El Codigo del form es el siguiente y pertenece a un formulario de logeo:

Código: Text

 
Imports System.data.OleDb
Public Class Form1
    Dim da As New OleDbDataAdapter(&#34;select * from datos&#34;, CN)
    Dim tablapru As New DataTable
    Dim dv As New DataView
    Dim p As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        da.Fill(tablapru)
        Me.DataGridView1.DataSource = tablapru
        dv= tablapru 'AQUI ME INDICA EL ERROR ME DICE QUE NO PUEDO CONVERTIR UN DATATABLE A DATAVIEW
        dv.Sort = &#34;log&#34;
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        p = dv.Find(Me.TextBox1.Text)
        If p = -1 Then
            If dv.Item(p).Row(&#34;PWD&#34;) = Me.TextBox2.Text Then
                MessageBox.Show(&#34;Bienvenido&#34; & dv.Item(p).Row(&#34;nom&#34;))
            Else
                MessageBox.Show(&#34;No coincide contraseña&#34;)
            End If
        Else
            MessageBox.Show(&#34;No existe usuario&#34;)
        End If
    End Sub
End Class
 

Bueno espero puedan ayudarme de verdad necesito urgente su ayuda tengo entendido que el codigo esta bien pero no se porque me dice que el dv no puedo convertirlo a datatable bueno gracias de antemano por su tiempo y ayuda.

Saludos!!!!

cuajoa

Fijate si este código te sirve, yo lo hice para ASP.NET, pero fijate si te sirve:

Código: Text

 
        Function Log(ByVal username As String, ByVal password As String) As Boolean
            ' Abre la conexión a la base de datos que contiene los nombres de usuario y contraseñas.
            Dim cn As New OleDbConnection(PasswordDBConnString)
            cn.Open()
            ' Lee el registro para este usuario.
            Dim cmd As New OleDbCommand(&#34;SELECT * FROM (tblLogin) WHERE Usuario=?&#34;, cn)
            cmd.Parameters.AddWithValue(&#34;usuario&#34;, username)
            Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.SingleRow)
            If dr.Read AndAlso dr(&#34;Password&#34;) = password Then
                ' Autentica al usuario si hay un registro y la contraseña es correcta.
                Log = True
            End If
            ' Cierra el DataReader (y la conexión).
            dr.Close()
        End Function
 
 

Saludos

SoloCodigo

Autor Tema: Ayuda Busquedas (Leído 1259 veces)

FerMDC

Ayuda Busquedas

cuajoa

Re: Ayuda Busquedas