Cómo hacer una consulta a la tabla de clientes

En esta ocasión mostramos un ejemplo de una ventana que consulta a la tabla de clientes y permite hacer el filtro por nombre.

Icon

Ejemplo Forma clientes 2.35 KB 353 downloads

Ejemplo de cómo hacer una consulta a la tabla de clientes ...

Este es el código fuente

 

 Visual Basic |  copy code |? 
001
002
Sub Form_load()
003
 
004
'José Félix 20140812
005
 
006
'jofelchez@gmail.com
007
 
008
'Ejemplo de cómo hacer una consulta a la tabla de clientes
009
 
010
TxtCliente.TabIndex = 0
011
 
012
aceptar.Default = True
013
 
014
'TxtCliente.PasswordChar = "*"
015
 
016
'TxtCliente.BackColor = 0
017
 
018
'TxtCliente.ForeColor = vbGreen
019
 
020
'TxtCliente.font.size = 14
021
 
022
Me.Caption = "Ejemplo de consulta a cliente"
023
 
024
Set mc1 = Me.Controls.Add("DBMultiCombo.MultiCombo","mc1", Me)
025
 
026
With mc1
027
 
028
.Left = TxtCliente.Left
029
 
030
.Top = TxtCliente.Top
031
 
032
.Width = TxtCliente.Width + 450
033
 
034
.Height = TxtCliente.Height
035
 
036
Set .Connection = Ambiente.Connection
037
 
038
Set .txtObject = TxtCliente
039
 
040
.Buscar = "Clientes"
041
 
042
.Visible = True
043
 
044
Set TxtCliente.Container = mc1
045
 
046
End With
047
 
048
End Sub
049
 
050
Sub Button_Click()
051
 
052
Dim cUsuario
053
 
054
Dim cPassword
055
 
056
Dim nPos
057
 
058
Dim s
059
 
060
If ControlEvento.Tag = "cancelar" Then
061
 
062
bolAceptar = False
063
 
064
DescargaForma
065
 
066
Exit Sub
067
 
068
End If
069
 
070
'consulta a la base de datos
071
 
072
Set rstCliente = CreaRecordSet( _
073
 
074
"SELECT * FROM clients WHERE cliente = '" & TxtCliente & "'", _
075
 
076
Ambiente.Connection )
077
 
078
'En caso de que no se encuentre el usuario envía mensaje de error
079
 
080
If rstCliente.EOF Then
081
 
082
'Progress.Destroy
083
 
084
MyMessage "Error:" & vbCrLf & "No existe el cliente indicado"
085
 
086
EstableceFoco
087
 
088
Exit Sub
089
 
090
End If
091
 
092
mymessage " Cliente: " & rstCliente("cliente") & vbCrLf & " Nombre: " & rstCliente("nombre")
093
 
094
End Sub
095
 
096
Sub EstableceFoco()
097
 
098
TxtCliente.Setfocus
099
 
100
TxtCliente.SelStart = 0
101
 
102
TxtCliente.SelLength = Len( TxtCliente )
103
 
104
End Sub
105
 
106
Sub Text_KeyUp()
107
 
108
'Este bloque permite responder a una tecla
109
 
110
'En caso de <flecha abajo="">
111
 
112
If KeyCode = 40 Then
113
 
114
Select Case ControlEvento.Tag</flecha>
115
 
116
Case "TxtCliente"
117
 
118
TxtCliente.Container.ShowData
119
 
120
End Select
121
 
122
End If
123
 
124
'en caso de <esc>
125
 
126
If KeyCode = 27 Then
127
 
128
DescargaForma
129
 
130
'Exit Sub
131
 
132
End If</esc>
133
 
134
End Sub
135

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *


Time limit is exhausted. Please reload CAPTCHA.