Yo creo una clase con estos datos :
Código:
#Region " Atributo " Private sConexion As String = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=prueba;Data Source=CHELE;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CHELE;Use Encryption for Data=False;Tag with column collation when possible=False" Private aAdaptador As OleDbDataAdapter #End Region Public Function fn_consultar(ByRef dDataset As DataSet, ByVal sql As String) 'crear conexión Dim conn As New OleDbConnection(sConexion) 'crear adaptador aAdaptador = New OleDbDataAdapter(sql, conn) 'rellenar el adaptador con el dataset aAdaptador.Fill(dDataset, "tabla1") End Function Public Sub fn_actualizar(ByRef dDataset As DataSet) 'generar constructor del adaptador para actualizar los datos Dim cmdbuild As OleDbCommandBuilder = New OleDbCommandBuilder(aAdaptador) 'actualizar datos aAdaptador.Update(dDataset, "tabla1") End Sub
Ahora en la pagina tengo esto :
Declarado arriba del todo :
Código:
Dim dataset_prueba As New DataSet() Dim conexion As New class_Conexion() Dim fila As DataRow
Y en un boton tengo esto :
Código:
Esto me muestra el valor, todo correcto. Ahora quiero guardar un dato y me dicen que lo que tengo que hacer es guardarme el identificador de la fila y hacer un update, es decir volver a conectarme y todo el rollo .... ¿no es un poco lio? me refiero a que estoy todo el rato conectando y desconectando ( esto lo hace solo segun pude ver ) me parece que esto pierde velocidad para el usuario ya que hace muchas conexiones ... no se es mi opinion.Dim sql As String sql = "select * from personajes" conexion.fn_consultar(dataset_prueba, sql) fila = dataset_prueba.Tables("tabla1").Rows(0) TextBox1.Text = fila("nombre")
¿Seria asi? ¿Estoy liado? ¿Estoy equivocado en algo?.
Venga un saludo. Ta luego.