ABERTURA DE DOIS RECORDSETS SIMULTANEOS
Para inserir registros em duas tabelas diferentes eu posso usar o mesmo recordset utilizando a variável RS ao invés de declarar uma outra variável para a mesma finalidade, por exemplo:
Private Sub Command1_Click(Index As Integer)
Dim Rs As ADODB.Recordset
On Error GoTo erro
Set Rs = New ADODB.Recordset
Select Case Index
Case 0 'Novo
Case 1 'Confirmar
Rs.Open "insert into tboperador(dsoperador) values ('" & Text1.Text & "')", strConexao
Rs.Open "insert into tbmaquinaum(dsmaquinaum) values ('" & text2.text & "'')", strConexao
Case 2 'Excluir
Case 3 'Cancelar
Case 4 'Editar
Case 5 'Sair
End Select
Exit Sub
erro:
MsgBox Err.Description
End Sub
Private Sub Command1_Click(Index As Integer)
Dim Rs As ADODB.Recordset
On Error GoTo erro
Set Rs = New ADODB.Recordset
Select Case Index
Case 0 'Novo
Case 1 'Confirmar
Rs.Open "insert into tboperador(dsoperador) values ('" & Text1.Text & "')", strConexao
Rs.Open "insert into tbmaquinaum(dsmaquinaum) values ('" & text2.text & "'')", strConexao
Case 2 'Excluir
Case 3 'Cancelar
Case 4 'Editar
Case 5 'Sair
End Select
Exit Sub
erro:
MsgBox Err.Description
End Sub
Com certeza se vc der um close, no intervalo de cada uma, à ± ha problemas, mas neste caso ai o que vai funfar é a ultima...
"funfar" essa eu não conhecia
valeu lancecom
Tópico encerrado , respostas não são mais permitidas