|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Insert com Command
|
 |
|
|
|
Postada em 14/7/2003 por ®ogerVB
Cn.BeginTrans
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = DE.Cn
cmd.CommandType = adCmdText
cmd.CommandText = "insert into Tabela codigo,descricao values(?,?)"
cmd.Parameters(0) = TxtCodigo
cmd.Parameters(1) = TxtDescricao
cmd.Execute
Cn.CommitTrans
Set cmd = Nothing
|
|
|
|
|
