Erro no código. Ajudem!

[spash]

Pessoal, to tentando contar todos os dados do meu banco de dados que possui várias tabelas.

Fiz o código abaixo mas nçao tá contando todos os dados. Somente alguns.

Onde foi que eu errei?

Grato a todos

<%

Dim totalBandas3, rst3, conn3, driver3, rst4, rst5, rst6, rst7, rst8, rst9, rst10, rst11, rst12, rst13, rst14, rst15, rst16, rst17, rst18, rst19, rst20, rst21, rst22, rst23, rst24, rst25, rst26, rst27, rst28, rst29, totalop, totalBandas4, totalBandas5, totalBandas6, totalBandas7, totalBandas8, totalBandas9, totalBandas10, totalBandas11, totalBandas12, totalBandas13, totalBandas14, totalBandas15, totalBandas16, totalBandas17, totalBandas18, totalBandas19, totalBandas20, totalBandas21, totalBandas22, totalBandas23, totalBandas24, totalBandas25, totalBandas26, totalBandas27, totalBandas28, totalBandas29

set conn3 = Server.CreateObject("ADODB.Connection")
driver3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\clientes\digitalsub.com.br\wwwroot\bandas\operadoras.mdb;Persist Security Info=False"
conn3.Open driver3


Set rst3 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Acre")
Set rst4 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Alagoas")
Set rst5 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Amapa")
Set rst6 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Amazonas")
Set rst7 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Bahia")
Set rst8 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Brasília")
Set rst9 = conn3.Execute("SELECT COUNT(Operadora) As MailFROM Ceará")
Set rst10 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Espirito Santo")
Set rst11 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Goiás")
Set rst12 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Maranhão")
Set rst13 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Mato Grosso")
Set rst14 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Mato Grosso do Sul")
Set rst15 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Minas Gerais")
Set rst16 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Pará")
Set rst17 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Paraíba")
Set rst18 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Paraná")
Set rst19 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Pernambuco")
Set rst20 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Piauí")
Set rst21 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rio de Janeiro")
Set rst22 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rio Grande do Sul")
Set rst23 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rio Grande do Norte")
Set rst24 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Rondônia")
Set rst25 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Roraima")
Set rst26 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Santa Catarina")
Set rst27 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM São Paulo")
Set rst28 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Sergipe")
Set rst29 = conn3.Execute("SELECT COUNT(Operadora) As Mail FROM Tocatins")

totalBandas3 = rst3("Mail")
totalBandas4 = rst4("Mail")
totalBandas5 = rst5("Mail")
totalBandas6 = rst6("Mail")
totalBandas7 = rst7("Mail")
totalBandas8 = rst8("Mail")
totalBandas9 = rst9("Mail")
totalBandas10 = rst10("Mail")
totalBandas11 = rst11("Mail")
totalBandas12 = rst12("Mail")
totalBandas13 = rst13("Mail")
totalBandas14 = rst14("Mail")
totalBandas15 = rst15("Mail")
totalBandas16 = rst16("Mail")
totalBandas17 = rst17("Mail")
totalBandas18 = rst18("Mail")
totalBandas19 = rst19("Mail")
totalBandas20 = rst20("Mail")
totalBandas21 = rst21("Mail")
totalBandas22 = rst22("Mail")
totalBandas23 = rst23("Mail")
totalBandas24 = rst24("Mail")
totalBandas25 = rst25("Mail")
totalBandas26 = rst26("Mail")
totalBandas27 = rst27("Mail")
totalBandas28 = rst28("Mail")
totalBandas29 = rst29("Mail")

totalop = totalBandas3 + totalBandas4 + totalBandas5 + totalBandas6 + totalBandas7 + totalBandas8 + totalBandas9 + totalBandas10 + totalBandas11 + totalBandas12 + totalBandas13 + totalBandas14 + totalBandas15 + totalBandas16 + totalBandas17 + totalBandas18 + totalBandas19 + totalBandas20 + totalBandas21 + totalBandas22 + totalBandas23 + totalBandas24 + totalBandas25 + totalBandas26 + totalBandas27 + totalBandas28 + totalBandas29

Set rst3 = Nothing
Set rst4 = Nothing
Set rst5 = Nothing
Set rst6 = Nothing
Set rst7 = Nothing
Set rst8 = Nothing
Set rst9 = Nothing
Set rst10 = Nothing
Set rst11 = Nothing
Set rst12 = Nothing
Set rst13 = Nothing
Set rst14 = Nothing
Set rst15 = Nothing
Set rst16 = Nothing
Set rst17 = Nothing
Set rst18 = Nothing
Set rst19 = Nothing
Set rst20 = Nothing
Set rst21 = Nothing
Set rst22 = Nothing
Set rst23 = Nothing
Set rst24 = Nothing
Set rst25 = Nothing
Set rst26 = Nothing
Set rst27 = Nothing
Set rst28 = Nothing
Set rst29 = Nothing
Set conn3 = Nothing

Response.Write("<b>Operadoras cadastradas:</b> ") & totalop

%>

Obrigado a todos...

Editado Outubro 10, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

[Jonathan Queiroz]

O seu código está extremamente repetitivo, é possível melhorá-lo, e muito !

Mas não vi nenhum erro aparente na parte das instruções SQL, até porque fica difícil analisar um código assim...

Mas observe essa linha:

Response.Write("<b>Operadoras cadastradas:</b> ") & totalop

O correto seria assim:

Response.Write("<b>Operadoras cadastradas:</b> "& totalop)

[bareta]

nussa senhora...

2 dias e seu site ta off com essa página... e as mensagens que aparecerão são

Server Unavaiable

ou

Numero excessivo de usuarios acessando o banco.

[Bicicleta]

Tente dessa forma:

<%

 Set Conexao = Server.CreateObject("ADODB.Connection")
 Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\clientes\digitalsub.com.br\wwwroot\bandas\operadoras.mdb"
 Conexao.Open

 arrTable = Array("Acre","Alagoas","Amapa","Amazonas","Bahia","Brasília","Ceará","Espirito Santo","Goiás","Maranhão","Mato Grosso","Mato Grosso do Sul","Minas Gerais","Pará","Paraíba","Paraná","Pernambuco","Piauí","Rio de Janeiro","Rio Grande do Sul","Rio Grande do Norte","Rondônia","Roraima","Santa Catarina","São Paulo","Sergipe","Tocatins")
 totalop  = 0

 For i = 0 TO UBound(arrTable)
     Set rs = Conexao.Execute("SELECT COUNT(Operadora) AS Mail FROM "& arrTable(i) &"")
     totalop = totalop + CDBL(rs("Mail"))
     rs.Close
     Set rs = Nothing
 Next

 Erase arrTable

 Conexao.Close
 Set Conexao = Nothing

 Response.Write "<b>Operadoras cadastradas:</b> " & totalop

 %>

Porém o certo seria resumir todas essas tabelas em uma única, usar o COUNT junto com o GROUP BY para pegar o resultado em uma consulta apenas ao BD, ficaria bem mais rápido e prático. Mas se sua aplicação não permitir isso, tenta o código que postei acima, deve ajudar.

Abraço.

Editado Outubro 14, 2009 por Bicicleta