6 replies to this topic

[direisc]

é necessario o arquivo ADOVBC.INC no site ou nao é preciso deste arquivo para usar isso?

[felipecm]

é necessario o arquivo ADOVBC.INC no site ou nao é preciso deste arquivo para usar isso?

Nesse exemplo não é necessario pois usamos apenas uma constante:

 'Constante da verificação do estado do objeto ADO
 Const adStateOpen = &H00000001

Tem tantas outras que se pode usar, mas para o exemplo não eh necessario.

[direisc]

felipe tava procurando o q é esse inc e nao achei o q seria essas constantes e para que servem?

[felipecm]

felipe tava procurando o q é esse inc e nao achei o q seria essas constantes e para que servem?

O arquivo ADOVBS, é um arquivo de inclusão com todas as constantes de ADO.
Constante nada mais é do que uma variável com valor fixo.
Pq usar constantes, caso vc não seja nenhum genio pra decorar numeros e numeros, a constante pode representar esse numero em um formato mais amigável de facil entendimento, por exemplo, adStateOpen = 1

Seria a mesma coisa eu usar lá:

if objConnection.State = 1 Then

Porém, o que é 1? Fica mais fácil vc identificar pela constante, que é adStateOpen ou seja, aberto.

Tem um link para um modelo desse arquivo em algum post ai de cima.

[viniciusjau]

o que eu teria que alterar nele para usar com banco mysql ????

Edição feita por: viniciusjau, 18/01/2005, 09:54.

[felipecm]

o que eu teria que alterar nele para usar com banco mysql ????

Tão e somente a string de conexão..
strConnString = "STRING DO MYSQL"

[viniciusjau]

e ai Felipe...

cara eu to usando seu codigo, masi tá dando o seguinte erro na hora de fechar a conexão:

Erro de tempo de execução do Microsoft VBScript error '800a01a8'
Objeto necessário: 'objRsTmp'
/sistema_novo/inclui/conecta.asp, line 35

e a linha 35 é justamente:

  For Each objRsTmp In objRs
    If objRsTmp.State = adStateOpen Then objRsTmp.Close
    Set objRsTmp = Nothing
  Next

se eu não fecho a conexão ele não dá erro...