UTILIZAR INSERT COM ADO

USUARIO.EXCLUIDOS 16/01/2005 06:59:52
#61163
Ja vi utilizarem duas vezes a clausula insert into talebal X (campo1,campo2,...) values('x', à½',...)
tem algum exemplo ai no site ou alguem pode enciar? é utilizado com ADO e vb6
MAICONCARDOSO 16/01/2005 08:37:17
#61166
Simples, se voce ja sabe utilizar Select, Delete .... é a mesma coisa:

INSERT INTO Clientes ( CódigoDoCliente, NomeEmpresa, CGC, Bairro )
SELECT Clientes.CódigoDoCliente, Clientes.NomeEmpresa, Clientes.CGC, Clientes.Bairro
FROM Clientes;


Espero ter ajudado,

Quando sua dúvida for sanada encerre o tópico...
USUARIO.EXCLUIDOS 16/01/2005 11:46:47
#61207
olha esse exemplo

Dim wtipogravacao As Boolean
Dim BD As New ADODB.Connection
Dim RSTABELACARRINHO As New ADODB.Recordset

Private Sub cmd_pesq_busca_Click()
If optcarrinho.Value = True Then
RSTABELACARRINHO.Find "car_id=" & txtpesquisa
If RSTABELACARRINHO.EOF Then
MsgBox "Não existe este carrinho"
Exit Sub
End If
End If
If optproduto.Value = True Then
RSTABELACARRINHO.Find "pro_id=" & txtpesquisa
If RSTABELACARRINHO.EOF Then
MsgBox "Não existe este produto no carrinho"
Exit Sub
End If
End If
carrega_tela_carrinho
End Sub

Private Sub cmd_pesq_cancelar_Click()
frapesquisa.Enabled = False
frmcarrinho.Height = 2685
txtpesquisa.Text = ""
bt_exibe
End Sub

Private Sub cmdcancela_Click()
inibe_tela
bt_exibe
carrega_tela_carrinho
End Sub

Private Sub cmdexclui_Click()
resultado = MsgBox("Tem certeza da exclusão?", vbYesNo)
If resultado = 6 Then
wsql = "delete carrinho where car_id=" & txtcar_id
Set RSTABELACARRINHO = BD.Execute(wsql)
MsgBox ("Dados Excluidos!")

Set RSTABELACARRINHO.ActiveConnection = BD
RSTABELACARRINHO.CursorLocation = adUseClient
RSTABELACARRINHO.CursorType = adOpenDynamic
RSTABELACARRINHO.LockType = adLockOptimistic
RSTABELACARRINHO.Open ("select * from carrinho")

Else
Exit Sub
End If
End Sub

Private Sub cmdgrava_Click()
If wtipogravacao = False Then
wsql = "insert carrinho values(" & txtcar_id & "," & txtpro_id & "," & txtpro_qtd & ")"
Else
wsql = "update carrinho set car_id=" & txtcar_id & ",pro_id=" & txtpro_id & ",pro_qtd=" & txtpro_qtd & " from carrinho where car_id=" & txtcar_id
End If

Set RSTABELACARRINHO = BD.Execute(wsql)

Set RSTABELACARRINHO.ActiveConnection = BD
RSTABELACARRINHO.CursorLocation = adUseClient
RSTABELACARRINHO.CursorType = adOpenDynamic
RSTABELACARRINHO.LockType = adLockOptimistic
RSTABELACARRINHO.Open ("select * from carrinho")

carrega_tela_carrinho
inibe_tela
bt_exibe

End Sub

Private Sub cmdprimeiro_Click()
RSTABELACARRINHO.MoveFirst
carrega_tela_carrinho
End Sub

Private Sub cmdsair_Click()
RSTABELACARRINHO.Close
BD.Close
Unload frmcarrinho
End Sub

Private Sub cmdultimo_Click()
RSTABELACARRINHO.MoveLast
carrega_tela_carrinho
End Sub

Private Sub Form_Load()
BD.ConnectionString = "driver={sql server};server=LECOCANE;uid=sa;pws=;database=bd_noturno_3a"
BD.Open
Set RSTABELACARRINHO.ActiveConnection = BD
RSTABELACARRINHO.CursorLocation = adUseClient
RSTABELACARRINHO.CursorType = adOpenDynamic
RSTABELACARRINHO.LockType = adLockOptimistic
RSTABELACARRINHO.Open ("select * from carrinho")
carrega_tela_carrinho
bt_exibe
inibe_tela
End Sub

Private Sub sair_Click()
RSTABELACARRINHO.Close
BD.Close
Unload Me
End Sub

Sub bt_edita()
cmdnovo.Enabled = False
cmdalterar.Enabled = False
cmdexclui.Enabled = False
cmdvolta.Enabled = False
cmdavanca.Enabled = False
cmdprimeiro.Enabled = False
cmdultimo.Enabled = False
cmdpesquisa.Enabled = False
cmdgrava.Enabled = True
cmdcancela.Enabled = True
End Sub

Sub bt_exibe()
cmdnovo.Enabled = True
cmdalterar.Enabled = True
cmdexclui.Enabled = True
cmdvolta.Enabled = True
cmdavanca.Enabled = True
cmdprimeiro.Enabled = True
cmdultimo.Enabled = True
cmdpesquisa.Enabled = True
cmdgrava.Enabled = False
cmdcancela.Enabled = False
End Sub

Sub inibe_tela()
txtcar_id.Enabled = False
txtpro_id.Enabled = False
txtpro_qtd.Enabled = False
End Sub

Sub libera_tela()
txtcar_id.Enabled = True
txtpro_id.Enabled = True
txtpro_qtd.Enabled = True
End Sub

Sub carrega_tela_carrinho()
txtcar_id = RSTABELACARRINHO.Fields("car_id")
txtpro_id = RSTABELACARRINHO.Fields("pro_id")
txtpro_qtd = RSTABELACARRINHO.Fields("pro_qtd")
End Sub

Sub limpa_tela()
txtcar_id = ""
txtpro_id = ""
txtpro_qtd = ""
End Sub

Private Sub cmdalterar_Click()
libera_tela
txtcar_id.SetFocus
bt_edita
wtipogravacao = True
txtcar_id.Enabled = False

End Sub

Private Sub cmdavanca_Click()
If Not RSTABELACARRINHO.EOF Then
RSTABELACARRINHO.MoveNext
If Not RSTABELACARRINHO.EOF Then
carrega_tela_carrinho
End If
End If
End Sub

Private Sub cmdcancelar_Click()
carrega_tela
inibe_tela
bt_exibe
End Sub

Private Sub cmdnovo_Click()
limpa_tela
libera_tela
txtcar_id.SetFocus
bt_edita
wtipogravacao = False
End Sub

Private Sub cmdpesquisa_Click()
cmdnovo.Enabled = False
cmdalterar.Enabled = False
cmdexclui.Enabled = False
cmdvolta.Enabled = False
cmdavanca.Enabled = False
cmdprimeiro.Enabled = False
cmdultimo.Enabled = False
cmdgrava.Enabled = False
cmdcancela.Enabled = False
cmdpesquisa.Enabled = False
frapesquisa.Enabled = True
frmcarrinho.Height = 3765
End Sub

Private Sub cmdvolta_Click()
If Not RSTABELACARRINHO.BOF Then
RSTABELACARRINHO.MovePrevious
If Not RSTABELACARRINHO.BOF Then
carrega_tela_carrinho
End If
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
RSTABELACARRINHO.Close
BD.Close
End Sub
USUARIO.EXCLUIDOS 16/01/2005 13:20:57
#61225
SQL é muito Simples
Amo SQL
Tópico encerrado , respostas não são mais permitidas
Voltar