Cita:
Iniciado por rahd_rr
holas....
aver seria algo asi ....
select * from funcionario f, cargo c, decreto d
where
----si lo buscas por funcionario o por cargo o por decreto, solo ocupa la sentencia(s) con la variable o las variable que utilices
pk_funcionario= varible_funcionario
and pk_cargo= variable_cargo
and pk_decreto=variable_decreto
-- las sigueitnes son importantes y obligatorias ya qeu con eso amarras las tablas
and d.rut_funcionario = f.pk_funcionario (suponiendo en rut_funcionario(ref a funcionario) guardas la pk de funcionario)
and d.car_n_cargo = c.pk_cargo (suponiendo en car_n_cargo(ref a cargo) guardas la pk de cargo )
espero que te sea de ayuda.... saludos
cuial quier cosa por aqui o por el mails
[email protected] [email protected] Primero que nada, gracias por el interés...
A continuacion te mando lo que tengo:
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB; " & _
"Initial Catalog=tesis; " & _
"Data Source=DESKTOP\SQLEXPRESS; " & _
"integrated security=SSPI; persist security info=True;"
cn.Open
--------------Esto es lo que tengo yo, pero me muestra todos los datos no los necesito todos, por ejemplo necesito el nombre del cargo y me muestra el codigo del cargo, si sirve como dato uso un adodc---------------------------------------------------------------
'Set rs = New ADODB.Recordset
'rs.CursorLocation = adUseClient
'sqlstring = "SELECT * FROM FUNCIONARIOS INNER JOIN DECRETOS ON FUNCIONARIOS.FUN_RUN=DECRETOS.FUN_FUN_RUN " & _
'" AND CAR_N_CARGO IN (SELECT N_CARGO FROM CARGOS) " & _
'"WHERE FUN_TYPE = '" & txtfuntipo.text & "' AND SEXO = '" & txtsexo.text & "' "
--------Lo que dices tu que haga es esto?--------------
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
sqlstring = "SELECT * FROM FUNCIONARIOS , CARGOS , DECRETOS " & _
"WHERE FUN_RUN= '" & txtrun.text & "' " & _
"AND DECRETOS.FUN_FUN_RUN=FUNCIONARIOS.FUN_RUN " & _
"AND DECRETOS.CAR_N_CARGO=CARGOS.N_CARGO"
rs.Open sqlstring, cn, adOpenStatic, adLockOptimistic
If rs.Supports(adBookmark) Then
If rs.RecordCount = 0 Then
MsgBox "No hay Resultados para su consulta", vbInformation, ""
Else
Set DataGrid1.DataSource = rs
End If
End If
Bueno, nuevamente gracias.