Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 contatenar variables en una select
 Foro Bloqueado  Tema Bloqueado


Autor Temas
juan olea
Starting Member


21 Posts
Mensajes - 25 Feb 2004 :  13:13:56  Ver Perfil  Enviar Email
No consigo concatener correctamente las variables con los datos elegidos en la select, ¿alguien me puede ayudar?, MUCHAS GRACIAS

********************
Option Compare Database

Dim formatook As String
Dim envi As Boolean
Dim valor As Integer

Dim piezaeok As Integer
Dim recuperaok As Integer
Dim todo As String
********************************
Private Sub ACEPTAR_Click()

Dim rst As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Set cnn = CurrentProject.Connection

Dim encontrado As String
Dim sql As String

If ENVIADO.Value = -1 Then
envi = True
valor = -1
PRUEBA.RowSource = envi
Else
envi = False
valor = 0
PRUEBA.RowSource = envi
End If

'sql = "SELECT nombre,formato,enviado,piezas,recupera from piezas where (piezas =& piezaok) And (recupera =&recuperaok) and (enviado=&valor)"
'sql = "SELECT nombre,formato,enviado,piezas,recupera from piezas where (enviado =& valor) And (piezas =&piezaok) and (recupera=&recuperaok)"

sql = "SELECT nombre,formato,enviado,piezas,recupera from piezas WHERE (FORMATO = 'A3H') AND (ENVIADO=-1)"

rst.Open sql, cnn, adOpenForwardOnly, adLockReadOnly

If rst.EOF Then
MsgBox "NO EXISTE PIEZA"
Else
Do Until rst.EOF
encontrado = encontrado & rst("nombre") & ";"
rst.MoveNext
Loop
End If

RPIEZAS.RowSource = encontrado

End Sub

buho_nero
Moderator

España
1316 Posts
Posted - 26 Feb 2004 :  11:55:57  Ver perfil  Enviar e-mail
sql = "SELECT nombre,formato,enviado,piezas,recupera from piezas where piezas ="& piezaok &" And recupera ="& recuperaok &" and enviado="& valor

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar