[vb6] * abbinato alla like

[krico]

la seguente funziona se riporto in valore la stringa esatta

rs.Open "select * from " & tabella & " where " & parametro & " LIKE '" & valore & "'", cn, adOpenDynamic, adLockBatchOptimistic, adCmdUnknown

non so come posizionare gli * per poter scrivere solo una parte della stringa.

es voglio individuare i "data center" i "softdata" semplicemente
assegnando a valore "data".

ps: ho provato like'*" & valore & "*'" ma non funziona

[Grunt]

Per poter trovare un sottostringa in un DBMS con sql puoi usare l'operatore '%'. Al posto di * usa %

[krico]

ok ora funziona.

dato che sei pratico della materia mi daresti anche un consiglio con le date?

ho creato la seguente sub:
Public Sub apri_rs_1parDATA(ByVal tabella As String, ByVal parametro As String, ByVal valore As Date)
apriconnessione
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from " & tabella & " where " & parametro & "=#" & valore & "#", cn, adOpenDynamic, adLockBatchOptimistic, adCmdUnknown
If Err Then
MsgBox "Unable to open the recordset." & vbCr & Err.Description, vbCritical
Exit Sub
End If
End Sub

che richiamo con:

Private Sub cmdrpdata_Click()
Dim data As Date
data = CDate(InputBox("inserisci la data per la ricerca", "PROTOMAGIC - ricerca per data"))
objposta.rs.Close
objposta.apri_rs_1parDATA "protocolli", "data", data
Set Adodc1.Recordset = objposta.rs
DataGrid1.Refresh
End Sub

ma non mi restituisce niente. E' un prob di #?

[Grunt]

Hai provato a fare un debug? Magari la data non la passa correttamente... così a vista non so dirti se è tutto ok! E non posso nemmeno provarlo...... non avendo il tuo codice.