saludos, por ahora solo necesito cargar algunos campos de BD que tengo en el tab, pero encuentre la sentencia correcta,,,,,,por favor si me mandan un link o algo referente.
por ahora esto es lo que tengo:
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim SSTAb1 As ADODB.Recordset
' bd personal para datos personales
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BASE\PERSONAL_MRE_C.mdb;Persist Security Info=False"
cnn.Open
Set SSTAb1 = New ADODB.Recordset
SSTAb1.CursorLocation = adUseClient
rsttab = "Select NOMBRE_C,APELLIDO_PATERNO,APELLIDO_MATERNO,APELLID O_CASADA,CEDULA_EC,SEGURO_SOCIAL,SEXO,FECHA_NACIMI ENTO,FECHA_RETIRO,FECHA_INICIO_LABORES,C_PROVINCIA ,C_DISTRITO,C_CORREGIMIENTO FROM PERSONAL_MRE"
SSTAb1.Open rsttab, cnn, adOpenStatic, adLockOptimistic
' se enlaza el datasource con cada uno de los objetos
nombre_empl.DataSource = SSTAb1
cedula.DataSource = SSTAb1
ssocial.DataSource = SSTAb1
sex1.DataSource = SSTAb1
sex2.DataSource = SSTAb1
DTPicker_nacim.DataSource = SSTAb1
DTPicker_ingreso.DataSource = SSTAb1
DTPicker_retiro.DataSource = SSTAb1
lug_nacim.DataSource = SSTAb1
' Asignar los nombres de los campos de bd a los cuadros de texto
nombre_empl.DataField = "NOMBRE_CI" '"APELLIDO_PATERNO" "APELLIDO_MATERNO" "APELLIDO_CASADA"
cedula.DataField = "CEDULA_EC"
ssocial.DataField = "SEGURO_SOCIAL"
sex1.DataField = "SEXO"
sex2.DataField = "SEXO"
DTPicker_nacim.DataField = "FECHA_NACIMIENTO"
DTPicker_ingreso.DataSource = "FECHA_INICIO_LABORES"
DTPicker_retiro.DataField = "FECHA_RETIRO"
lug_nacim.DataField = "C_PROVINCIA" ',C_DISTRITO,C_CORREGIMIENTO"
End Sub
