Visual Basic - Base de datos en un textbox

Life is soft - evento anual de software empresarial
 
Vista:

Base de datos en un textbox

Publicado por Carlos (50 intervenciones) el 10/07/2009 02:16:57
Hola a todos

Estoy trabajando en este formulario y ya logré conectar una base de datos a un combo, lo que no logro es mostrar en un textbox ya que aparentemente no posee la propiedad datasource.
alguien puede darme una mano por favor

Saludos


Imports System.Data.OleDb
Imports System.Data.DataRow

Public Class frmBase

Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|Costo.mdb")

'Materiales
Private MiAdaptadorMat As New OleDbDataAdapter("SELECT * FROM precios WHERE COS_MATMDO = 'MAT' ORDER BY COS_DESCR", MiConexion)
Private MiDataSetMat As New DataSet()
Private MiEnlazadorMat As New BindingSource

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim commandbuilderMat As New OleDb.OleDbCommandBuilder(Me.MiAdaptadorMat) 'Materiales
MiConexion.Open() 'Abrimos la base de datos
MiAdaptadorMat.Fill(MiDataSetMat) 'Materiales
MiEnlazadorMat.DataSource = MiDataSetMat.Tables(0)
Me.Combo1.DataSource = MiEnlazadorMat
Me.Combo1.DisplayMember = "COS_DESCR"
End Sub
End Class
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:Base de datos en un textbox

Publicado por Esperanza (38 intervenciones) el 10/07/2009 08:56:33
Para mostrar los datos de una tabla en en textbox lo que hay que hacer es ir leyendo dicha tabla registro a registro e ir pasando los campos a los textbox correspondientes. Al menos es como lo hago yo. Te pongo a continuación un ejemplo:

Private Sub cargar_cajas_texto()

On Error GoTo ManejadorError

rs1.Open "Select * from [Datos_Configuracion]", cnn, adOpenDynamic, adLockOptimistic
If rs1.BOF Then
MsgBox ("El fichero de configuración está vacío.")
Me.Refresh
Else
Text1.Text = rs1!Cod_producto
Text2.Text = rs1!Cod_cliente
Text3.Text = rs1!Fecha_Fichero
Text4.Text = rs1!Hora_Emision
Text5.Text = rs1!Minutos_Emision
Text6.Text = rs1!Fecha_prevista
End If

ManejadorError:
If Err.Number <> 0 Then
MsgBox ("Error: " & Err.Number)
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Base de datos en un textbox

Publicado por JaImE GuErReRo (361 intervenciones) el 10/07/2009 16:28:04
este codigo es de vb.net

a diferencia del combo, el textboxt no lleva datasource. Lo que tienes que hacer es textboxt.text=MiDataSetMat(indice del campo que quieres poner).tostring()
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
sin imagen de perfil

RE:Base de datos en un textbox

Publicado por carlos (4 intervenciones) el 11/07/2009 01:35:51
podrias especificar mas por favor ya que hice como esta escrito y sale errores

gracias
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