Visual basic 6.0-query

martedì 05 giugno 2007 - 18.15

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

tunzy Profilo | Newbie

1 messaggi | Data Invio: mar 5 giu 2007 - 18:15

salve a tutti...e da qualke giorno che mi sto sbattendo la testa sulla tastiera per vedere come fare a risolvere il mio problema...
ormai ono arrivato all'esaurimento...perchè cerco gli errori su vari form per trovare le soluzioni e ne correggo una me ne esce un altro di errore!!!!

spero che voi mi sappiate aiutare...
qui di seguito posto il codice che ho scritto fino ad ora e il codice sql che avrei dovuto produrre in visual.

codice fatto da me

Private Sub cmdcerca_Click()
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = App.Path & "/concessionaria.mdb"
cn.Open
Set rs = New ADODB.Recordset
MsgBox ("Adesso bisognerà inserire il nome e cognome dell'acquirente del quale si vuole ottenere la somma del prezzo degli optional che ha acquistato per l'automobile")
Mode = InputBox("Inserisci il nome dell'acquirente:")
casa = InputBox("Inserisci il cognome dell'Acquirente:")
rs.Source = "Select acquirenti.cognome, acquirente.nome, SUM(optional.prezzoptional) AS TotaleOptional from automobili, acquirente, optional, autoptional where automobili.codauto = autoptional.codauto and acquirente.codacqui = automobili.codacqui and optional.codoptional = autoptional.codoptional group by acquirenti.cognome, acquirente.nome"
rs.ActiveConnection = cn
rs.Open
If rs.EOF Then
MsgBox ("Acquirente inesistente")
Else
txttotopt.Text = rs.Fields("TotaleOptional")
End If
Set rs = New ADODB.Recordset
query = "select acquirenti.cognome, acquirente.nome, sum(optional.prezzoptinal) from automobili, acquirente, optional, autoptional"
rs.Open query, cn, 3, 3
End Sub

in pratica tramiete un command button cercherò da tastiera un acquirente con nome e cognome, e visualizzerò in una text box la somma degli optional acquistati dall'acquirente.

questa invece è l'SQL funzionante fatto in ACCESS da produrre in visual

SELECT acquirente.cognome, acquirente.nome, Sum(optional!prezzoptional) AS TotaleOptional
FROM optional INNER JOIN ((acquirente INNER JOIN automobili ON acquirente.codacqui = automobili.codacqui) INNER JOIN autoptional ON automobili.codauto = autoptional.codauto) ON optional.codoptional = autoptional.codoptional
GROUP BY acquirente.cognome, acquirente.nome
HAVING (((acquirente.cognome)=[inserisci il cognome]) AND ((acquirente.nome)=[inserisci il nome]));

spero che possiate darmi una mano...davvero...
grazie mille!!!

alextyx Profilo | Expert

668 messaggi | Data Invio: mer 6 giu 2007 - 08:40

Guarda che questa sezione è quella dedicata a VB.Net, dove generalmente si usa ADO.Net, tra le altre cose, e che comunque è un altro linguaggio. Dovresti provare a postarla nella sezione giusta!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !