Dr.Festa
|
CURITIBA
PR - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/02/2010 16:23 hs
O pessoal, por favor da uma força ai pra descobrir porque não esta conseguindo conectar a base de dados, já revirei o google e o forum aki, tudo que encontrei eu fiz, mas nada resolve o problema....
Se alguem puder, por favor da uma luz......
|
|
|
|
|
|
Dr.Festa
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/02/2010 16:43 hs
Acho que achei.....
a palavra path estava escrita errada (pelo menos eu acho) coloquie escrito patch e parou de aparecer a mensagem de ISAM porem agora aparece outra assim:
Compile error:
Method or data member not found.
Já estou pesquisando o que este erro, mas se alguem souber agradeço.
------------------------------------------------------------------------------------------------------------
esquece, o correto é path mesmo......voltamos a estaca zero.
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 09/02/2010 22:47 hs
em um modulo faça: Public cnn As ADODB.Connection 'essa eh a variavel global que inicializara o banco Public caminhobd As String 'essa variavel recebe o caminho do banco 'Conexao com banco de dados Access
Public Sub PrDefineConexãoaC()
On Error GoTo ErroBd
caminhobd = App.Path & "" & ReadINI(App.Path & "config.ini", "Banco", "bd") ' eu geralmente busco em um arquivo ini mas no seu caso pode colocar assim : caminhobd = App.Path & "ancod.mdb"
'**** conexao com o banco de dados
Set cnn = New Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhobd & ";Persist Security Info=False;Jet OLEDB:Database Password=;Jet OLEDB:Encrypt Database=False;Jet OLEDB:SFP=False"
'***
ErroBd:
Select Case Error
Case ""
Case Else
MsgBox "ERRO: " & Error & Chr(13) & _
" NÃO FOI POSSIVEL CONECTAR AO BANCO DE DADOS ACCESS" & Chr(13) & _
" ENTRE EM CONTATO COM A CITYMONITORAMENTO "
End
End
End Select
End Sub '--------------- muito importante lembra que no visual basic nao permite a quebra de linha ' a nao ser que coloquemos no final da linha o " & _ " Ass. Paulo Silva |
|
|
|
|
|
Postada em 09/02/2010 22:52 hs
' usarei o exemplo dado para mostrar o acesso aos dados Private Sub bLogOk_Click()
Dim vUsuario As String
Dim vSenha As String
Dim RS As new adodb.Recordset
vUsuario = tUsuario.Text
vSenha = tSenha.Text
If vUsuario = "" Then
MsgBox "Digite o nome do usuário"
tUsuario.SetFocus Exit Sub
ElseIf vSenha = "" Then MsgBox "Digite a Senha" tSenha.SetFocus Exit Sub End IF sSQL = "select * from usrlogin" & _ " where usrlogin = '" & vUsuario & " ' " & _ " and usrsenha = '" & vSenha & " ' " rs.Open sSQL, cnn, , , 1 If (RS.BOF And RS.EOF) Then MsgBox "Usuário ou senha não conferem!" tUsuario.Text = "" tSenha.Text =""
tUsuario.SetFocus Else 'inserir o comando para abrir o formulario principal do sistema End If
End Sub
espero ter ajudado Ass. Paulo Silva p.s: esse é o meu metodo de acesso a dados, existe varios e nao deprecio nenhum, simplemente aprendi esse :D
|
|
|
|
Dr.Festa
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/02/2010 22:22 hs
Valew presuntus, esta quase tudo funcionando, so esta dando erro na linha
rs..open ssql.cnn,,,1
O erro é:
Object variable or with block variable not set.
e ao ir no debug, o comando cnn esta = nothing.
Como ainda estou tentando entender o que esta acontecento, não sei o que causa o erro, so sei que a mensagem diz que uma variavel esta com valor null quando deveria ter algun valor. (pelo menos acho que é isso).
Por favor, se não for abusar da boa vontade de vcs, podem me ajudar novamente com este erro. |
|
|
|
Dr.Festa
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/02/2010 15:13 hs
Ninguem tem nenhuma ideia do que pode ser o problema....
Por favor pessoal me ajudem.......
|
|
|
|
