Programación General > Visual Basic 6.0 e inferiores

 Codigo Para Matriz De Control

<< < (2/2)

Shiquilla:
Hola de nuevo, si va a ser una búsqueda igual pero sólo cambiando un parámetro en la Select podrías hacer una función que haga lo siguiente:


--- Código: Text ---Private Sub Command1_Click(Index As Integer)   Select Case Index       Case 0           Consulta a 'a = Parametro de la funcion       Case 1           Consulta b 'b = Parametro de la funcion       Case 2           Consulta c 'c = Parametro de la funcion   End SelectEnd Sub Private Function Consulta(Parametro As String)    Dim rs As New ADODB.Recordset    Dim SQL As String    SQL = &#34;SELECT Campo FROM Tabla WHERE Clave = '&#34; & Parametro & &#34;'&#34;    ' todo lo demásEnd Function 
Saludos.

sombra_71:
Shiquilla.

Mil gracias por ayudarme.... pondre en marcha lo q me comentas.

Espero aplicar bien el codigo, espero tengas algun correo para consultarte, claro si tienes el tiempo....

Saludos.

Sombra_71

Navegación

[0] Índice de Mensajes

[*] Página Anterior