• Viernes 29 de Marzo de 2024, 11:05

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - AdriiPrincess

Páginas: [1]
1
Bases de Datos / ayuudaaaa
« en: Lunes 22 de Julio de 2013, 15:20 »
Hola q tal...
Buenos días necesito su ayuda chicos,  he creado una aplicación en visual basic 2005 y he creado este código para realizar una búsqueda:

Function Buscar_registro(ByVal xNick As String) As Boolean
        Dim Nick As String
        Nick = (xNick)

        Dim conexion As New OleDbConnection
        conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\\Users\\Adri\\Documents\\BibliotecaMultimedia.mdb; Persist Security Info = False"

        Dim cadenaSql As String = "SELECT * FROM Usuario WHERE Nick = " & Nick

        Dim Adactador As New OleDbDataAdapter(cadenaSql, conexion)

        Dim Ds As New DataSet

        conexion.Open()
        Adactador.Fill(Ds)
        conexion.Close()

        If (Ds.Tables(0).Rows.Count = 0) Then

            Return False
        Else
            Tex_Nombre.Text = Ds.Tables(0).Rows(0)("Nombre").ToString()
            Return True
        End If
    End Function



al momento de correr la aplicación me da un error en: ADAPTADOR:FILL(Ds) me dice que no se han especificado valores para algunos de los parámetros requeridos... agradeceria muchisimo su ayuda esto es muy importante es para mi tesis que es en 1 semana...

2
VB .NET / ayuudaaaa
« en: Lunes 22 de Julio de 2013, 15:19 »
Hola q tal...
Buenos días necesito su ayuda chicos,  he creado una aplicación en visual basic 2005 y he creado este código para realizar una búsqueda:

Function Buscar_registro(ByVal xNick As String) As Boolean
        Dim Nick As String
        Nick = (xNick)

        Dim conexion As New OleDbConnection
        conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\\Users\\Adri\\Documents\\BibliotecaMultimedia.mdb; Persist Security Info = False"

        Dim cadenaSql As String = "SELECT * FROM Usuario WHERE Nick = " & Nick

        Dim Adactador As New OleDbDataAdapter(cadenaSql, conexion)

        Dim Ds As New DataSet

        conexion.Open()
        Adactador.Fill(Ds)
        conexion.Close()

        If (Ds.Tables(0).Rows.Count = 0) Then

            Return False
        Else
            Tex_Nombre.Text = Ds.Tables(0).Rows(0)("Nombre").ToString()
            Return True
        End If
    End Function



al momento de correr la aplicación me da un error en: ADAPTADOR:FILL(Ds) me dice que no se han especificado valores para algunos de los parámetros requeridos... agradeceria muchisimo su ayuda esto es muy importante es para mi tesis que es en 1 semana...

3
Visual Basic / ayuudaaaa
« en: Lunes 22 de Julio de 2013, 15:17 »
Hola q tal...
Buenos días necesito su ayuda chicos,  he creado una aplicación en visual basic 2005 y he creado este código para realizar una búsqueda:

Function Buscar_registro(ByVal xNick As String) As Boolean
        Dim Nick As String
        Nick = (xNick)

        Dim conexion As New OleDbConnection
        conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\\Users\\Adri\\Documents\\BibliotecaMultimedia.mdb; Persist Security Info = False"

        Dim cadenaSql As String = "SELECT * FROM Usuario WHERE Nick = " & Nick

        Dim Adactador As New OleDbDataAdapter(cadenaSql, conexion)

        Dim Ds As New DataSet

        conexion.Open()
        Adactador.Fill(Ds)
        conexion.Close()

        If (Ds.Tables(0).Rows.Count = 0) Then

            Return False
        Else
            Tex_Nombre.Text = Ds.Tables(0).Rows(0)("Nombre").ToString()
            Return True
        End If
    End Function



al momento de correr la aplicación me da un error en: ADAPTADOR:FILL(Ds) me dice que no se han especificado valores para algunos de los parámetros requeridos... agradeceria muchisimo su ayuda esto es muy importante es para mi tesis que es en 1 semana...

4
MS Access / ayuudaaaa
« en: Lunes 22 de Julio de 2013, 15:16 »
Hola q tal...
Buenos días necesito su ayuda chicos,  he creado una aplicación en visual basic 2005 y he creado este código para realizar una búsqueda:

Function Buscar_registro(ByVal xNick As String) As Boolean
        Dim Nick As String
        Nick = (xNick)

        Dim conexion As New OleDbConnection
        conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\\Users\\Adri\\Documents\\BibliotecaMultimedia.mdb; Persist Security Info = False"

        Dim cadenaSql As String = "SELECT * FROM Usuario WHERE Nick = " & Nick

        Dim Adactador As New OleDbDataAdapter(cadenaSql, conexion)

        Dim Ds As New DataSet

        conexion.Open()
        Adactador.Fill(Ds)
        conexion.Close()

        If (Ds.Tables(0).Rows.Count = 0) Then

            Return False
        Else
            Tex_Nombre.Text = Ds.Tables(0).Rows(0)("Nombre").ToString()
            Return True
        End If
    End Function



al momento de correr la aplicación me da un error en: ADAPTADOR:FILL(Ds) me dice que no se han especificado valores para algunos de los parámetros requeridos... agradeceria muchisimo su ayuda esto es muy importante es para mi tesis que es en 1 semana...

Páginas: [1]