Visual Basic - Vb6 mostrar nombre de tablas en combobox

Life is soft - evento anual de software empresarial
   
Vista:

Vb6 mostrar nombre de tablas en combobox

Publicado por Jesus (15 intervenciones) el 24/06/2015 17:21:15
Bueno tengo un app en Vb6 con access 2010 soy nuevo en esto y lo que quiero hacer es mostrar el nombre de 3 tablas en un combobox que tengo en la bdd y cuando elija una opcion (nombre de la tabla), como que se ligue a esa tabla en la bdd y lo que registre (inserts) se guarde en esa tabla

de antemano muchas gracias
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
Imágen de perfil de Andres Leonardo

Vb6 mostrar nombre de tablas en combobox

Publicado por Andres Leonardo (702 intervenciones) el 24/06/2015 18:18:24
Cabe indicar que debes estar conectado a la tabla con la conexion

Public conexion As New ADODB.Connection
Public RsI As New ADODB.Recordset



Si no ando mal esto es lo quenecesitas
Me funcionaba en access 2003

Private Sub Form_Load()
Dim rsI As New ADODB.Recordset
Set rsI = conexion.OpenSchema(adSchemaTables)
Do Until rsI.EOF
If Not esTablaSistema(rsI("TABLE_NAME")) Then
cmb_serv.AddItem rsI("TABLE_NAME")
End If
rsI.MoveNext
Loop
rsI.Close

End Sub


'***Funcion verificacion de tablas de sistema

Function esTablaSistema(nombreTabla As String) As Boolean
Dim tablaSistema As String
Dim a As String
tablaSistema = Left(nombreTabla, 4)
If tablaSistema = "MSys" Or tablaSistema = "~TMP" Then 'AG2 sys o tmp 05-02-2006
esTablaSistema = True
Else
esTablaSistema = False
End If

End Function
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

Vb6 mostrar nombre de tablas en combobox

Publicado por jesus (15 intervenciones) el 24/06/2015 18:28:21
muchas gracias por tu respuesta ,

si no esta demas me podrias explicar el codigo es que estoy empesando y ya sabes , la verdad quiero comprender bien para que ya no tenga problemas con esto.

Probare el codigo y te comento
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
Imágen de perfil de Andres Leonardo

Vb6 mostrar nombre de tablas en combobox

Publicado por Andres Leonardo (702 intervenciones) el 24/06/2015 18:58:19
Bueno en lo que puedo te explico
' esto es cuando inicia la aplicacion
'creas un recorset que es nada mas como un repositorio de datos ahora los llaman dataset.. aunque este es mucho mejor
'el OpenSchema es entrar al esquema de la tabla.. esto es por que el esquema es la base de datos de la base de datos .. largo para explcar pero .. es como llega a las tablas
luego haces un ciclo do recorriendo los datos que obtubo el recorset
y luego va cogiendo el nombre de la tabla....
Aqui manda como parametro el nombre de la tabla .. y el otro codigo o funcion determina si es o no del sistema
Por ende te pondra en el combo aquellas tablas que no son del sistema es decir solo las que tu creaste... cabe indicar que aqui tu podras modificar el codigo
Una vez que acaba con el ciclo . termina y presenta el form con el combo lleno de los nombres de las tablas QUE no sean del sistema

Espero te ayude



Private Sub Form_Load()
Dim rsI As New ADODB.Recordset
Set rsI = conexion.OpenSchema(adSchemaTables)
Do Until rsI.EOF
If Not esTablaSistema(rsI("TABLE_NAME")) Then
cmb_serv.AddItem rsI("TABLE_NAME")
End If
rsI.MoveNext
Loop
rsI.Close

End Sub
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

Vb6 mostrar nombre de tablas en combobox

Publicado por jesus (15 intervenciones) el 24/06/2015 19:27:42
Private Sub Combo2323_Click()
Public conexion As New ADODB.Connection
Public rsl As New ADODB.Recordset
Dim rsl As New ADODB.Recordset
Set rsl = conexion.OpenSchema(adSchemaTables)

Do Until rsl.EOF
If Not esTablaSistema(rsl("sorteo1")) Then
Combo2323.AddItem rsl("sorteo1")
End If

rsl.MoveNext

Loop

rsl.Close

End Sub

gracias ahora que mas claro , la duda que me surge cual es la linea donde se indica el nombre de la bdd
paraque el rsl pueda recorer la bdd y en contrar la tabla , una disculpa si sueno enfadoso
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
Imágen de perfil de Andres Leonardo

Vb6 mostrar nombre de tablas en combobox

Publicado por Andres Leonardo (702 intervenciones) el 24/06/2015 22:02:41
Loque pasa es que entiendo que tu ya tienes conectado la aplicacion con la base de datos... si no es asi .. yo lo manejoc on ODBC de access y yo la conexion la seteo con este dsn de sistema y ese es el que tiene la conexion con la base de datos....

si no tienes avisame para tratar de enviarte un ejemplo...
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

Vb6 mostrar nombre de tablas en combobox

Publicado por jesus (15 intervenciones) el 24/06/2015 23:02:15
si la tengo conectada a una bdd , el problema es que como estoy modificando el sistema no se donde tiene la coneccion como para buscar las variables que la coneccion he buscado pero no encuentro el codigo de coneccion y pues eso lo hace un poco mas dificil para mi ya que estoy empezando , y si me podrias mandar un ejemplo seria de muchisima ayuda.

gracias por tu apoyo
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