Cadastro?

[nivaldo_js]

Caros

Estou desernvolvendo uma aplicação para pocket pc, estou usando o SqlCe

mas estou tendo dificuldade para efetuar um cadastro e não consigo identificar o erro ! poderiam me ajudar ?

codigo abaixo :

Dim sinsertSQL As String = "insert into lanc(idinsp) values (@idinsp)"

Conn = New SqlCeConnection("Data source=" & dbpath)

Dim cmd As New SqlCeCommand(sinsertSQL, Conn)

Try

Conn.Open()

cmd.Parameters.Add(New SqlCeParameter("@idinsp", txtinspetor.Text))

cmd.ExecuteNonQuery()

Conn.Close()

Catch ex As Exception

MessageBox.Show("cadastro não efetuado !! " & Chr(13) & "Erro " & ex.Message)

End Try

[Graymalkin]

Se você tirar esse Try aparece alguma mensagem de erro?

Abraços,

Graymalkin

[nivaldo_js]

Caro

Mudei o codigo, e agora mostra o erro diz:

Private Sub btncad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncad.Click

Try

'Cursor.Current = Cursors.WaitCursor

Conn.Close()

Conn = New SqlCeConnection("Data source=" & dbpath)

Conn.Open()

Dim cmd As New SqlCeCommand

cmd.CommandText = ("insert into lanc (idinsp,temp) values ('123','1234')")

cmd.ExecuteNonQuery()

Catch ex As Exception

MessageBox.Show(ex.Message)

Conn.Close()

End Try

mensagem de erro abaixo:

ExecuteNonQuery: connection property has not been initialized

como assim a a propriedade da conexão não foi inicializada ?!!?

minha conexao abaixo !

Dim dbpath = "\My Documents\car.sdf"

Dim Conn As SqlCeConnection

o posso estar fazendo de errado ?

[nivaldo_js]

e fiz este tipo de importação (general/declarations)

Imports System.Data.SqlServerCe

braços!

[nivaldo_js]

Caros

Resolvido, caso alguém passe a ter alguma necessidade desta solução vai abaixo:

elemina esta linha

cmd.CommandText = ("insert into lanc (idinsp,temp) values ('123','1234')")

e altere esta linha Dim cmd As New SqlCeCommand

PARA

Dim cmd As New SqlCeCommand("insert into lanc (idinsp,temp) values ('123','1234')")

OK !!