hay mejor forma?

19/10/2005 - 11:55 por Sonia | Informe spam
Hola tengo un formulario donde relleno una serie de textbox q pertenecen a
una misma tabla, medicante una funcion llamada leer_registro

Y lugo tengo un textbox q pertenece a otra tabla y lo q hago es lo siguiente

mysql1 = "SELECT AUX FROM(PEDIDOS) WHERE COLEGIO= '" & cole & "';"

Dim MiData As New DataSet

Dim MiAdapter2 As OleDb.OleDbDataAdapter = New
OleDb.OleDbDataAdapter(mysql1, myConnection)

MiAdapter2.Fill(MiData, "PEDIDOS")

cuenta.DataBindings.Add("text", MiData, "PEDIDOS.AUX")

cuenta.DataBindings.Clear()

pero hay alguna otra forma mas eficaz o que gane menos recursos para
rellenar solo un textbox?

Gracias!
 

Leer las respuestas

#1 Carlos Gómez
19/10/2005 - 18:12 | Informe spam
Puedes usar el modo "conectado"

Dim cn as new OleDb.OleDbConnection(myConnection)
'Supongo que solo debe recuperar una fila, pongo TOP 1 asegurarme y asi
'luego usar SingleRow que optimiza la recuperacion de datos
mysql1=" SELECT TOP 1 AUX FROM (PEDIDOS) WHERE COLEGIO = '" & cole & "'
Dim cmd as new OleDb.OleDbCommand(mysql1, myConnection)
Dim dr as OleDb.OleDbDataReader = _
cmd.ExecuteReader(CommandBehavior.SingleRow)
If dr.Read() Then
TextBox1.Text=dr.Item("AUX").ToString
Else
TextBox1.Text="Valor no encontrado"
End If
dr.Close
myConnection.Close
dr=Nothing
cmd=Nothing
cn=Nothing

Sonia wrote:


Hola tengo un formulario donde relleno una serie de textbox q pertenecen a
una misma tabla, medicante una funcion llamada leer_registro

Y lugo tengo un textbox q pertenece a otra tabla y lo q hago es lo
siguiente

mysql1 = "SELECT AUX FROM(PEDIDOS) WHERE COLEGIO= '" & cole & "';"

Dim MiData As New DataSet

Dim MiAdapter2 As OleDb.OleDbDataAdapter = New
OleDb.OleDbDataAdapter(mysql1, myConnection)

MiAdapter2.Fill(MiData, "PEDIDOS")

cuenta.DataBindings.Add("text", MiData, "PEDIDOS.AUX")

cuenta.DataBindings.Clear()

pero hay alguna otra forma mas eficaz o que gane menos recursos para
rellenar solo un textbox?

Gracias!

Preguntas similares