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.
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:
?
Saludos cordiales.
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.ClearFor Contador = 0 To rsTemp.RecordCount - 1
NombreComboBox.AddItem rsTemp!Column_Name
rsTemp.MoveNextNext Contador
NombreComboBox.ListIndex = 1
If rsTemp.State Then rsTemp.Close
Set rsTemp = NothingEnd 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
0