Postada em 20/05/2011 14:50 hs
A sintaxe em VB6 com MySql 5.1 abaixo é pra listar pessoas e seus respectivos carros, tá resumido somente para sanar minha dúvida, segu o código:
Private Sub ActiveReport_ReportStart()
Dim codigo As Integer
Dim nome, veiculo As String
Sql = "SELECT VIS_CODIGO, VIS_NOME FROM VISITANTES"
Set Rs = Cn.Execute(Sql)
Do Until Rs.EOF
codigo = Rs!VIS_CODIGO
nome = Rs!VIS_NOME
Sql2 = "SELECT VEI_MODELO FROM VEICULOS WHERE FVIS_CODIGO =" & codigo
Set Rs2 = Cn.Execute(Sql2)
Do Until Rs2.EOF
veiculo = Rs2!VEI_MODELO
Rs2.MoveNext
Loop
Rs.MoveNext
Loop
End Sub
O que eu gostaria de fazer é exibir essas informações dentro do ActiveReport2.0, tentei várias maneiras mas não consegui, fico agradecido se alguem puder me ajudar
|
