26/10/2006, 08:38
|
| | | Fecha de Ingreso: agosto-2006 Ubicación: en lima peru
Mensajes: 184
Antigüedad: 17 años, 8 meses Puntos: 0 | |
| tienes que buscarlo
Dim UnaComillaAntes As Byte
UnaComillaAntes = InStr(objeto1, "'")
If UnaComillaAntes = 0 Then
'buscar palabra sin comilla
cls = "select" & " " & campo1 & " " & "from" & " " & CStr(tabla) & " " & "where" & " " & CStr(campo2) & " " & "like" & " " & "'" & objeto1 & "%" & "'"
query = New SqlDataAdapter(cls, cn)
almacen2 = New DataSet
query.Fill(almacen2, Nombre_Para_El_DataSet)
If almacen2.Tables(Nombre_Para_El_DataSet).Rows.Count - 1 < 0 Then
Else
'buscar palabra con comilla
cls = "select" & " " & campo1 & " " & "from" & " " & CStr(tabla) & " " & "where" & " " & CStr(campo2) & " " & "like" & " " & "'" & Mid(objeto1, 1, UnaComillaAntes - 1) & "%" & "'" query = New SqlDataAdapter(cls, cn)
almacen2 = New DataSet
query.Fill(almacen2, Nombre_Para_El_DataSet)
End If |