vb6 problema con ado o sql

[ciro78]

ho la seguente situazione

  comando.CommandText = "select * from classifica where  id = " & idx
    comando.Execute
    comando1.CommandText = QUERY
   * comando1.Execute

dove è presente l'asterisco mi dice errore

parametri insuffiucienti previsto 1....cosa vuole esattamente?

[b.lory]

:master: Scusa ma cosa tovresti ottenere....esattamente..:master:
stai parlando di un recordset o direttamente da una connenction string ???

[ciro78]

ehm penso la seconda

in pratica faccio cosi

Dim connessione As ADODB.Connection
Dim comando As ADODB.Command
Dim record As ADODB.Recordset
'
Set connessione = New ADODB.Connection
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= e:\db.mdb"
'
Set comando = New ADODB.Command
comando.ActiveConnection = connessione
comando.CommandType = adCmdText
Set comando1 = New ADODB.Command
comando1.ActiveConnection = connessione
comando1.CommandType = adCmdText

--

comando.CommandText = "select * from pippo where  id = " & idx
    comando.Execute
    comando1.CommandText = QUERY
    comando1.Execute

la query

update pippo set c1=c1+1, c2=c2+1 where id =" & idx

in pratica devo aggiornare i campi c1 e c2

ho letto e rieltto pensando di aver sbagliato i nomi ma non è così

[b.lory]

...
scusa ma x un update ti basta fare cosi !!!!

Dim SqlCan As String
SqlCan = "update fatture set Annullamento = false, pagato = false where id = " & vid
Cn.Execute SqlCan

cn è la connesione ado attiva
ciao

[ciro78]

aspe resta li sto schifoso manuale di sql mi dice che dovevo fare tutte altre cose

[ciro78]

mi da sempre lo stesso errore.....

[b.lory]

ok... ma postami il codice intero che stai dando in pasto.....
altrimenti non riesco a capire che correzione hai fatto e dove ???

[ciro78]

Public Sub agg(c As Form)

''------------------------------------------------------------------------------------
'                                        connessione database
'------------------------------------------------------------------------------------


Dim connessione As ADODB.Connection
Dim comando As ADODB.Command
Dim record As ADODB.Recordset
'
Set connessione = New ADODB.Connection
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= e:\db.mdb"
'
Set comando = New ADODB.Command
comando.ActiveConnection = connessione
comando.CommandType = adCmdText
Set comando1 = New ADODB.Command
comando1.ActiveConnection = connessione
comando1.CommandType = adCmdText



''------------------------------------------------------------------------------------
'                                      DICHIARAZIONI DELLE VARIABILI
'------------------------------------------------------------------------------------
 Dim id As Integer
 Dim cont As Integer
 cont = 0
 Dim x$
 Dim r1 As Integer, r2 As Integer
 
 
 '--------------------------------------------------------------------
 'impostazione dell id
 '--------------------------------------------------------------------
  Dim query  As String
  For cont = 0 To 19 Step 2
   x$ = c.Label1(cont).Caption
    Select Case x$
     Case "pluto"
     idx = 1
     c.Text2.Text = CStr(id)
    End Select
    r1 = CInt(c.Text1(cont).Text)
    r2 = CInt(c.Text1(cont + 1).Text)
    If r1 > r2 Then
    query = "update tabella set  c1 = c1+3, c2= c2+1, c3 = c3+1 where id  = " & idx
    End If
    connessione.Execute query
  Next cont
End Sub

[b.lory]

Se tè sei sicuro che la stringa query sia corretta...(prova ad aggiungere il comando msgbox query prima della riga .execute)
prova a remmare tutto quello che non ti serve commando...ecc..
e verifica che le connesioni siano uguali a queste...

Set cn = New ADODB.Connection       ' creo l'oggetto connessione e apro il database
With cn
.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " posizione_mdb ";Persist Security Info=False"
End With

dim query as string
query = "update tabella set  c1 = c1+3, c2= c2+1, c3 = c3+1 where id  = " & idx
cn.execute query

aggiungi i tuoi vari controlli prima del comando execute...
ma cosi deve funzionare !!!!
Io lo uso da sempre !!!!!

[ciro78]

With cn
.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " posizione_mdb ";Persist Security Info=False"
End With


la parte indicata sopra non mi è tanto chiara a cosa dovrebbe servirmi?

mi sorge un dubbio...ho messo solo tre campi nel query ma la tabella è composta da 19 campi non è che li devo aggiornare tutti