Visual Basic.NET - error de conexión BD Acces

   
Vista:
Imágen de perfil de Fco. Jevier Medrano Salez

error de conexión BD Acces

Publicado por Fco. Jevier Medrano Salez pacomedrano@msn.com (50 intervenciones) el 08/05/2014 23:47:30
Hola Buenas Tardes:
Necesito su ayuda, estoy migrando de VB6 a NET, buscando en la red la manera de conectar a una base de datos ACCES, adapté este código pero a la hora de ejecutar, se conecta correctamente a la BD, pero a la hora de consultar algo dice el error: "No se han especificado valores para algunos de los parámetros requeridos, señalo la línea que marca el visor:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Data ' instanciación del objeto data
Imports System.Data.OleDb ' instanciación del objeto data Oledb
 
Module funcionesbd
 
    Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=ciber.accdb;Persist Security Info=False")
    Public cmd As New OleDb.OleDbCommand
    Public dr As OleDb.OleDbDataReader
    Public Sub conectarse()
        Try
            conn.Open()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
    Public Sub consultar(ByRef identifica As String)
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        If identifica <> "" Then
            cmd.CommandText = "SELECT * FROM ciber WHERE maquina=" + identifica
        Else
            cmd.CommandText = "SELECT maquina FROM ciber"
        End If
        Try
            dr = cmd.ExecuteReader() ' ' ' ' AQUI ES DONDE SEÑALA EL ERROR
            If dr.HasRows Then
                While dr.Read()
                    MsgBox(dr(0).ToString)
                End While
            Else
                MsgBox("No existen registros")
            End If
            dr.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Module

Alguien puede sañalarme qué estoy haciendo mal? GRACIAS por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

error de conexión BD Acces

Publicado por Alvaro Godoy aegodoy@gmail.com (26 intervenciones) el 09/05/2014 18:18:08
Mi estimado buen día, yo utilizo las siguientes instrucciones

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim cmd As SqlCommand = New SqlCommand(<procedimiento de SQL), <coneccion al SQL>)
Dim vlReader As SqlDataReader = Nothing
cmd.CommandType = CommandType.StoredProcedure
'-----------------------------------------
' Si queres enviar parametros
'----------------------------------------
cmd.Parameters.AddWithValue("@Id_Empresa", gv_EMP_Codigo)
cmd.Parameters.AddWithValue("@Id_CentroDeCosto", gc_Espacio)
 
vlReader = cmd.ExecuteReader
 
' Con este ciclo recorro los resultados obtenidos del query
'--------------------------------------------------------------------------------
While vlReader.Read()
        *
        *
        *
End While
vlReader.Close()
cmd = Nothing
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Fco. Javier Medrano Salez

error de conexión BD Acces

Publicado por Fco. Javier Medrano Salez (50 intervenciones) el 14/05/2014 03:10:41
Gracias mi estimado Alvaro Godoy, lo pongo en práctica haber cómo me va.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar