[Visual Basic 2008] Combobox & database...

[ale09hh]

Ciao a tutti...

Sto cercando di creare un assemblatore virtuale di pc (tipo quello che c'è sul sito di gigapc, per intenderci..) in visual basic...

Ora ho creato un form in cui l'utente può scegliere un processore tra quelli presenti sul database... E ho inserito un combobox in cui dovrebbe uscire la lista dei processori (anche dopo delle query sql..)..

MA qui sorge il problema.... Come farlo?? Che codice devo mettere per aggiungere gli item???

Il mio codice --->

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        PictureBox1.ImageLocation = "C:\Documents and Settings\Ale\Documenti\ALE\PC\PROGRAMMAZIONE\pc assembler\PC ASSEMBLER\PC ASSEMBLER\images\intel.jpg"

        ComboBox1.Items.Add(Me.ProcessoriTableAdapter.querymarcaprocintel(Me.ComponentiDataSet.processori))

    End Sub

---> NON FUNZIONA

Radiobutton1 è un radiobutton con cui l'utente sceglie di vedere solo processori intel.

querymarcaprocintel è una query che restituisce i nomi dei modelli di processori di marca intel...

VI PREGO HELP ME

grazie..

[MarcoGG]

Originariamente inviato da ale09hh

querymarcaprocintel è una query che restituisce i nomi dei modelli di processori di marca intel...

ComboBox1.Items.Add() è il metodo giusto. Il problema sta evidentemente in tutto quello che segue.

Esattamente cosa dovrebbe restituire ( intendo, il tipo di dato... ) quella roba che dai in pasto al ComboBox1.Items.Add ?

[ale09hh]

Una stringa... una combinazione di numeri e lettere....

ALTRE INFO:

nome database: componenti
nome tabella: processori

query sql:
SELECT modello
FROM processori
WHERE marca= N'intel' ------> questa sono sicurissimo ke funge

[MarcoGG]

Originariamente inviato da ale09hh

Una stringa... una combinazione di numeri e lettere....

Avesse restituito un array di stringhe l'avrei capito ( con la Combo caricavi l'array in un colpo solo... )
Se restituisce una stringa allora in quella Combo avrai sempre e solo un elemento.
Non entro nel merito del tuo progetto, perchè non potendolo vedere sarebbe cmq inutile, ma non era (molto) più semplice via codice con un semplice DataReader ?

[||ElChE||88]

Se restituisce un array usa ComboBox1.Items.AddRange.

[ale09hh]

Originariamente inviato da MarcoGG

Avesse restituito un array di stringhe l'avrei capito ( con la Combo caricavi l'array in un colpo solo... )
Se restituisce una stringa allora in quella Combo avrai sempre e solo un elemento.
Non entro nel merito del tuo progetto, perchè non potendolo vedere sarebbe cmq inutile, ma non era (molto) più semplice via codice con un semplice DataReader ?

Eh??? cos'è un datareader?? Scusa ma non sono molto ferrato

[ale09hh]

Originariamente inviato da ||ElChE||88

Se restituisce un array usa ComboBox1.Items.AddRange.

Usando questo mi da errore "Impossibile convertirer il valore di tipo 'Integer' a 'Matrice in 1 dimensioni di Object'" <---- ???

EDIT:

ho provato anche così:

Dim arr
arr = New ArrayList(Me.ProcessoriTableAdapter.querymarcaprocintel(Me.ComponentiDataSet.processori))
ComboBox1.Items.AddRange(arr)

ma mi da 3 righe di errore "risoluzione dell'overload non riuscito perchè nessun 'new' accessibile può essere chiamato senza una conversione verso un tipo di dati più piccolo [......]"

[MarcoGG]

Per forza. Se avevi detto che ritorna una stringa, non puoi usare .AddRange .

Il concetto del DataReader ( esempio su DB Access ) è il seguente :

        Dim CN As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & percorsoDB & nomeDB & ";Persist Security Info=False")
        Dim strSql As String = "SELECT * FROM Tabella WHERE condizioni..."
        Dim CMD As New OleDb.OleDbCommand(strSql, CN)
        CN.Open()
        Dim RDR As OleDb.OleDbDataReader = CMD.ExecuteReader()
        While (RDR.Read())
	ComboBox1.Items.Add(RDR("nomeCampo")) 
        End While
        RDR.Close()
        CN.Close()

10 righe di codice e nessun utilizzo di componenti definiti a design.
E il gioco è fatto.

Chiaramente se hai N Combo, puoi parametrizzarla ( ne fai una Function che riceve in ingresso la SELECT e ti ritorna un DataReader... ).

[ale09hh]

Grazie Marcogg... Ma non funziona... non riesce ad aprire il database... mi dice che non lo trova , ma ho controllato 100 volte il percorso ed è giusto...


Ora succede una cosa strana..

Con questo codice -->

ComboBox3.Items.Add(Me.ProcessoriTableAdapter1.Fill(Me.ComponentiDataSet1.processori))

Mi inserisce il numero di righe presenti nel database!! Boh

la query che ho usato è Fill--> SELECT modello FROM processori...

Ho inserito due modelli per cui nel combobox mi inserisce semplicemente "2"...

[MarcoGG]

Originariamente inviato da ale09hh

Grazie Marcogg... Ma non funziona... non riesce ad aprire il database... mi dice che non lo trova , ma ho controllato 100 volte il percorso ed è giusto...

percorsoDB deve essere il percorso completo e deve finire con la back-slash "\". Es.: "C:\cartellaDB\"
nomeDB deve essere il nome secco, senza percorso, ossia ad es.: "nomeDB.mdb".
E vedrai che funziona .

Originariamente inviato da ale09hh

Ora succede una cosa strana..

Con questo codice -->

ComboBox3.Items.Add(Me.ProcessoriTableAdapter1.Fill(Me.ComponentiDataSet1.processori))

Mi inserisce il numero di righe presenti nel database!! Boh

la query che ho usato è Fill--> SELECT modello FROM processori...

Ho inserito due modelli per cui nel combobox mi inserisce semplicemente "2"...

Ecco, io quel sistema lì lo butterei proprio...

[ale09hh]

Ma se il database è in formato .sdf (quello creato direttamente con visual basic) cambia qualcosa?

[MarcoGG]

Originariamente inviato da ale09hh

Ma se il database è in formato .sdf (quello creato direttamente con visual basic) cambia qualcosa?

Eh, direi di sì. Potevi dirlo prima che usi .sdf .
Cmq, l'esempio per Access è molto simile anche nel caso del Db .sdf.

Per la stringa di connessione ti rimando qui :
http://www.connectionstrings.com/sql-server-2005-ce

Per il resto prova prima con gli oggetti OleDb ( ho il sospetto che possa funzionare lo stesso ), poi con Sql ( SqlConnection, SqlCommand ecc... ) o SqlCe ...
La struttura del codice e l'utilizzo del DataReader non cambiano in ogni caso.

[ale09hh]

Mi sa che non funziona perchè mi dice "Formato di database [...]\componenti.sdf' non riconosciuto.".....

[MarcoGG]

Originariamente inviato da ale09hh

Mi sa che non funziona perchè mi dice "Formato di database [...]\componenti.sdf' non riconosciuto.".....

Usa le classi Sql.

[ale09hh]

Ho provato con questo codice:

Dim conn As New SqlClient.SqlConnection("Data Source = componenti.sdf; Persist Security Info=False;")
        Dim sqlQ As String = "SELECT modello FROM processori"
        Dim command As New SqlClient.SqlCommand(sqlQ, conn)
        conn.Open()
        Dim reader As SqlClient.SqlDataReader = command.ExecuteReader()
        While (reader.Read())
            ComboBox3.Items.Add(reader("modello"))
        End While
        reader.Close()
        conn.Close()

Non mi da errori ma il debug si blocca e non fa niente..

Cmq grazie 6 gentilissimo a rispondermi

[MarcoGG]

Prova con gli oggetti dello SpaceName System.Data.SqlServerCe.
Se dovesse fallire anche lì, mi sa che il tuo DB ha qualche problema...

[ale09hh]

Graziee funzionaaa!!!!

[MarcoGG]

Originariamente inviato da ale09hh

Graziee funzionaaa!!!!

[ale09hh]

Ho notato una cosa: se definisco sqlQ direttamente come una stringa (esempio "SELECT modello FROM processori" il codice funziona perfettamente...

Se però inserisco una variabie mi da errore "l'identificatore non può essere una stringa vuota" esempio:

sqlQ = "SELECT modello FROM processori WHERE frequenza >=" & textbox1.text & " AND frequenza <=" & textbox2.text & """"

WHY??

PS: le quattro virgolette alla fine vengono lette come una sola....

[MarcoGG]

Il problema sono proprio quelle quattro doppie virgolette, alla fine.
& """"
A che servono ? Eliminale.
Ti ritrovi una doppia virgola alla fine della SELECT. Ovvio che non la interpreta correttamente.