Formulario busqueda

"Wilfredo Chacon" preguntó:

como puedo hacer para crear un formulario de busqueda de
datos. De preferencia usando algun Grid. Se puede.

Por supuesto que se puede. Crea un formulario, le añades por ejemplo un
control DataGrid, y escribes el código fuente oportuno.

Al formulario de búsqueda, lo puedes llamar de manera «modal», utilizando
para ello el método «ShowDialog» de la clase «Form»:

Dim frm As New frmBusqueda

With frm
.ShowDialog(Me)
.Dispose()
End With

Si deseas obtener del formulario algún valor, simplemente puedes añadirle
una propiedad pública de sólo lectura, para poder leer su valor antes de que
se destruya el formulario:

Public ReadOnly Property ObtenerResultado() As String
Get
' Devuelve el contenido de un control de texto
Return TextBox1.Text
End Get
End Property

De ésta forma, obtendrías el valor devuelto de la siguiente manera:

Dim frm As New frmBusqueda

With frm
' Llamamos al formulario
.ShowDialog(Me)
' Leemos el valor de la propiedad
MessageBox.Show(.ObtenerResultado)
.Dispose()
End With

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Ok, gracias por la ayuda me ha servido de mucho

Solo que ahora tengo otro problemita a ver si puedes ayudarme.

Resulta que al grid le puse como origen un Dataset que tiene como origen una
tabla medicos que tiene los campos Cod_medico, Nombre, apellido,
direccion,telefono, especialidad
Pero resulta que el grid me muestra todos los campos y yo solo quiero que me
muestre cod_medico, Nombre y Apellido.
¿Como puedo hacer?
Haber si me ayudas.
de antemano Gracias.



"SoftJaén" escribió en el mensaje
news:

"Wilfredo Chacon" preguntó:

> como puedo hacer para crear un formulario de busqueda de
> datos. De preferencia usando algun Grid. Se puede.
>

Por supuesto que se puede. Crea un formulario, le añades por ejemplo un
control DataGrid, y escribes el código fuente oportuno.

Al formulario de búsqueda, lo puedes llamar de manera «modal», utilizando
para ello el método «ShowDialog» de la clase «Form»:

Dim frm As New frmBusqueda

With frm
.ShowDialog(Me)
.Dispose()
End With

Si deseas obtener del formulario algún valor, simplemente puedes añadirle
una propiedad pública de sólo lectura, para poder leer su valor antes de

que

se destruya el formulario:

Public ReadOnly Property ObtenerResultado() As String
Get
' Devuelve el contenido de un control de texto
Return TextBox1.Text
End Get
End Property

De ésta forma, obtendrías el valor devuelto de la siguiente manera:

Dim frm As New frmBusqueda

With frm
' Llamamos al formulario
.ShowDialog(Me)
' Leemos el valor de la propiedad
MessageBox.Show(.ObtenerResultado)
.Dispose()
End With

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado

o

sugerido en el presente mensaje.

"Wilfredo Chacon" escribió:

Resulta que al grid le puse como origen un Dataset que tiene como origen
una tabla medicos que tiene los campos Cod_medico, Nombre, apellido,
direccion,telefono, especialidad
Pero resulta que el grid me muestra todos los campos y yo solo quiero que
me muestre cod_medico, Nombre y Apellido.
¿Como puedo hacer?

Cuando vayas a ejecutar el comando de selección del objeto DataAdapter, en
la consulta SQL de selección deberás de especificar los campos de la tabla
que deseas que aparezcan en el objeto DataTable, y por tanto, en el control
DataGrid.

El siguiente ejemplo muestra como rellenar un control DataGrid en tiempo de
ejecución:

' Creamos los correspondientes objetos
'
Dim cnn As New OleDb.OleDbConnection ' Connection
Dim oCommand As New OleDb.OleDbCommand ' Command
Dim oDataAdapter As OleDb.OleDbDataAdapter ' DataAdaptet
Dim oDataSet As New DataSet ' DataSet

' Configuramos y abrimos la conexión con una base de Access
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Base.mdb"
.Open()
End With

' Configuramos el objeto Command
With oCommand
' Aquí indicas los campos que deseas seleccionar
.CommandText = "SELECT Cod_Medico, Nombre, Apellido " & _
"FROM TablaMedicos"
.Connection = cnn
End With

' Creamos un nuevo objeto DataAdapter, asignándole el objeto Command
oDataAdapter = New OleDb.OleDbDataAdapter(oCommand)

' Utilizamos el adaptador para crear un objeto
' DataTable denominado Medicos
oDataAdapter.Fill(oDataSet, "Medicos")

' Configuramos el control DataGrid
With DataGrid1
.DataSource = oDataSet
.DataMember = "Medicos"
End With


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.