error de conexión BD Acces
Publicado por anonymous (99 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:
Alguien puede sañalarme qué estoy haciendo mal? GRACIAS por su ayuda
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.VisualBasicImports System
Imports System.Windows.Forms
Imports System.DrawingImports 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.OleDbDataReaderPublic 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 ThenWhile 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
0