SQLCOMMAND.EXECUTENONQUERY

MFSYSTEMS 28/03/2012 13:47:25
#398537

Coloquei exatamente isso e dá o mesmo erro.


Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
Dim sconnectionstring As String
Dim txtsql As String


sconnectionstring = [Ô]Data Source=C:\SCCV\Cadastros; Version=3;New=True;Compress=True;[Ô]
SQLconnect.ConnectionString = sconnectionstring
[ô]abre a conexão
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand

End If


[ô] Fim da verificação

SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
MsgBox([Ô]Registro Excluído com sucesso.[Ô])


End Sub

[ô]Verfica se campo foi Excluido

If TxtModeloPadrao.Enabled = True Then

txtsql = [Ô]Delete From CadastroPadrao Where txtCodPadrao = [ô][Ô] & TxtCodPadrao.Text & [Ô][ô][Ô]
SQLcommand.CommandText = txtsql
SQLcommand.ExecuteNonQuery()

KERPLUNK 28/03/2012 14:00:17
#398543

Depure o código e veja onde está dando o erro, assim ta ficando difícil...

MFSYSTEMS 28/03/2012 14:03:21
#398545

Não citei pq o erro se passa no mesmo local anterior, ele passa por todo o comando e para em:

SQLcommand.ExecuteNonQuery()
E dá o msm erro cidado no inicio do post.
Valor não pode ser nulo. Nome parametro: s

KERPLUNK 28/03/2012 14:06:09
#398546 Resposta escolhida

Mas em qual delas? Você está executando o comando em dois locais... em qual deles está apresentando o erro.

MFSYSTEMS 28/03/2012 14:29:42
#398554

Amigo muito obrigado deu certo fiz isso que segue abaixo e funcionou.
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
Dim sconnectionstring As String
Dim txtsql As String


sconnectionstring = [Ô]Data Source=C:\SCCV\Cadastros; Version=3;New=True;Compress=True;[Ô]
SQLconnect.ConnectionString = sconnectionstring
[ô]abre a conexão
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand

[ô]Verfica se campo foi Excluido



txtsql = [Ô]Delete From CadastroPadrao Where txtCodPadrao = [ô][Ô] & TxtCodPadrao.Text & [Ô][ô][Ô]
SQLcommand.CommandText = txtsql

SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
MsgBox([Ô]Registro Excluído com sucesso.[Ô])
Me.Close()
frmadministrador.Show()

KERPLUNK 28/03/2012 14:32:11
#398557

Ótimo! Não esqueça de fechar o tópico