Visual Basic.NET - manipulacion de base de datos

 
Vista:

manipulacion de base de datos

Publicado por nadia (11 intervenciones) el 16/09/2009 00:37:03
hola que tal, tengo una base de datos en acces y hago la liga a vb.net 2005, quiero saber como puedo asignar el resultado de una consulta sql a una variable para manipular el dato. por ejemplo: si tengo una tabla vendedores con un campo sueldo y hago la siguiente consulta:
select sueldo from vendedores where id_vendedor = 1
como puedo guardar el dato del sueldo que le corresponde a ese vendedor en una variable que yo haya declarado en vb.net 2005

un ejemplo del codigo que yo uso para las consultas sql en vb.net 2005 es el siguiente:

''codigo para consulta

Dim coneccion As OleDbConnection
Dim orden1 As OleDbDataAdapter
Dim Tabla As DataSet

coneccion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:sigo productos no borrarpara pruebasSCSPSCSPBDSP.mdb")



Dim sql As String

sql = "select * from ventas, productos, vendedores where fecha_venta between @FECHA1 and @FECHA2"

orden1 = New OleDbDataAdapter(sql, coneccion)

orden1.SelectCommand.Parameters.Add(New OleDbParameter("@FECHA1", OleDbType.DBDate))

orden1.SelectCommand.Parameters("@FECHA1").Value = MaskedTextBox12.Text

orden1.SelectCommand.Parameters.Add(New OleDbParameter("@FECHA2", OleDbType.DBDate))

orden1.SelectCommand.Parameters("@FECHA2").Value = MaskedTextBox1.Text


Tabla = New DataSet()

orden1.Fill(Tabla, "ventas, productos, vendedores")


DataGridView5.DataSource = Tabla.Tables("ventas, productos, vendedores").DefaultView
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

RE:manipulacion de base de datos

Publicado por biki (38 intervenciones) el 17/09/2009 12:59:26
Hola Nadia:
yo lo hago de la siguiente forma si te sirve.


Public Function nombreFuncion(ByVal tipoTarjeta)
Try
Dim conexionBD = DAOConexion.GetDAOConexion.obtConexionBD
Dim sql As String = sentencia SQL
Dim comandoSQL As OleDbCommand = New OleDbCommand(sql, conexionBD)
Dim resultadoSQL As OleDbDataReader = comandoSQL.ExecuteReader()
resultadoSQL.Read()
return resultadoSQL.getString(0)
Catch ex As Exception
Return False
End Try
End Function
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

RE:manipulacion de base de datos

Publicado por nadia (11 intervenciones) el 17/09/2009 22:32:03
gracias por tu ayuda!!
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