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


0