SCUSATEMI....MA HO DAVVERO BISOGNO DI UNA MANO

[victor8872]

Ciao a tutti,
vi chiedo scusa se sono ripetitivo, ma necessito d'una mano dai più bravi in quanto è da ieri che mi sto scervellando.

dim parola_da_ricercare as string="va"

	dim objcmdr as new oledbcommand ("select * from messaggio where risposta like '%"& parola_da_ricercare &"%' ", objconn)

	dim readr as oledbdatareader
	
	objconn.open
	readr=objcmdr.executereader
	
	dim a as integer
	while readr.read
	'per stampare un campo numerico devo mettere getint32
	a=(readr.getint32(4))'qui prendo i valori da un campo numerico
	
	end while
	readr.close

	objcmdr.connection.close()
	

'adesso vorrei selezionare tutti i record con gli id uguali ai valori
'selezionati prima e dati alla variabile a
'ma a questo punto la variabile a contiene solo l'ultimo
'io li vorrei tutti

	dim objcmd as new oledbdataadapter ("select * from messaggio where id = "& a &" ", objconn)
	
	dim ds as dataset=new dataset()
	objcmd.fill (ds,"messaggio")
		
	datagrid1.datasource=ds.tables("messaggio").defaultview
	datagrid1.databind

IL PROBLEMA è che quando gli dico

 
dim objcmd as new oledbdataadapter ("select * from messaggio where id = "& a &" ", objconn)

lui mi seleziona solo l'ultimo elemento della variabile a


Grazie a tutti per l'aiuto e la disponinilità

[Raffa62]

è ovvio che la var a ti contenga solo l'ultimo record, in quanto tu con quel cliclo le riassegni continuamente il valore. Per avere tutti i risutati potresti ad esempio concatenarli in una stringa, separandoli con una virgola (o quel che vuoi tu) e poi splittando la stringa li separi, del tipo

dim a as string
	while readr.read
	a += readr.getint32(4) &","
	end while

oppure usando un'array

[victor8872]

poi, visto che è da ieri che ci provo, mi faresti vedere come faresti tu nel codice che ti ho postato...

la cosa che a me interessa è che qui

dim objcmd as new oledbdataadapter ("select * from messaggio where id = "& a &" ", objconn)


vengano selezionati tutti i valori estratti qui
a=(readr.getint32(4))

grazie mille

[Kalman]

Dato che della mia risposta dell'altro thtread non ti fidavi adesso mi sono fatto anche l'esempio:

Private Sub test()
        Dim cnn As New SqlConnection("Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=localhost")
        Dim cmd As New SqlCommand("SELECT * FROM Products", cnn)
        Dim r As SqlDataReader
        cnn.Open()
        r = cmd.ExecuteReader()
        Dim s As String
        Do While (r.Read())
            s = s & "," & r.GetInt32(0).ToString()
        Loop
        cnn.Close()
        Response.Write(s.Substring(1, s.Length - 1))

'e poi sarà
'dim objcmd as new oledbdataadapter ("select * from messaggio where id = "& s &" ", objconn)


End Sub

Ciao
k

[victor8872]

scusami ma non è vero che non mi sono fidato di te. E' che
dopo decine di tentativi, anche e soprattutto grazie al tuo aiuto di ieri, non ho comunque risolto niente.

Adesso ho riadattato il tuo codice....sembrerebbe che qualcosa sembra funzionare.
Ecco come ho riadattato il tuo codice
però mi da questo errore
Errore di sintassi (operatore mancante) nell'espressione della query 'id = ,628,629,631'.

Ti posto il codice e naturalmente grazie mille...spero di farcela oggi

dim parola_da_ricercare as string="va"

	Dim cmd As New oledbcommand("SELECT * FROM messaggio where risposta like '%"& parola_da_ricercare  &"%' ", objconn)

	
Dim r As oledbdatareader
        objconn.Open()
        r = cmd.ExecuteReader()
        Dim s As String
        Do While (r.Read())
            s = s & "," & r.GetInt32(0).ToString()
        Loop
        objconn.Close()
        Response.Write(s.Substring(1, s.Length - 1))


	
	dim objcmd as new oledbdataadapter ("select * from messaggio where id = "& s &" ", objconn)
	
	dim ds as dataset=new dataset()
	objcmd.fill (ds,"messaggio")
		
	datagrid1.datasource=ds.tables("messaggio").defaultview
	datagrid1.databind

[sms]

