Anónimo
Rellenar un DataCombo en Visual Basic 6
Hola, Mi problema es el siguiente
Estoy desarrollando una base de datos para automatizar la actividad de los servicios en mi empresa. Tengo que implementar varios combos. Como los lleno, estoy utilizando DAO
Desde ya gracias.
Estoy desarrollando una base de datos para automatizar la actividad de los servicios en mi empresa. Tengo que implementar varios combos. Como los lleno, estoy utilizando DAO
Desde ya gracias.
1 Respuesta
Respuesta de Isaac Reyes
1
Este es el código para base de datos en access 97
Public BDD As Database
Public Tabla As Recordset
'Abre la base de datos
'PARAMETROS
' NombreBDD : Nombre de la base de datos
' pwd: La clave de la base de datos
'Retorna el numero de error
Function fcnCargarBDD(NombreBDD As String, _
Optional pwd As String = "") As Integer
On Error Resume Next
Set BDD = OpenDatabase(NombreBDD)
Select Case Err.Number
Case 3031
Err.Clear
Set BDD = DBEngine.OpenDatabase(NombreBDD, True, False, ";PWD=" + pwd)
If Err.Number <> 0 Then
MsgBox Err.Description
MsgBox "La Base de Datos está protegida con contraseña", vbExclamation, "Notificación"
End If
Case 3024
MsgBox "La base de datos " + NombreBDD + " no fue encontrada." & _
" Asigne una nueva ruta", vbExclamation, "Notificación"
End Select
fcnCargarBDD = Err.Number
End Function
'Procedimiento que llena un combo o una lista con los valores de una tabla
'Parámetros
'objObjeto: La lista que se desea llenar
'strTabla: Tabla de la que se extraerán los datos
'strCampo: El campo que se desea mostrar
'blnOrdenar: Opcional, indica si se quieren ordenar los datos
Public Sub subLlenarObjeto(objObjeto As Object, _
strTabla As String, _
strCampo As String, _
Optional blnOrdenar As Boolean = True)
'Llenar lista
SQL = "SELECT * FROM " & strTabla
If blnOrdenar Then
SQL = SQL & " ORDER BY " & strCampo
End If
Set Tabla = BDD.OpenRecordset(SQL)
On Error Resume Next
Tabla. MoveFirst ' Nos posiciona en el primer registro
objObjeto. Clear 'Vaciar la lista
Do Until Tabla.EOF ' Mientras queden registros
objObjeto.AddItem Tabla(strCampo)
Tabla.MoveNext
Loop
End Sub
Public BDD As Database
Public Tabla As Recordset
'Abre la base de datos
'PARAMETROS
' NombreBDD : Nombre de la base de datos
' pwd: La clave de la base de datos
'Retorna el numero de error
Function fcnCargarBDD(NombreBDD As String, _
Optional pwd As String = "") As Integer
On Error Resume Next
Set BDD = OpenDatabase(NombreBDD)
Select Case Err.Number
Case 3031
Err.Clear
Set BDD = DBEngine.OpenDatabase(NombreBDD, True, False, ";PWD=" + pwd)
If Err.Number <> 0 Then
MsgBox Err.Description
MsgBox "La Base de Datos está protegida con contraseña", vbExclamation, "Notificación"
End If
Case 3024
MsgBox "La base de datos " + NombreBDD + " no fue encontrada." & _
" Asigne una nueva ruta", vbExclamation, "Notificación"
End Select
fcnCargarBDD = Err.Number
End Function
'Procedimiento que llena un combo o una lista con los valores de una tabla
'Parámetros
'objObjeto: La lista que se desea llenar
'strTabla: Tabla de la que se extraerán los datos
'strCampo: El campo que se desea mostrar
'blnOrdenar: Opcional, indica si se quieren ordenar los datos
Public Sub subLlenarObjeto(objObjeto As Object, _
strTabla As String, _
strCampo As String, _
Optional blnOrdenar As Boolean = True)
'Llenar lista
SQL = "SELECT * FROM " & strTabla
If blnOrdenar Then
SQL = SQL & " ORDER BY " & strCampo
End If
Set Tabla = BDD.OpenRecordset(SQL)
On Error Resume Next
Tabla. MoveFirst ' Nos posiciona en el primer registro
objObjeto. Clear 'Vaciar la lista
Do Until Tabla.EOF ' Mientras queden registros
objObjeto.AddItem Tabla(strCampo)
Tabla.MoveNext
Loop
End Sub