quero fazer o seguinte:
no meu txt casa registro tem a duas linhas, a linha1 e a linha2, quero que ao importar para o banco de dados as duas linas fiquem no mesmo registro.
se alguem puder me ajudar serei muito grato.
uso o access 2007
estou usando esse código
-----------------------------------
Option Compare Database
Private Sub Btnimportar_Click()
On Error GoTo TrataErro
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String
If Len(Me.txtNomeArq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
Me.txtNomeArq.SetFocus
Exit Sub
End If
If Len(Dir(Me.txtNomeArq)) = 0 Then ' Testa a existência do arquivo
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.txtNomeArq.SetFocus
Exit Sub
End If
Open Me.txtNomeArq For Input As #1 ' Abre o arquivo a ser importado
Set DB = CurrentDb
Set RS = DB.OpenRecordset("tabela1")
While Not EOF(1)
Line Input #1, Linha ' Lê uma linha do arquivo texto
If Left$(Linha, 1) = "1" Then
With RS
.AddNew
!nome = Mid$(Linha, 2, 11)
!telefone = Mid$(Linha, 23, 12)
!bairro = Mid$(Linha, 31, 8)
.Update
End With
End If
If Left$(Linha, 1) = "2" Then
With RS
.AddNew
!endereço = Mid$(Linha, 2, 11)
!n = Mid$(Linha, 23, 12)
.Update
End With
End If
Wend
Saida:
Close
Set RS = Nothing
Set DB = Nothing
Exit Sub
TrataErro:
MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then ' Compilação condicional - Em desenvolvimento
Stop
Resume
#End If
Resume Saida
End Sub
----------------------------------------------------------
no meu txt casa registro tem a duas linhas, a linha1 e a linha2, quero que ao importar para o banco de dados as duas linas fiquem no mesmo registro.
se alguem puder me ajudar serei muito grato.
uso o access 2007
estou usando esse código
-----------------------------------
Option Compare Database
Private Sub Btnimportar_Click()
On Error GoTo TrataErro
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim Linha As String
If Len(Me.txtNomeArq & vbNullString) = 0 Then ' Testa se txtNomeArq contém alguma coisa
MsgBox "Informe o nome do arquivo a ser importado", vbExclamation + vbOKOnly, "Vazio"
Me.txtNomeArq.SetFocus
Exit Sub
End If
If Len(Dir(Me.txtNomeArq)) = 0 Then ' Testa a existência do arquivo
MsgBox "O arquivo não existe!!!", vbCritical + vbOKOnly, "Erro"
Me.txtNomeArq.SetFocus
Exit Sub
End If
Open Me.txtNomeArq For Input As #1 ' Abre o arquivo a ser importado
Set DB = CurrentDb
Set RS = DB.OpenRecordset("tabela1")
While Not EOF(1)
Line Input #1, Linha ' Lê uma linha do arquivo texto
If Left$(Linha, 1) = "1" Then
With RS
.AddNew
!nome = Mid$(Linha, 2, 11)
!telefone = Mid$(Linha, 23, 12)
!bairro = Mid$(Linha, 31, 8)
.Update
End With
End If
If Left$(Linha, 1) = "2" Then
With RS
.AddNew
!endereço = Mid$(Linha, 2, 11)
!n = Mid$(Linha, 23, 12)
.Update
End With
End If
Wend
Saida:
Close
Set RS = Nothing
Set DB = Nothing
Exit Sub
TrataErro:
MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then ' Compilação condicional - Em desenvolvimento
Stop
Resume
#End If
Resume Saida
End Sub
----------------------------------------------------------