[vb express 2008] far scrivere due comandi dentro la stessa riga di access

[frank095]

ho creato un ciclo dove all'interno vi sono due comandi INSERT. Uno inserisce un numero ripetuto preso da una textbox e l'altro inserisce un numero progressivo che viene preso da un'altra textbox. il problema che è all'esecuzione il programma fa scrivere i comandi una volta l'uno mentre io vorrei (che pur scrivendo in campi diversi) i dati delle due textbox fossero scritti nella stessa riga. ecco il codice scritto fino ad ora:

Imports ADOX
Imports System.Data.OleDb
Public Class Form1
    Dim archivio As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) + "/Database3.mdb")


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim contatore As Integer
        Dim Ripeti As Integer


        archivio.Open() 'Apri la connessione con il database
        contatore = 0
        Ripeti = TextBox1.Text
        Do
            Dim Codice_gioco As New OleDb.OleDbCommand("INSERT INTO ciao (Nome) VALUES ('" + Ripeti.ToString + "')", archivio)
            Dim com As New OleDb.OleDbCommand("INSERT INTO ciao (città) VALUES ('" + contatore.ToString + "')", archivio)

            Codice_gioco.ExecuteNonQuery()
            Ripeti = Ripeti
            com.ExecuteNonQuery() 'esegui comando SQL
            contatore = contatore + 1
        Loop While contatore <= TextBox3.Text
        Ripeti = contatore

        MsgBox("finito")
        archivio.Close() 'Chiudi la connessione con il database

[oregon]

Devi usare una sola INSERT, non due.

Studia la sintassi della INSERT

http://www.w3schools.com/sql/sql_insert.asp

e modifica il codice di conseguenza

[frank095]

si ma a me serve che vengano scritte due operazioni diverse sulla stessa riga e su due colonne separate..

[oregon]

Ho capito ... la INSERT è una sola sulle due colonne ... studiala (hai aperto il link?)

[frank095]

ho fatto così

Imports ADOX
Imports System.Data.OleDb
Public Class Form1
    Dim archivio As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) + "/Database3.mdb")


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim contatore As Integer
        Dim Ripeti As Integer


        archivio.Open() 'Apri la connessione con il database
        contatore = 0
        Ripeti = TextBox1.Text
        Do
            Dim Codice_gioco As New OleDb.OleDbCommand("INSERT INTO ciao (Nome, città) VALUES ('" + Ripeti.ToString + contatore.ToString + "')", archivio)
            Dim com As New OleDb.OleDbCommand

            Codice_gioco.ExecuteNonQuery()
            Ripeti = Ripeti
            com.ExecuteNonQuery() 'esegui comando SQL
            contatore = contatore + 1
        Loop While contatore <= TextBox3.Text
        Ripeti = contatore

        MsgBox("finito")
        archivio.Close() 'Chiudi la connessione con il database




    End Sub
End Class

ma di dice "Il numero dei valori nella query non corrisponde a quello dei campi di destinazione." dove sbaglio ?

[optime]

INSERT INTO nome_tabella (Colonna1, Colonna2, ..., ColonnaN) VALUES (Valore1, Valore2, ... ValoreN)

ovviamente
---> ValoreX se numerico
---> 'ValoreX' se alfanumerico

[frank095]

non ho scritto questo io ?

[optime]

no

tu hai scritto

"INSERT INTO ciao (Nome, città) VALUES ('" + Ripeti.ToString + contatore.ToString + "')

dovresti scrivere

"INSERT INTO ciao (Nome, città) VALUES ('" + Ripeti.ToString + "','" + contatore.ToString + "')"

i due campi erano concatenati e non distinti

[oregon]

A parte quello che ti ha giustamente detto optime, questa riga

Ripeti = Ripeti

che senso ha secondo te?

[frank095]

A parte quello che ti ha giustamente detto optime, questa riga

Ripeti = Ripeti

che senso ha secondo te?

quello di fare ripetere il codice.

comunque ci sono riuscito solo che a me serve che la serie di numeri segua questo percorso : (000,001,002....) ho provato a impostare il valore della variabile contatore a 000 e a farla incrementare di 001 ma vb me lo corregge riportando il tutto a 0 e a 1. in sostanza mi elimina automaticamente i due zeri che aggiungo io, considerandoli superfui..