Visual Basic - Problemas con un proyecto

Life is soft - evento anual de software empresarial
 
Vista:

Problemas con un proyecto

Publicado por Lord Manson (2 intervenciones) el 18/07/2008 15:15:54
Saludos!
Escribo porque estoy realizando un proyecto en Visual Basic y tengo un problema con un combobox

Estoy usando access 97 para los datos del proyecto
Y tengo un combobox en el que tienen que salireme LOS CAMPOS de la base de datos, y que al seleccionar por ejemplo"nombre" en el combo, en el datagrid que tengo me salieran los nombres de todos los registros, si pongo edad, la edad y así todo el rato y despues un campo text que sirviera de busqueda en los registros

¿Que podeis recomendarme? Esque estoy empezando en la programación y necesito una ayudita.

Saludos y gracias!

[code]
Option Explicit
Dim BaseDatos As Database
Dim tblAlta As TableDef
Dim rsAlta As Recordset
Private Sub cmdAceptar_Click()
DataGrid1.AllowUpdate = False
DataGrid1.AllowRowSizing = False
DataGrid1.AllowDelete = False
DataGrid1.AllowArrows = False
DataGrid1.AllowAddNew = False
cmdAceptar.Visible = False
End Sub
Private Sub cmdSalir_Click()
End
End Sub

Private Sub Command1_Click()
Form1.Visible = False
Form2.Visible = True
End Sub
Private Sub Command2_Click()
If Not (Adodc1.Recordset.BOF And Adodc1.Recordset.EOF) Then
If MsgBox("¿Está seguro de Eliminar esté Registro?", _
vbQuestion + vbYesNo, "Eliminar Registro") = vbYes Then
Adodc1.Recordset.Delete adAffectCurrent
Adodc1.Refresh
End If
Else
MsgBox "Para eliminar un registro ¿no hace falta uno? xD"
End If
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
DataGrid1.AllowUpdate = True
DataGrid1.AllowRowSizing = True
DataGrid1.AllowDelete = True
DataGrid1.AllowArrows = True
DataGrid1.AllowAddNew = True
cmdAceptar.Visible = True
End Sub
Private Sub cmdAdd_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub cmdDel_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command4_Click()
Adodc1.BOFAction = adStayBOF
End Sub
Private Sub Command5_Click()
Form1.Visible = False
Form2.Visible = True
End Sub
Private Sub Command6_Click()
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Do Until rsAlta.EOF
Combo1.AddItem rsAlta("Alta")
rsAlta.MoveNext
Loop
Adodc1.Refresh
End Sub
[/code]

Este es mi codigo por ahora, por ahora lo unico que he descubierto es lo que poner en el form_load, pero me da errores...

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

RE:Problemas con un proyecto

Publicado por m0skit0 (62 intervenciones) el 18/07/2008 15:18:50
Si pudieras formatear el texto a mano, te lo agradecría, así no hay quién lo lea.

Tampoco deberías acabar la aplicación con un END directamente, hay que desconectar del Access porque sino seguirá corriendo.

¿Qué errores te da, y en qué línea?
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:Problemas con un proyecto

Publicado por Lord Manson (2 intervenciones) el 18/07/2008 15:24:16
Perdona por lo del formato, creia que el tag code funcionaba aqui, veo que los codigos no están activados =s
¿Como puedo formatear los textos aqui? no me deja hacer ni tabulaciones...

Perdona, esque es la primera vez que posteo por aqui jeje
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