dataset

[Pinta]

hola tengo una consulta hecha de la siguiente manera:

Me.OleDbDataAdapter5.SelectCommand.CommandText = "SELECT DISTINCT TDC_GrupoComponente FROM DesgloseConjuntos WHERE TDC_DescripComponente = " & "'" & Me.DataGrid1.Item(Paso, 2).ToString() & "'"

si hago un fill y lo vinculo con un combo me muestra la consulta correctamente.

lo que quiero es que me la muestre en un messagebox

como puedo meter la respuesta en una variable??

un saludo,

[charlytesis]

Lo que tienes que hacer es lo siguiente, despues de hacer tu consulta, o sea:

Me.OleDbDataAdapter5.SelectCommand.CommandText = "SELECT DISTINCT TDC_GrupoComponente FROM DesgloseConjuntos WHERE TDC_DescripComponente = " & "'" & Me.DataGrid1.Item(Paso, 2).ToString() & "'"

en vez de realizar un fill, haces:

tu_variable = oleComm.ExecuteScalar

de manera que en tu variable se almacenara la respuesta de tu select

[Pinta]

gracias por tu pronta respuesta, la aplicacion la estoy haciendo en visual basic .net, el comando "oleComm.ExecuteScalar" no lo reconoce.

estoy haciendo algo mal??
debo declarar algo??


Gracias de nuevo y un saludo,

[charlytesis]

el oleComm es una variable cualquiera de tipo OleDb.OleDbCommand y la puedes declarar de la siguiente manera:

Dim oleComm As New OleDb.OleDbCommand

Saludos

[Pinta]

me da un error en el que dice:

la propiedad connection no se ha inicializado.

que debo de hacer??


pd:ten paciencia conmigo que soy nuevo en esto.

un saludo,

[charlytesis]

Como estas realizando tu programa, copia un pedazo del el donde este la variable y la consulta....

Asi prodre ver donde esta tu error

[Pinta]

te adjunto una parte del codigo:

Dim LongD As Double
Dim LongH As Double
Dim CantD As Double
Dim CantH As Double
Dim NFilas As Integer
ParametrosEscala(Me.ComboBox3.Text, Me.TextBox1.Text, Me.TextBox2.Text)
LongD = Module1.LongD
LongH = Module1.LongH
CantD = Module1.CantD
CantH = Module1.CantH
Dim Paso As Integer
Dim Resultado As String
'---------------------------------------------
MessageBox.Show(CantD & " - " & LongD & Chr(13) & CantH & " - " & LongH)
NFilas = Me.DataGrid1.VisibleRowCount

Dim oleComm As New OleDb.OleDbCommand
For Paso = 0 To NFilas - 2
MessageBox.Show(Me.DataGrid1.Item(Paso, 2).ToString())
Me.OleDbDataAdapter5.SelectCommand.CommandText = "SELECT DISTINCT TDC_GrupoComponente FROM DesgloseConjuntos WHERE TDC_DescripComponente = " & "'" & Me.DataGrid1.Item(Paso, 2).ToString() & "'"

Resultado = oleComm.ExecuteScalar
MessageBox.Show(Resultado)
Next

[charlytesis]

Dim oleComm As New OleDb.OleDbCommand("",OleDb.OleDbConnection)
For Paso = 0 To NFilas - 2
MessageBox.Show(Me.DataGrid1.Item(Paso, 2).ToString())
Me.OleDbDataAdapter5.SelectCommand.CommandText = "SELECT DISTINCT TDC_GrupoComponente FROM DesgloseConjuntos WHERE TDC_DescripComponente = " & "'" & Me.DataGrid1.Item(Paso, 2).ToString() & "'"

Resultado = oleComm.ExecuteScalar
MessageBox.Show(Resultado)
Next

en el OleDb.OleDbConnection tienes que tener tu conexion a tu BD

[Pinta]

un error mas:


Información adicional: ExecuteScalar requiere una conexión abierta y disponible. El estado actual de la conexión es Closed

[charlytesis]

tu conexion tienes que abrirla antes de tus declaraciones y cerrarla antes del sub

[Pinta]

gracias por todo, ya funciona todo correctamente.

un saludo