Programação Com Dsn

[barui]

Ola amigos, necessito conectar ao banco de Interbase mas não estou conseguindo. Uso DSN com drives ODBC mas não funciona. Veja o codigo:

Dim oConn As New ADODB.Connection

Dim rs As New Recordset

Dim sql As String

oConn.Open "DSN=Firebird;" & _

"Uid=SYSDBA;" & _

"Pwd=masterkey"

oConn.Open sql = "Select * from cliente"

Set rs = cn.Execute(sql)

Do While Not rs.EOF

List1.AddItem rs(0) & vbTab

rs.MoveNext

Loop

rs.Close

cn.Close

Quando compilo da um erro no oConn.Open sql, dizendo e uma operação não permitida quando o objeto esta aberto.

Alguem pode me ajudar??

Grato

[Clemente Silva]

Postado Originalmente por barulho@27 jul 2004, 21:39

Dim oConn As New ADODB.Connection

Dim rs As New Recordset

Dim sql As String

oConn.Open "DSN=Firebird;" & _

           "Uid=SYSDBA;" & _

           "Pwd=masterkey"

  

oConn.Open sql = "Select * from cliente"

Set rs = cn.Execute(sql)

Do While Not rs.EOF

     List1.AddItem rs(0) & vbTab

    rs.MoveNext

Loop

rs.Close

cn.Close

O método Open do objeto Connection está sendo chamado duas vezes em seguida (o correto seria usar apenas uma vez, para abrir uma conexão com banco de dados).

No seu código, apague apenas o codigo correspondente no exemplo acima (em vermelho), e tente rodar o projeto novamente.

Dica: antes de compilar o projeto no VB, execute com a opção "Start With Full Compile" para ver se há erros. Para isso, tecle CTRL + F5. Isso é bastante útil e poupa bastante tempo antes de compilar projetos grandes, daqueles que demoram uma hora para compilar.