Carga De Combos De Una BD Access
Publicado por Gabriel (30 intervenciones) el 19/05/2006 18:31:45
Hola Saludos A Todos.
Tengo seis combo los cuales despliegan una lista que obtienes de las tablas de las bases de datos .La duda o problema que que tengo es que para cada combo tengo que establecer la conexion con la base de datos lo hice de esta manera.
Sub LlenarCboColor()
*********DESDE AQUI
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" + App.Path + "\BDNiobeSystem.MDB;" & _
"Persist Security Info=False"
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
Rs.Open "Select * From Colores Order By NumColor "********HASTA AQUI
If Rs.RecordCount > 0 Then
Rs.MoveFirst
End If
FrmAltaArticulo.CboColor.Clear
FrmAltaArticulo.CboColor.AddItem ""
Usuario = ""
Do Until Rs.EOF
FrmAltaArticulo.CboColor.AddItem Rs!DesColor
On Error GoTo rsError_Handler
Rs.MoveNext
Loop
If Rs.State = adStateClosed Then Rs.Open
Exit Sub
rsError_Handler:
Msg = "Niobe System"
Estilo = vbCritical + vbOKOnly
Titulo = "Error Al Cargar En Tiempo de Ejecución"
MsgBox Msg, Estilo, Titulo
Err.Clear
End Sub
Esto lo repito con cada combo no se si se puede hacer solo una vez la conexion con la BD y hacer todas las consultas con la misma conexion o una sola consulta para todos los combos.
Tengo seis combo los cuales despliegan una lista que obtienes de las tablas de las bases de datos .La duda o problema que que tengo es que para cada combo tengo que establecer la conexion con la base de datos lo hice de esta manera.
Sub LlenarCboColor()
*********DESDE AQUI
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" + App.Path + "\BDNiobeSystem.MDB;" & _
"Persist Security Info=False"
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
Rs.Open "Select * From Colores Order By NumColor "********HASTA AQUI
If Rs.RecordCount > 0 Then
Rs.MoveFirst
End If
FrmAltaArticulo.CboColor.Clear
FrmAltaArticulo.CboColor.AddItem ""
Usuario = ""
Do Until Rs.EOF
FrmAltaArticulo.CboColor.AddItem Rs!DesColor
On Error GoTo rsError_Handler
Rs.MoveNext
Loop
If Rs.State = adStateClosed Then Rs.Open
Exit Sub
rsError_Handler:
Msg = "Niobe System"
Estilo = vbCritical + vbOKOnly
Titulo = "Error Al Cargar En Tiempo de Ejecución"
MsgBox Msg, Estilo, Titulo
Err.Clear
End Sub
Esto lo repito con cada combo no se si se puede hacer solo una vez la conexion con la BD y hacer todas las consultas con la misma conexion o una sola consulta para todos los combos.
Valora esta pregunta
0