sadjuan

Oi amigo Macêdo voltei a coloca-lo como disse mas continua a dar a mesma msg. [Microsoft][ODBC Driver Maneger] Data Source Name not Found And no Default Driver Specifield coloquie como explicaste no evento load do form onde tem o controle: Adodc1.ConnectionString = conn e apaguei nas propridades do ADODC1 onde antes eu tinha: Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=PGE_New.mdb Adicionei tambem à biblioteca Microsoft ActiveX Data Objects 2.8 Library continua co a mesma msg. agradecia que me ajudasse please.

Oi. eu experimentei colocar no form no evento load o codigo que foi postado que e: adodc1.connectionstring=cnn quando eu executei o programa no meu pc onde tenho o visual studio 6 instalado ele da a seguinte msg quando abr o form que tem o adodc: [Microsoft][ODBC Driver Maneger] Data Source Name Not Found And no Default Driver Specifield. Nem experimentei ir instalar em um outro micro que não tem o visual studio instalado, porque acho que se no meu onde tenho o visual instalado ele da esta msg e não mostra os dados, la num outro pc tambem fara o mesmo. Vouy explicar como mais ou menos esta o meu programa: eu fiz um pequeno exercicio em VB6, criei o setup e fui instalar em uma outra maquina que não tem o visual studio instalado. consigo abrir o programa, consigo tambem inserir,alterar e apagar os dados que tenho na base de dados, nestes forms onde consigo inserir,alterar e apagar os dados não tenho nenhum controle ADODC, uso o modo de conexao com o banco de dados ADO, mas em alguns form's eu inseri o Adodc, o problema surge quando abro estes forms ele da uma msg a dizer que não encontrou a base de dados. eu configurei na propriedade do Adodc no connectionstring o seguinte: Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=PGE_New.mdb mas ele não encontra o banco de dados. neste pequeno exercicio eu inseri um modulo onde tenho a conexao com o banco de dados, que e a seguinte: conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\BD.mdb" conn.Open cmd.ActiveConnection = conn frmSplash.Show agradecia que me ajudassem a resolver o problema.

oi galera. tou comum problema, eu fiz um peuqeno exercicio em VB6, criei o setup e ate aqui não há problemas. O problema surge quando vou instalar numa maquina que não tem o visual studio 6 la instalado, ele instala perfeitamente mas quando eu abro um form que tem um Adodc, ele da um aviso a dizer que não encontrou a base de dados. mas quando eu estiver a fazer o exercicio eu configurei nas propriedades do Adodc no CONNECTIONSTRING=Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=BANCO_DADOS.mdb. Na maquina onde eu estava a fazer o exercicio ele sempre encontra o banco de dados, mas basta eu instalar numa outra maquina para ele dar esta mensagem que falei mais acima. estou a usar o modo de conexao ADO agradecia que alguém me ajudasse a soluccionar mas este problema.

oi galera eu experimentei alterar o codigo que o amigo kuroi postou. para que ele podesse cacular os dados em intervalos de datas, mas ele somente soma os valores que estiverem no mesmo dia. então eu experimentei uma outra tactica, que a pesquisa por MESES em vez de por datas com havia pedido que me ajudassem, e ai ele fez exactamente o que eu queria: A TABELA ERA ESTA, ONDE TINHAMOS ANTES O CAMPO DATA AGORA TEMOS O CAMPO MESES NOTAS cod ------- nome ----- nota1----- nota2----- MESES 12------- joao----- 8----- 5----- janeiro 11------- jose----- 2----- 8----- marco 11------- jose----- 5----- 12----- maio 4 ------- ana----- 2----- 9----- junho 12------- joao----- 1----- 6----- junho 12------- joao----- 8----- 5----- junho E o resultado aparece da maneira que eu queria, ó: cod ------- nome ----- nota1----- nota2----- MESES 4 ------- ana----- 2----- 9----- junho 12------- joao----- 9----- 11----- junho se observarmos foi somado os dados onde somente temos o mes de JUNHO O codigo ficou assim: Select cod, nome, Sum(a.nota1) As nota1, Sum(a.nota2) As nota2 From Notas As a Where MESES='"& Text_de_pesquisa&"' Group By cod, nome Um especial agradecimento ao Kuroi e toda a galera deste Forum.

Amigo Kuroi, experimentei o codigo que postaste e correu as mil e uma maravilha. Fico grato por ter me ajudado a solucionar este problema. Fica ai o meu especial Obrigado. So que para melhorar este meu pequeno exercicio em VB6, eu queria que estas pesquisas fossem calculadas em intervalo de datas. eu acrescentei um campo na tabela NOTAS que e data. a tabela ficou do seguinte jeito: NOTAS cod nome nota1 nota2 data 12 joao 8 5 25/6/2009 11 jose 2 8 27/6/2009 11 jose 5 12 1/7/2009 4 ana 2 9 12/7/2009 12 joao 1 6 12/7/2009 12 joao 8 5 12/7/2009 O resultado teria de ser em funcao de uma busca entre datas: cod nome nota1 nota2 data 11 jose 5 12 1/7/2009 4 ana 2 9 12/7/2009 12 joao 9 11 12/7/2009 O intervalo de datas no exemplo do resultado foi de 1/7/2009 a 12/7/2009, ele so somou neste caso o joao porque foi o unico que teve mais dados neste intervalo de datas. Agradecia que me ajudassem a resolver mais este passo deste problema.

amigo Kuroi, experimentei o codigo que postaste para mim, mas quando coloquei ele da uma mensagem de erro que diz: run-time error '-2147217904(80040e10)' No value given for one or more required parameters O codigo sql que me deste foi: Select cod, nome, Sum(a.nota1) As nota1, Sum(a.nota2) As nota2 From Notas Group By cod, nome Agradecia que me podesses ajudar a resolver este problema.

Oi galera, eu estou tentando fazer uma pesquisa em VB6 que me de um determinado resultado que mostrarei mas pa frente. ele deve fazer a consulta em uma tabela que e a seguinte: NOTAS cod nome nota1 nota2 12 joao 8 5 11 jose 2 8 11 jose 5 12 4 ana 2 9 12 joao 1 6 E o resultado deveria ser assim: cod nome nota1 nota2 12 joao 9 11 11 jose 7 20 4 ana 2 9 ele soma as notas1 do joao e tambem as notas2, faz o mesmo para as outras pessoas. Eu estou a usar a conexao com o banco de dadose ADO, se me podessem me enviar um codigo que faz isso era excepcional.

keria um script php dakeles usados em jornais desportivos