Visual Basic - Declaración variables

Life is soft - evento anual de software empresarial
   
Vista:

Declaración variables

Publicado por Antonio Belando (11 intervenciones) el 22/10/2012 19:29:13
Hola.

He creado la siguiente función en el Módulo para que me ponga en un ComboBox los NOMBRES de los campos de una tabla, donde:

NombreBaseDatos = nombre de la base de datos.
NombreTabla = nombre de la tabla de la que se van a extraer los nombres de los campos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function ShowCampos(NombreBaseDatos, NombreTabla, NombreComboBox)
   Dim rsTemp As New Recordset
   Dim Contador As Integer
 
   strSQL = "SELECT  [COLUMN_NAME]  From [NombreBaseDatos].[INFORMATION_SCHEMA].[Columns]  WHERE TABLE_NAME = NombreTabla "
 
   If rsTemp.State = 1 Then rsTemp.Close
   rsTemp.Open strSQL, g_db, adOpenStatic, adLockReadOnly, adCmdText
 
   NombreComboBox.Clear
 
   For Contador = 0 To rsTemp.RecordCount - 1
      NombreComboBox.AddItem rsTemp!Column_Name
      rsTemp.MoveNext
   Next Contador
 
   NombreComboBox.ListIndex = 1
 
   If rsTemp.State Then rsTemp.Close
   Set rsTemp = Nothing
 
End Function


Luego en cualquier parte de la aplicación llamo a esta función:

Call ShowCampos(NombreBaseDatos, NombreTabla, CmbDep)

Las dudas son:
-¿Cómo debo declarar e igualar NombreBaseDatos y NombreTabla ?

¿Cómo debo poner estas variables en la instrucción:
1
strSQL = "SELECT  [COLUMN_NAME]  From [NombreBaseDatos].[INFORMATION_SCHEMA].[Columns]  WHERE TABLE_NAME = NombreTabla "

?

Saludos cordiales.
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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Visor de bases de datos
- Horas
- Juego de Naves

Declaración variables

Publicado por Helvison (1 intervención) el 11/11/2012 02:01:40
Hola saludos, disculpe la molestia. Necesito hacer un programa y no tengo la idea sobre: construir una expresion logica cuyo valor sea verdadero, si la edad de una persona es mayor a 60años o menor a 12 años. El resultado de la expresion debe ser falso si la edad no cumple con esta condiones.
Espero su repuesta muchas 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

Declaración variables

Publicado por Antonio Belando (1 intervención) el 11/11/2012 12:46:10
Hola Helvison.

En relación con tu solicitud, se me ocurre:

1
2
3
4
5
6
7
8
Dim bVerdadero As Boolean
Dim nEdad As Integer
 
If nEdad > 60 Or nEdad < 12 Then
    bVerdadero = True
Else
    bVerdadero = False
End If
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