
no funciona el select
Publicado por anonymous (99 intervenciones) el 06/04/2015 01:26:54
Hola amigos:
Pues la verdad soy un novato autodidacta y resulta que he visto por ahi cómo conectarse a las bases de datos acces, todo me funciona bien si no "discrimino" una búsqueda, o sea, si en el select no le pongo la cláusula WHERE.
si le mando que haga un select con un dato específico me dice que no se han especificado valores para algunos...
Alguien puede decirme dónde está el error? AGRADEZCO de antemano su colaboración.
Imports System.Data
Imports System.Data.OleDb
Public Class frmCiber
Dim maq As String
Private Sub frmCiber_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'conectarse()
End Sub
Public Sub conectarse()
Dim conn As String
conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ciber.accdb;Persist Security Info=False"
Dim cmd As OleDbConnection
cmd = New OleDbConnection(conn)
Dim tAdapter As OleDbDataAdapter
tAdapter = New OleDbDataAdapter
tAdapter.SelectCommand = New OleDbCommand("select * from maquinas where idpc=" + "ciber1", cmd) '' si le quito where idpc= " + ciber1", SÏ FUNCIONA!!!
Dim maqDataSet As DataSet
maqDataSet = New DataSet
maqDataSet.Tables.Add("maquinas")
tAdapter.Fill(maqDataSet.Tables("maquinas"))
lboxnombres.DataSource = maqDataSet.Tables("maquinas")
lboxnombres.DisplayMember = "idpc"
End Sub
Pues la verdad soy un novato autodidacta y resulta que he visto por ahi cómo conectarse a las bases de datos acces, todo me funciona bien si no "discrimino" una búsqueda, o sea, si en el select no le pongo la cláusula WHERE.
si le mando que haga un select con un dato específico me dice que no se han especificado valores para algunos...
Alguien puede decirme dónde está el error? AGRADEZCO de antemano su colaboración.
Imports System.Data
Imports System.Data.OleDb
Public Class frmCiber
Dim maq As String
Private Sub frmCiber_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'conectarse()
End Sub
Public Sub conectarse()
Dim conn As String
conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ciber.accdb;Persist Security Info=False"
Dim cmd As OleDbConnection
cmd = New OleDbConnection(conn)
Dim tAdapter As OleDbDataAdapter
tAdapter = New OleDbDataAdapter
tAdapter.SelectCommand = New OleDbCommand("select * from maquinas where idpc=" + "ciber1", cmd) '' si le quito where idpc= " + ciber1", SÏ FUNCIONA!!!
Dim maqDataSet As DataSet
maqDataSet = New DataSet
maqDataSet.Tables.Add("maquinas")
tAdapter.Fill(maqDataSet.Tables("maquinas"))
lboxnombres.DataSource = maqDataSet.Tables("maquinas")
lboxnombres.DisplayMember = "idpc"
End Sub
Valora esta pregunta


0