Citação:
|
Postado Originalmente por romulo
Você esqueceu do ponto e vírgula:
";pwd=SENHA"
|
Cara, por causa de um ponto e virgula... Ja estou revendo minha opiniao sobre VB...
Funcionou mas ele está travando :lol:
Vc sabe se existe no access algo tipo o trace into do Delphi?
E ai vai o código, caso alguem tenha alguma idéia.
Tenho que copiar os dados de um bd para outro modificando apenas um campo.
PS: Não reparem a redundância do código, é pq não tenho tempo para construir um procedimento...
PS 2: Não reparem tb se o tópico ficar com muitas visualizações, é pq eu estou dando refresh toda hora para ver se alguem respondeu.. :lol:
Código:
Private Sub Comando0_Click()
Dim dbOrigem As Database
Dim tbOrigem As Recordset
Dim dbDestino As Database
Dim tbDestino As Recordset
Dim CodCedente As String
Dim I As Integer
txtBasePrincipal.SetFocus
Set dbDestino = OpenDatabase(txtBasePrincipal.Text, False, False, ";pwd=SENHA")
txtBaseVinculado.SetFocus
Set dbOrigem = OpenDatabase(txtBaseVinculado.Text, False, False, ";pwd=SENHA")
Set tbDestino = dbDestino.OpenRecordset("tbCedentes")
Set tbOrigem = dbOrigem.OpenRecordset("tbCedentes")
CodCedente = VerificaCodCedente(tbOrigem!Agencia, tbOrigem!Operacao, tbOrigem!Conta, tbDestino)
If StrComp(CodCedente, "0") = 0 Then
MsgBox Title:="Erro!", Prompt:="Copie primeiro os dados do convênio (tbCedentes) para a base do convênio principal"
Exit Sub
End If
Set tbDestino = dbDestino.OpenRecordset("tbParCedente")
Set tbOrigem = dbOrigem.OpenRecordset("tbParCedente")
If Parametros.InSelection Then
Do Until tbOrigem.EOF
tbDestino.AddNew
tbDestino.Fields(0) = CodCedente
For I = 1 To 36
tbDestino.Fields(I) = tbOrigem.Fields(I)
Next I
tbDestino.Update
Loop
End If
Set tbDestino = dbDestino.OpenRecordset("tbSacado")
Set tbOrigem = dbOrigem.OpenRecordset("tbSacado")
If Sacados.InSelection Then
Do Until tbOrigem.EOF
tbDestino.AddNew
tbDestino.Fields(0) = CodCedente
For I = 1 To 64
tbDestino.Fields(I) = tbOrigem.Fields(I)
Next I
tbDestino.Update
Loop
End If
Set tbDestino = dbDestino.OpenRecordset("tbTitulos")
Set tbOrigem = dbOrigem.OpenRecordset("tbTitulos")
If Titulos.InSelection Then
Do Until tbOrigem.EOF
tbDestino.AddNew
tbDestino.Fields(0) = CodCedente
For I = 1 To 64
tbDestino.Fields(I) = tbOrigem.Fields(I)
Next I
tbDestino.Update
Loop
End If
Set tbDestino = dbDestino.OpenRecordset("tbRetorno")
Set tbOrigem = dbOrigem.OpenRecordset("tbRetorno")
If Retornos.InSelection Then
Do Until tbOrigem.EOF
tbDestino.AddNew
tbDestino.Fields(0) = CodCedente
For I = 1 To 64
tbDestino.Fields(I) = tbOrigem.Fields(I)
Next I
tbDestino.Update
Loop
End If
Set tbDestino = dbDestino.OpenRecordset("tbRemessa")
Set tbOrigem = dbOrigem.OpenRecordset("tbRemessa")
If Remessas.InSelection Then
Do Until tbOrigem.EOF
tbDestino.AddNew
tbDestino.Fields(0) = CodCedente
For I = 1 To 64
tbDestino.Fields(I) = tbOrigem.Fields(I)
Next I
tbDestino.Update
Loop
End If
Set tbDestino = dbDestino.OpenRecordset("tbGrupos")
Set tbOrigem = dbOrigem.OpenRecordset("tbGrupos")
If Grupos.InSelection Then
Do Until tbOrigem.EOF
tbDestino.AddNew
tbDestino.Fields(0) = CodCedente
For I = 1 To 64
tbDestino.Fields(I) = tbOrigem.Fields(I)
Next I
tbDestino.Update
Loop
End If
dbDestino.Close
dbOrigem.Close
End Sub
Function VerificaCodCedente(Agencia, Operacao, Conta As String, tbDestino As Recordset) As String
Result = "0"
With tbDestino
Do Until ((.EOF) Or (StrComp(Result, "0") <> 0))
.Edit
If StrComp(!Agencia, Agencia) = 0 Then
If StrComp(!Operacao, Operacao) = 0 Then
If StrComp(!Conta, Conta) = 0 Then
Result = !CodCedente
End If
End If
End If
Loop
End With
End Function
Como acessar BD Access utilizando Access Basic
Como acessar BD Access utilizando Access Basic
ops:
