[VB.NET] Incrementare ID su SQL Server Mobile

[x69asterix]

Ho un problema nel creare ed autoincrementare l'id della mia tabella così composta. premetto che senza il campo id l' inserimento avviene senza problemi, ma con l'inserimento dell'id non capisco come dovrebbe autoincrementare?

  Dim dat As String = ComboBox3.Text + "/" + ComboBox4.Text + "/" + ComboBox2.Text

        Try
            ExecSql("INSERT INTO Bancomat VALUES ('" & dat & "'," & TextBox1.Text & ",'" & Me.ComboBox1.Text & "','" & Me.TextBox2.Text & "')")

            Dim commandBuilder As SqlCeCommandBuilder
            dataAdapter = New SqlCeDataAdapter("SELECT * FROM Bancomat order by Data asc", cn)
            commandBuilder = New SqlCeCommandBuilder(dataAdapter)
            dataSet = New Data.DataSet
            dataAdapter.Fill(dataSet)
            Application.DoEvents()
            DataGrid1.DataSource = dataSet.Tables(0)
            cn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        DataGrid1.Refresh()

[xam85reBanned]

identity -> true
IdentityIncrement ->1

[x69asterix]

Originariamente inviato da xam85reBanned
identity -> true
IdentityIncrement ->1

ciao xam85reBanned
l' ho provato ma non ho l'effetto voluto, sarà perchè l'inserimento lo effettuo in questo modo:

ExecSql("INSERT INTO Bancomat VALUES ('" & dat & "'," & TextBox1.Text & ",'" & Me.ComboBox1.Text & "','" & Me.TextBox2.Text & "')")

dove
dat = data "campo datetime"
TextBox1.Text = Importo "campo money"
ComboBox1.Text = testo "campo nvarchar"
TextBox2.Text = testo "campo nvarchar"

in questo modo quando eseguo l' istruzione non mi inserisce nulla!

[xam85reBanned]

beh tu avevi detto che il problema era autoincrementare il campo.
prova con

 ExecSql("INSERT INTO Bancomat('data','importo','tipo','note') VALUES ('" & dat & "'," & TextBox1.Text & ",'" & Me.ComboBox1.Text & "','" & Me.TextBox2.Text & "')")

[x69asterix]

niente non và, non mi aggiunge nulla!

ExecSql("INSERT INTO Bancomat('Data','Importo','Tipo','Note') VALUES ('" & dat & "'," & TextBox1.Text & ",'" & Me.ComboBox1.Text & "','" & Me.TextBox2.Text & "')")

[oregon]

Controlla i dati che inserisci, soprattutto la data ... visualizzali in una msgbox prima di inserirli ...

[x69asterix]

ciao oregon
la data è inserita correttamente, tanto è vero che se cambio la tabella escludendo il campo id il record mi viene inserito regolarmente

[oregon]

Ma non hai nessun errore? Forse hai una gestione degli errori che te lo nasconde?

[x69asterix]

Originariamente inviato da oregon
Ma non hai nessun errore? Forse hai una gestione degli errori che te lo nasconde?

no non ho errore
il codice lo eseguo così:

 Try
            ExecSql("INSERT INTO Bancomat('Data','Importo','Tipo','Note') VALUES ('" & dat & "','" & TextBox1.Text & ",'" & Me.ComboBox1.Text & "','" & Me.TextBox2.Text & "')")
          
            Dim commandBuilder As SqlCeCommandBuilder
            dataAdapter = New SqlCeDataAdapter("SELECT * FROM Bancomat order by Data asc", cn)
            commandBuilder = New SqlCeCommandBuilder(dataAdapter)
            dataSet = New Data.DataSet
            dataAdapter.Fill(dataSet)
            Application.DoEvents()
            DataGrid1.DataSource = dataSet.Tables(0)
            cn.Close()
            DataGrid1.Refresh()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try