• 0
Sign in to follow this  
mestre fyoda

Ta Certa Essa Conexao ?

Question

não sei o q ta acontecendo .

Ta dando esse erro : object variable or with block variable not set .

Mostra.frm

set rs = cn.Execute("select * from Cliente")

Module :

Global cn As ADODB.Connection

Global rs As ADODB.Recordset

Private Sub Main()

Dim strArquivo As String

Dim strLocal As String

Dim Conexao As String

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

Set cn = CreateObject("ADODB.Connection")

Conexao = "Driver={SQL Server};" & _

"Server=RAFAEL;" & _

"Database=Biblioteca;" & _

"Uid=sa;Pwd=janio1;"

cn.Open Conexao

End Sub

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

onde você chama a procedure q abre a conexao?

essa sub main deve ser chamada de algum lugar do programa. não tem sentido você digitar todo o codigo e não executar.

outra coisa, ela deve ser declarada com Public Sub para poder ser chamada de outros formularios.

Share this post


Link to post
Share on other sites
  • 0

so você ir em Project1 Propriedades e coloca sub Main .

não sabia disso não...

meio estranho esse erro. qual é a linha q dá? essa:

set rs = cn.Execute("select * from Cliente")

???

Share this post


Link to post
Share on other sites
  • 0

já foi resolvido mano , porque eu não chamava a função que nem você tinha me dito .

ai fui na propriedade dop projeto e coloquei a Sub Main e paro o erro , mas detalhe .

pra que funcione você tera q coloca o comando :

Form1.Show

dentro da sub main se não ele nem executa nenhum formulario .

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this