victor io ti darei volentieri una mano però
1. iei ti avevo già proposto la mia tesi sul fatto ke è un errore nell'sql .. secondo me è formalmente scorretta la sintassi ke usi..
ESEMPIO SUL DB NORTHWIND:
SELECT * FROM Northwind.dbo.Categories WHERE categoryID = 1 OR categoryID = 2
questa è secondo me la sintassi corretta..
2. BBAAASSSTTTAAA aprire 800 messaggi sullo stesso motivo!

[victor8872]

ciao sms,
nonostante io abbia molto da imparare da te, non comprendo come mai dici che quello che io propongo è formalmente scorretto.
Sto solo chiedendo di selezionare dei record prendendo come riferimento degli id diversi.

 
dim objcmd as new oledbdataadapter ("select * from messaggio where id = "& s &" ", objconn)

Che provengono da questa selezione

Dim cmd As New oledbcommand("SELECT * FROM messaggio where risposta like '%"& parola_da_ricercare  &"%' ", objconn)

	
Dim r As oledbdatareader
        objconn.Open()
        r = cmd.ExecuteReader()
        Dim s As String
        Do While (r.Read())
            s = s & "," & r.GetInt32(0).ToString()
        Loop
        objconn.Close()

In fondo, grazie all'aiuto di Kalman, penso di esserci quasi vicino
se non fosse per questo errore

Errore di sintassi (operatore mancante) nell'espressione della query 'id = ,627,627,630'.

Comunque grazie lo stesso

[Kalman]

Devi togliere la prima virgola e poi in sql mettere IN con le ()!
s = s.Substring(1, s.Length - 1))
dim objcmd as new oledbdataadapter ("select * from messaggio where id in("& s &")", objconn)


Ciao
K

[sms]

tu non comprendi xkè non vuoi comprendere
prova a fare come ti dico io...

Dim r As oledbdatareader
        objconn.Open()
        r = cmd.ExecuteReader()
        Dim s As String
        Do While (r.Read())
            s += "OR [ID]= " & r.GetInt32(0).ToString()
        Loop
        objconn.Close()
	dim objcmd as new oledbdataadapter ("select * from messaggio where "& s, objconn)

oppure, molto meglio, puoi utilizzare
WHERE ID IN (3,4,5,6,7,8,9)..
e per cui puoi utilizzare il tuo codice..

Dim cmd As New oledbcommand("SELECT * FROM messaggio where risposta like '%"& parola_da_ricercare  &"%' ", objconn)

	
Dim r As oledbdatareader
        objconn.Open()
        r = cmd.ExecuteReader()
        Dim s As String
        Do While (r.Read())
            s += "," & r.GetInt32(0).ToString()
        Loop
        objconn.Close()
dim objcmd as new oledbdataadapter ("select * from messaggio where [ID] IN ("& s &")", objconn)

[victor8872]

con questo

dim parola_da_ricercare as string="va"

	Dim cmd As New oledbcommand("SELECT * FROM messaggio where risposta like '%"& parola_da_ricercare  &"%' ", objconn)

	
Dim r As oledbdatareader
        objconn.Open()
        r = cmd.ExecuteReader()
        Dim s As String
        Do While (r.Read())
           ' s = s & "," & r.GetInt32(4).ToString()
			 s += "," & r.GetInt32(4).ToString()
 
        Loop
        objconn.Close()
        'Response.Write(s.Substring(1, s.Length - 1))
Response.Write(s)
	
	dim objcmd as new oledbdataadapter ("select * from messaggio where [ID] IN ("& s &")",  objconn)
	
	dim ds as dataset=new dataset()
	objcmd.fill (ds,"messaggio")
		
	datagrid1.datasource=ds.tables("messaggio").defaultview
	datagrid1.databind

viene fuori questo errore

Errore di sintassi (operatore mancante) nell'espressione della query '[ID] IN (,627,627,630)'.

col codice di Kalman mi sa che ci siamo proprio

dim parola_da_ricercare as string="va"

	Dim cmd As New oledbcommand("SELECT * FROM messaggio where risposta like '%"& parola_da_ricercare  &"%' ", objconn)

	
Dim r As oledbdatareader
        objconn.Open()
        r = cmd.ExecuteReader()
        Dim s As String
        Do While (r.Read())
            s = s & "," & r.GetInt32(4).ToString()
			s = s.Substring(1, s.Length - 1)
        Loop
        objconn.Close()
        Response.Write(s.Substring(1, s.Length - 1))


	
	dim objcmd as new oledbdataadapter ("select * from messaggio where id in ("& s &") ", objconn)
	
	dim ds as dataset=new dataset()
	objcmd.fill (ds,"messaggio")
		
	datagrid1.datasource=ds.tables("messaggio").defaultview
	datagrid1.databind

Grazie a tutti
adesso provo