Visual Basic - DBGRID

Life is soft - evento anual de software empresarial
 
Vista:

DBGRID

Publicado por ALEXIS (6 intervenciones) el 28/10/2002 12:39:46
TENGO UN PROGRAMA DE ALMACEN Y QUIERO CONSULTAR ALFABETICAMENTE ARTICULOS
Y QUE SALGAN EN UN DBGRID LOS QUE EMPIECEN POR EJEMPLO POR REFRESCO
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:DBGRID

Publicado por David Medina (24 intervenciones) el 01/11/2002 02:58:58
Utilice el lenguaje SQL para generar la consulta después del evento click sobre el DBGrid, eso lo puedes controlar con las coordenadas del DB en la pantalla o simplemente click sobre el DBGRID

Cuando genera la consulta le dice que ordenar ASC por el campo alfabético para que salga como quiere.

EX: Para este ejemplo necesitas un Formulario, Un boton ejecutar, Un DBGRID1 y comer este código en el evento click sobre el boton.

Además debes de tener la respectiva conexion a la BD. EN el ejemplo, el campo TEXT1 es el parámetro de la consulta

If Len(Me.Text1.Text) = 0 Then Exit Sub

MySql = "SELECT AXNUMERO, AXPOLIZA, AX_INICIO, AX_FIN FROM ANEXO "
MySql = MySql + "WHERE AXPOLIZA='" & Text1.Text & "'"
Me.Adodc1.RecordSource = MySql
Me.Adodc1.Refresh

If Me.Adodc1.Recordset.EOF = True Then
MsgBox "No existe ningún registro con ese número de póliza", vbInformation + vbOKOnly
Exit Sub
End If

Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset
Me.DataGrid1.Columns(0).Caption = "Anexo No."
Me.DataGrid1.Columns(1).Caption = "Póliza No."
Me.DataGrid1.Columns(2).Caption = "Inicio"
Me.DataGrid1.Columns(3).Caption = "Fin"
Me.DataGrid1.Visible = True
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