Título: ayuda con sentencia sql
Publicado por: CARRY-ON en 4 Octubre 2007, 03:43 am
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
Título: Re: ayuda con sentencia sql
Publicado por: CeLaYa en 4 Octubre 2007, 07:23 am
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
Título: Re: ayuda con sentencia sql
Publicado por: CARRY-ON en 4 Octubre 2007, 20:44 pm
PERO PARA ESO TENDRIA que HACER UAN SEGUNDA SELECCION PARA ABRIR LA SEGUNDA TABLA?
Título: Re: ayuda con sentencia sql
Publicado por: CeLaYa en 4 Octubre 2007, 22:28 pm
asi es, porque mejor no pones algo del codigo que tienes para darnos una mejor idea.....
Título: Re: ayuda con sentencia sql
Publicado por: CARRY-ON en 6 Octubre 2007, 19:31 pm
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
|