Visual Basic.NET - no funciona el select

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

no funciona el select

Publicado por Fco. Javier Medrano Salez (56 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
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
Imágen de perfil de Leonardo Daniel A.

no funciona el select

Publicado por Leonardo Daniel A. (11 intervenciones) el 06/04/2015 01:47:11
cuando son valoress tipo caracter, se usan comillas simples para encerrar los valores


tAdapter.SelectCommand = New OleDbCommand("select * from maquinas where idpc = 'ciber'"

si ciber viniera por ejemplo en una variable se deberia encerrar igual


dim valor as string

valor = "ciber1"
tAdapter.SelectCommand = New OleDbCommand("select * from maquinas where idpc = '" + valor + "'"
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

no funciona el select

Publicado por Fco. Javier Medrano Salez (56 intervenciones) el 06/04/2015 02:24:19
Gracias amigo!!!!
me sorprende tu rapidez para darme la respuesta.
Voy a probarlo y te comento enseguida el resultado.
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
Imágen de perfil de Fco. Javier Medrano Salez

no funciona el select

Publicado por Fco. Javier Medrano Salez (56 intervenciones) el 06/04/2015 02:45:56
GRACIAS amigo Leonardo Daniel
Funciona de maravilla.
Estoy avanzando y si me atoro te hecho un gritito por aqui.
Gracias nuevamente.
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