Visual Basic.NET - Consulta con Variable en VB.net

   
Vista:

Consulta con Variable en VB.net

Publicado por Thatai (4 intervenciones) el 05/06/2012 20:47:15
Buenas, tengo este pequeño método

1
2
3
4
5
6
7
8
9
10
11
Private Sub fill_venta()
        Dim dt As New DataTable
        Dim ds As New DataSet
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter("Select id_venta from ventas where id_campo2=Variable and campo3=true ", con)
        da.Fill(dt)
        Dim myRow As DataRow
        For Each myRow In dt.Rows
            txtNumeroVenta.Text = myRow.Item(0)
        Next
    End Sub

Quisiera Saber como puedo hacer que esa consulta en id_campo2=Variable, "Variable" sea una variable declarada en este mismo método?
No se si me dejo entender quisiera saber si puedo poner dentro de esa consulta una variable que este declarada dentro del método, espero sus respuestas GRACIAS
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

Consulta con Variable en VB.net

Publicado por Thatai (4 intervenciones) el 05/06/2012 21:41:28
Bueno la Solución es esta

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub fill_venta()
Dim Variable as String
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter("Select id_venta from ventas where id_campo2=" & Variable & " and campo3=true ", con)
da.Fill(dt)
Dim myRow As DataRow
For Each myRow In dt.Rows
txtNumeroVenta.Text = myRow.Item(0)
Next
End Sub

corte la cadena en 2 y le agregue la variable con los & & a los costados
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

Consulta con Variable en VB.net

Publicado por apacheco (78 intervenciones) el 07/06/2012 11:36:11
Este sistema fallara si el id_campo2 no admite valores Nulos, ya que la Variable se define en el propio modulo y tiene valor Nulo SIEMPRE que ejecutes este modulo.

Cambialo por esto, pasale la Variable como parametro

Private Sub fill_venta(byVal Variable as String)
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter("Select id_venta from ventas where id_campo2=" & Variable & " and campo3=true ", con)
da.Fill(dt)
Dim myRow As DataRow
For Each myRow In dt.Rows
txtNumeroVenta.Text = myRow.Item(0)
Next
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