Visual Basic - filtrar recordset

Life is soft - evento anual de software empresarial
 
Vista:

filtrar recordset

Publicado por PercyP (1 intervención) el 11/03/2008 19:01:43
hola amigos tengo dos problemas vamos por el 1ro como ven en el campo mt2 tengo que filtrar el "x" y el cualquiera de los 4 mt2 o 5 mt2 y en el datagrid debe de salir todas las x y solo un de las escoja 4mt2 o 5 mt2, hasta aqui espero ser claro el 2do problema es que el id esta conectado a una tabla de datos de unos clientes y en datagrid debe incluirse sus nombres de los señores que pagan estos conceptos, osea extraere un campo de la tabla clientes y añadir a la datagrid aanexsado al id de la tabla aportacion, gracias de ante mano.

Private Sub Command1_Click()
Dim strSQL As String
Set rsCLIENTE = New Recordset
strSQL = "SELECT * FROM APORTACION Where mt2='" & Trim(Text1.Text) & "'and '" & Trim(Text2.Text) & "'"
rsCLIENTE.Open strSQL, DbConex, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rsCLIENTE
End Sub

Private Sub Form_Load()

Dim base As String 'variable para la ruta a la base
Dim dbpassword As String ' variable contraseña base
Set DbConex = New ADODB.Connection ' creamos una nueva conecion
base = "D:SistemaSisAdm.mdb" ' asignamos la ruta a la variable
dbpassword = "la password" ' asignamos la contraseña a la variable
DbConex.CursorLocation = adUseClient 'ponemos la conecion del lado del cliente
DbConex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & base & ";Persist Security Info=False;Jet OLEDB:Database Password=" & dbpassword
DbConex.Open ' abrimos la base
esta es la tabla de consulta pra tengan una idea


Aportacion
id nombre concepto precio moneda año mt2
Apo004 Administracion Pagan Todos 10 Soles 2007 x
Apo005 Letra Cuatro 25 Soles 2007 x
Apo006 Sasas Asasa 36 Dolares 2007 x
Apo007 Percy Sadsad 25 Soles 2007 x
Apo008 Opp Popop 6 Soles 2007 x
Apo009 Ppp Pp 25 Dolares 2007 x
Apo001 Mantenimiento 4 Metros 32 Soles 2007 4 m2
Apo002 Mantenimiento 5 Metros 40 Dolares 2007 5 m2
Apo003 Mantenimiento 9 Metros 50 Dolares 2007 9 m2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder