Data Report e Data Environment em Visual Basic 6

[vpess]

Boas,



Estou quase a terminar um projecto em VB, só me falta acertar as impressões.

Para as impressões comecei por usar o Data Report, criei então:

Data Environment(consocios) -> com o comando (gsocio):


Nas propriedades coloquei a seguinte query e defini os parametros para passar o valor do nosc:

Código: Seleccionar todos

select id, nosc, nome, datav from socios where nosc= ? order by id asc


Depois no botão imprimir defini isto:

Código: Seleccionar todos

numsc = nosc.Text
consocios.gsocio numsc
icartoes.Show


Isto está a funcionar. Mas... só funciona a primeira vez que imprimo. Se fechar o data report e chamar outro valor para o nosc.text dá-me este erro: "A operação não é permitida se o objecto estiver aberto."





Será que não dá para definir tudo isto por código?


Ou seja,



Definir a ligação e a Query. Depois associar ao data report.

Pois senão deparo-me com outro problema, é que na ligação á bd do data environment tenho de colocar o caminho exacto da BD não me permite isto:

Código: Seleccionar todos

"Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\socios.mdb"


Espero que me possam ajudar, para assim poder terminar o meu projecto.

Já agora trata-se de um programa de gestão de sócios.

[JoaoRosa]

olá...

nunca trabalhei com vb6, mas trabalho com a plataforma .net... e já me deparei com esse tipo de problemas quando estás a realizar chamadas à base de dados via código.

na tua conexão, onde fazes a query, logo a seguir usa o Close() ou Dispose(). assim ele liberta os recursos...

penso que que é está a solução.

cps

[alr_tech]

boas

eu não gosto de usar os data enviroment...

teoricamente simplifica as coisas...
mas, com os últimos SP para o VB6 deixam de funcionar correctamente..

por isso passou-se a trabalhar só com código...
se procurares encontras pouco código a usá-los...

eu gosto mais de trabalhar por ODBC....
não gosto muito de usar XML com VB6... é complicado, e a MS por causa do .NET... deixou de desenvolver...

eu abro uma connection e depois passo para um recordset

bém tal como foi dito atrás, depois de aberto e finalizar a query, tens de fechar

penso que no teu caso seja: consocios.close

quando escreves consocios. não aparece uma lista?

tens de ver tb para o Data report, há já muito tempo que não o uso...

cumps