como están a todos, tengo un código donde hago la búsqueda de datos de una DB de Informix, hasta ahora no he tenido problemas.
Hago la conexión mediante OleDb.
Private Sub btn_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscar.Click
Dim condi As String = ""
Dim sql As String
If Trim(Me.TextBox1.Text) <> "" Then
condi = " scmanpar like '%" & Trim(Me.TextBox1.Text) & "%'"
End If
If Trim(Me.txt_descrip.Text) <> "" Then
If condi = "" Then
condi = " scmadesc like '%" & Trim(Me.txt_descrip.Text) & "%'"
Else
condi = condi & " and scmadesc like '%" & Trim(Me.txt_descrip.Text) & "%'"
End If
End If
If Trim(condi) <> "" Then
sql = "select scmanart, scmanpar, scmadesc, scasnsuc, scasstto, scasstdi" & _
" from scmaster, scartsuc " & _
" where scmaofic = scasofic " & _
" and scmanart = scasnart " & _
" and " & condi & _
" order by scmanart "
End If
Dim con As Conexion
con = New Conexion
Dim scmas As New Cls_Scmaster
con.abrir()
scmas.cnn = con.cnn
Me.DataGrid1.DataSource = scmas.consulta(sql)
ConfigurarGrilla()
con.cerrar()
End Sub
no tengo error en código, ya que compilo, ejecuto, todo ok, mi consulta es, que error puedo tener este pedazo de código, ya que ahora, me arroja datos errados.
Por decir, cuando hago la búsqueda de un articulo por la Descripción, este busca la descripción, pero los otros datos como el numero de parte, numero del articulo, nada que ver con la descripción.
Alguien me puede orientar donde puede estar mi error. ??
