[VB.NET] Inserire record con istruzione SQL

[x69asterix]

stò sviluppando delle applicazioni per dei pocket aziendali,

con questo codice trovato in rete:
creo una tabella ed inserico un record

    Private Sub cmdCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreate.Click
        Dim create As String

        If (System.IO.File.Exists(db)) Then
            System.IO.File.Delete(db)
        End If

        Try
            Dim eng As SqlCeEngine
            eng = New SqlCeEngine("Data Source=" + db)
            eng.CreateDatabase()

            create = "CREATE TABLE UgiUser(Firstname nvarchar(10) PRIMARY KEY not null,Surname nvarchar(20) not null,Age int not null)"
            ExecSql(create)
            ExecSql("INSERT INTO UgiUser VALUES ('Nome','Cognome',33)")
            
            MsgBox("Table UgiUser created.")

        Catch exc As SqlCeException
            MsgBox(exc.Message)
        End Try
    End Sub

adesso però ho la necessità di inserire dei record tramite 3 textBox, come posso modificare il codice sopra?
text1
text2
text3
ExecSql("INSERT INTO UgiUser VALUES ('Nome','Cognome',33)")

[oregon]

Semplicemente crea una stringa a partire dalle parti costanti e dal contenuto di ogni textbox come se fossero delle variabili ...

[x69asterix]

ciao oregon,
ho provato così ma sicuramente sbaglio:
il pocket mi segnala errore: SqlCeException

ExecSql("INSERT INTO UgiUser VALUES ('" & txtName.Text & "','" & Me.txtSurname.Text & "','" & Me.txtAge.Text & "')")

[oregon]

L'ultimo valore e' numerico ... quindi non ci vanno i singoli apici (')

[x69asterix]

SqlCeException
Application:Run+0xf
Form1:Main+=xd

Ma così è corretto? cioè, crea la tabella è inserisce?

    Private Sub cmdCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreate.Click
        Dim create As String

        If (System.IO.File.Exists(db)) Then
            System.IO.File.Delete(db)
        End If

        Try
            Dim eng As SqlCeEngine
            eng = New SqlCeEngine("Data Source=" + db)
            eng.CreateDatabase()

            create = "CREATE TABLE UgiUser(Firstname nvarchar(10) PRIMARY KEY not null,Surname nvarchar(20) not null,Age int not null)"
            ExecSql(create)
            ExecSql("INSERT INTO UgiUser VALUES ('" & Me.txtName.Text & "','" & Me.txtSurname.Text & "','" & Me.txtAge.Text & "')")
            
            MsgBox("Table UgiUser created.")

        Catch exc As SqlCeException
            MsgBox(exc.Message)
        End Try
    End Sub

[oregon]

Devi togliere gli apici dall'ultimo parametro della INSERT perche' e' numerico ...

[x69asterix]

ExecSql("INSERT INTO UgiUser VALUES ('" & Me.txtName.Text & "','" & Me.txtSurname.Text & "', Me.txtAge.Text)")

se così mi genera sempre lo stesso errore

[oregon]

Non hai scritto correttamente la stringa ...

ExecSql("INSERT INTO UgiUser VALUES ('" & Me.txtName.Text & "','" & Me.txtSurname.Text & "'," & Me.txtAge.Text & ")")

[x69asterix]

ok!
risolto,
però così io creo la tabella è aggiungo un solo record, quello voglio è aggiungere i record nella tabella, come procedo?

[oregon]

Come procedi?

Utilizzi la riga della INSERT quando ti serve per inserire ogni gruppo di dati quando lo richiede il tuo programma ...

Hai fatto un'analisi del programma?

Di come dovranno essere le schermate?

I dati in input?

Il database?

Scusa se te lo domando ... ma tu programmi normalmente?