nao abre o programa


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: nao abre o programa

Ayres

SOROCABA
SP - BRASIL

ENUNCIADA !

Postada em 12/09/2005 15:30 hs

Ola galera, eu fiz um programa com login que acessa um bando de dados que esta no servidor e funciona perfeitamente em 3 micros. qd vou usar em outra maquina apresenta uma mensagem com o titulo adodc com mensagem que nao foi possivel usar ". o arquivo esta em uso.

detalhe que em 3 micros funciona perfeitamente

segue a fonte

Private Sub Command1_Click()
Adodc.CommandType = adCmdUnknown
Adodc.RecordSource = "Select * from Senhas where '" & Text1.Text & "' like Nome"
Adodc.Refresh
If Adodc.Recordset.RecordCount <> 0 Then
   frm_msg.txt_tecnico.Text = Adodc.Recordset.Fields("Nome")
End If
If Text2.Text <> "" Then
    If Text2.Text <> Adodc.Recordset.Fields("Senha") Then
        MsgBox "Senha Incorreta!", vbCritical, "Aviso"
        Text2.Text = ""
        Text2.SetFocus
        Exit Sub
    Else

       Unload Me
       main.Show
    End If
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
'conecta ao banco de dados
Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\BetaserverLABDebugOkashiraDocdb1.mdb;Persist Security Info=False"
Adodc.CommandType = adCmdText
Adodc.RecordSource = "Select * from Senhas"
Adodc.Refresh

End Sub

Private Sub Text1_LostFocus()
Adodc.CommandType = adCmdUnknown
Adodc.RecordSource = "Select * from Senhas where '" & Text1.Text & "' like Nome"
Adodc.Refresh
If Adodc.Recordset.RecordCount <> 0 Then
On Error Resume Next
    lbluser.Caption = Adodc.Recordset.Fields("Nome")
Else
    MsgBox "Usuario Inexistente", vbInformation, "Aviso"
    Text1.Text = ""
    Text1.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

qq debug.vb@gmail.com

ArtSoft

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 12/09/2005 16:18 hs

OLÁ AYRES,

Primeira Possibilidade : O BD é lido da rede ? Verifique a permissão da mesma !

Segunda Possibilidade :MDAC esta instalado na maquina corretamente ?!

ALEXANDRE COSTA

ARTSOFTSYSTEMS

Ayres

SOROCABA
SP - BRASIL

ENUNCIADA !

Postada em 12/09/2005 16:47 hs

o banco esta na rede e funciona em tres maquinas simultaneamente

a versao jet das maquinas sao 4.07328.0
detalhe os micros que estao funcionando tem o office
com os 3 micros com office funciona perfeitamente simultaneamente
o componente que estou usando ado v 2.5
qd vou instalar mdac 2.5 acusa que ja esta instaldado e nao permite instalacao.

o que pode ser???

debug.vb@gmail.com

ArtSoft
não registrado

ENUNCIADA !

Postada em 12/09/2005 17:33 hs

ACHOU O PROBLEMA....BAIXE A ATUALIZACAO DO MDAC É INSTALE NESTA MAQUINA, E/OU INSTALE O SEU SISTEMA E SOLICITE PARA DESINSTALAR, INCLUSIVE AS DLL's E AS OCX's....TUDO E AI SIM INSTALE NOVAMENTE !!!

Ayres

SOROCABA
SP - BRASIL

ENUNCIADA !

Postada em 13/09/2005 14:38 hs

Deixe dar mais detalhes

Quando executa o programa abre um form de login, apos de estar logado entro no form que onde esta vinculado a uma tabela de access onde o usuario deixa seus comentarios . E ao confirmar o envio apresenta uma mensagem Run time – 2147467259 (80004005) A operação deve usar uma consulta atualizável

Tem micros que ao colocar apenas o login já apresenta erro Run time 91 objeto variable or with block varible not set

Segue o código do form para usuario deixar mensagem

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

txt_tecnico.Text = frm_login.Text1

Text3 = Date

Unload frm_msg

Unload frm_login

End Sub

Private Sub Form_Load()

Adodc1.Recordset.AddNew

End Sub

O código do login

Private Sub Command1_Click()

Adodc.CommandType = adCmdUnknown

Adodc.RecordSource = "Select * from Senhas where '" & Text1.Text & "' like Nome"

Adodc.Refresh

If Adodc.Recordset.RecordCount <> 0 Then

frm_msg.txt_tecnico.Text = Adodc.Recordset.Fields("Nome")

End If

If Text2.Text <> "" Then

If Text2.Text <> Adodc.Recordset.Fields("Senha") Then

MsgBox "Senha Incorreta!", vbCritical, "Aviso"

Text2.Text = ""

Text2.SetFocus

Exit Sub

Else

Unload Me

main.Show

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

'conecta ao banco de dados

Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\BetaserverLABDebugOkashiraDocdb1.mdb;Persist Security Info=False"

Adodc.CommandType = adCmdText

Adodc.RecordSource = "Select * from Senhas"

Adodc.Refresh

End Sub

Private Sub Text1_LostFocus()

Adodc.CommandType = adCmdUnknown

Adodc.RecordSource = "Select * from Senhas where '" & Text1.Text & "' like Nome"

Adodc.Refresh

If Adodc.Recordset.RecordCount <> 0 Then

On Error Resume Next

lbluser.Caption = Adodc.Recordset.Fields("Nome")

Else

MsgBox "Usuario Inexistente", vbInformation, "Aviso"

Text1.Text = ""

Text1.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1_Click

End If

End Sub

Para progrmas com bando em access o que precisa instalar alem do mdac?

Já instalei mdac 2.8 e continua essas mensagens

Ayres

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR