INSTRUCAO UPDATE NAO FUNCIONA

FERRAZ 13/08/2010 20:29:17
#350224
Amigos boa noite, estou com dificuldade de entender onde estou errando nessa instrucao update:

With cmd

Set Conexão = New ADODB.Connection
Conexão.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\SysRestWave\Sistema\MovRest\MovRest.mdb;Jet OLEDB:Database Password=BbVbPassword;[Ô]
Dim SQL As String
SQL = [Ô]SELECT * FROM Pedidos[Ô]
Set rs = Conexão.Execute(SQL)

.ActiveConnection = Conexão
.CommandType = adCmdText
.CommandText = [Ô] Update Pedidos Set[Ô] & _
[Ô]CodRegistro = [ô][Ô] & TxtCodReg.Text & [Ô][ô],[Ô] & _
[Ô]Msa = [ô][Ô] & TxtMsa.Text & [Ô][ô], [Ô] & _
[Ô]ProdMsa = [ô][Ô] & CampoList & [Ô][ô], [Ô] & _
[Ô]ValorMsa = [ô][Ô] & TxtTlMsa.Text & [Ô][ô], [Ô] & _
[Ô]DescMsa = [ô][Ô] & TxtDescto.Text & [Ô][ô], [Ô] & _
[Ô]APagar = [ô][Ô] & TxtPgmto.Text & [Ô][ô], [Ô] & _
[Ô]ValorPago = [ô][Ô] & TxtVlPg.Text & [Ô][ô], [Ô] & _
[Ô]Troco = [ô][Ô] & TxtTrco.Text & [Ô][ô], [Ô] & _
[Ô]where CodRegistro = [ô][Ô] & TxtCodReg.Text & [Ô]; [Ô]
.Execute (SQL)
End With

O que esta errado, a SQL me pegou nessa, outra vez.
MARCELOFAZAN 13/08/2010 21:25:44
#350235 Resposta escolhida

Dim SQL As String
Dim rs As New ADODB.Recordset

SQL = [Ô]UPDATE Pedidos SET[Ô]
SQL = SQL & [Ô] Msa =[ô][Ô] & TxtMsa.Text & [Ô][ô],[Ô]
SQL = SQL & [Ô] ProdMsa =[ô][Ô] & CampoList & [Ô][ô], [Ô]
SQL = SQL & [Ô] ValorMsa =[ô][Ô] & TxtTlMsa.Text & [Ô][ô], [Ô]
SQL = SQL & [Ô] DescMsa =[ô][Ô] & TxtDescto.Text & [Ô][ô], [Ô]
SQL = SQL & [Ô] APagar =[ô][Ô] & TxtPgmto.Text & [Ô][ô], [Ô]
SQL = SQL & [Ô] ValorPago =[ô][Ô] & TxtVlPg.Text & [Ô][ô], [Ô]
SQL = SQL & [Ô] Troco =[ô][Ô] & TxtTrco.Text & [Ô][ô][Ô]
SQL = SQL & [Ô] WHERE CodRegistro = [Ô] & TxtCodReg.Text

Conexão.Execute SQL
FERRAZ 13/08/2010 21:50:08
#350238
MARCELOFAZAN, ficou certinho valeu fico muito grato.

Valeu VbMania.
Tópico encerrado , respostas não são mais permitidas
Voltar