Visual Basic - Os dejo el codigo. Ayuda!!!!

Life is soft - evento anual de software empresarial
 
Vista:

Os dejo el codigo. Ayuda!!!!

Publicado por nachito (26 intervenciones) el 09/01/2006 23:09:40
wenas gente. estoy metido en una base de datos y me he quedado en un punto. he probado varias cosillas pero no resultaro. consiste en que yo tengo una bbdd de access, y mediante DAO pues voy metiendo cosillas. lo que realmente quiero y no puedo es que con un combo box con la opcion que yo elija me deje meter cosas en una tabla o otra.

ejemplo:

tengo en un combo box los equipos de futbol (cada uno es una tabla), y cuando elijo uno kiero meter determinadas cosas en esa tabla.

os dejo el codigo:

- bbdd y eso ya esta definido como la base de datos. el error da en el select from. cmb2 es la combo box

Private Sub Command1_Click()
Set bbdd = OpenDatabase("C:\...\bbdd.mdb")
Set resultados = bbdd.("Select * from cmb2.Text" , dbOpenDynaset, dbOptimistic)

resultados.AddNew
resultados!resultados = Text1.Text
resultados.Update
Text1.Text = ""

End Sub

Private Sub out_Click()
Unload Me
End Sub


gracias a todos
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
sin imagen de perfil

RE:Os dejo el codigo. Ayuda!!!!

Publicado por Iñaki (502 intervenciones) el 09/01/2006 23:30:11
Supongo que el combo estaran los nombres de la tabla correctamente
dim strsql as string
strsql = " select * from " & cmb2.text

Set resultados = bbdd.Open( strsql , dbOpenDynaset, dbOptimistic)
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

RE:Os dejo el codigo. Ayuda!!!!

Publicado por sk@keo (4 intervenciones) el 11/01/2006 13:46:23
Prueba esto:
dim strEquipo as string
strEquipo = cmb2.column(0)
Set resultados = bbdd.("Select * from " & strEquipo & ".mdb" , dbOpenDynaset, dbOptimistic

La n del combo es el numero de columna donde esta el dato, si solo tienes un campo en el combo sera 0.

Espero que te sirva
Un saludo sk@keo
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

RE:Os dejo el codigo. Ayuda!!!!

Publicado por nachito (26 intervenciones) el 11/01/2006 14:23:46
gracias por vuestra ayuda. al final me salio todo perfecto.

no se que haria sin esta web.....
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