tenho a seguinte situação, tenho um formulario de lancamento de nota onde lanco a nota e o item da nota, esse item tem uma tabela de itens com todos dados desse item, que é de onde busca para colocar na nota.Na nota eu informo apenas o nome do produto e o valor unitario.Quando salva a nota grava os dados comuns da nota (cpf, numero, data....) na tabela Nota e os produtos desta nota salva em outra tabela, ItensNota com as informações (nomeitem,valor unitario,data,nome cliente).Teria como na geração do arquivo texto gerar as seguintes informações CODIGOITEM,UNIDADE? o problema é que na tabela itensnota não tem essas informações tem apenas na tabela produtos.....tem como fazer tipo um "join"??? pra gerar o arquivo faço assim:
Dim registros As Integer
Set cn = New ADODB.Connection
Set rdcli = New ADODB.Recordset
On Error GoTo trata_erro
cn.CursorLocation = adUseClient
rdcli.CursorLocation = adUseClient
cn.open "Provider=MSDASQL;Data Source= BASEDADOS"
rdcli.open "SELECT * FROM itensnota", cn, adOpenDynamic, adLockBatchOptimistic
rdcli.MoveMax
rdcli.MoveMin
registros = rdcli.RecordCount
Open txtcaminho5.Text For Output As #1
Do Until rdcli.EOF
Print #1, rdcli!produto; rdcli!vlunitario; ; rdcli!data;
rdcli.MoveNext
Loop
Close #1
rdcli.Close
Na mesma linha logo após o rdcli!data, sair o codigo do produto que esta na tabela de produtos e nao na tabela itens nota....
