ayuda con sentencia sql

Iniciado por CARRY-ON, 4 Octubre 2007, 03:43 AM

0 Miembros y 1 Visitante están viendo este tema.

CARRY-ON

ola necesito saber como integrar una sentencia sql ah un control en visual

SELECT
FROM ESPECIE INNER JOIN ANIMALES ON ESPECIE.ESPECIE = ANIMALES.ESPECIE;
  algo asi

para que el combo que tengo muestre los datos de la tabla especie 

el problema es que lo llamo en un form en el cual ya tengo una conexccion a una tAbla que se llama animales

CeLaYa

no import si ya tienes una conexión puedes crear todas las conexiones que quieras


para lo del combo pues solo has un select
"SELECT * FROM Especies"

y luego llenas el combo

while not tu_variable_de_la_tabla.EOF
       combo1.AddItem tb!Especie
       tu_variable_de_la_tabla.Movenext
wend


"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.

CARRY-ON

PERO PARA ESO TENDRIA que HACER UAN SEGUNDA SELECCION PARA ABRIR LA SEGUNDA TABLA?

CeLaYa

asi es, porque mejor no pones algo del codigo que tienes para darnos una mejor idea.....
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.

CARRY-ON

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub cmdprimero_Click()
    rs.MoveFirst
End Sub

Private Sub cmdUltimo_Click()
    rs.MoveLast
End Sub

Private Sub cmdanterior_Click()
    rs.MovePrevious
    If rs.BOF Then
        rs.MoveFirst
        MsgBox "estamos en el primer registro"
    End If
End Sub
Private Sub cmdsiguente_Click()
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
        MsgBox "estamos en el ultimo registro"
    End If

End Sub




Private Sub fechanac_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
    modoeditar False
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = dax.mdb; "
    rs.ActiveConnection = cn
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open "select * from CAMBIO_UBICACION"
    Set Text1.DataSource = rs
    Text1.DataField = "ID_ANIMAL"
    Set Text3.DataSource = rs
    Text3.DataField = "POTRERO_ORIGEN"
   
    Set DTPicker1.DataSource = rs
    DTPicker1.DataField = "FECHA"
   
    Set Text4.DataSource = rs
    Text4.DataField = "POTRERO_DESTINO"
    Set Text5.DataSource = rs
    Text5.DataField = "COMENTARIO"
End Sub

Private Sub modoeditar(ByVal ok As Boolean)
    Text1.Locked = Not ok
    Text3.Locked = Not ok
    Text4.Locked = Not ok
    Text5.Locked = Not ok
    cmdnuevo.Enabled = Not ok
    cmdEditar.Enabled = Not ok
    cmdeliminar.Enabled = Not ok
    cmdGuardar.Enabled = ok
    If ok Then Text1.SetFocus
End Sub

Private Sub cmdnuevo_Click()

    rs.AddNew
    modoeditar True

End Sub

Private Sub cmdGuardar_Click()

    rs.Update
    modoeditar False

End Sub

Private Sub cmdEditar_Click()

    modoeditar True

End Sub

Private Sub cmdeliminar_Click()

    rs.Delete
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
    End If
End Sub