Anderson Fernandes

Tem como postar esta parte do script para que possamos analisar o problema?

Bom dia! Em qual linha esta ocorrendo este erro?

Bom dia! Qual a mensagem de erro? Provavelmente o erro está no seu SELECT, o campos login e senha existem na tabela usuario do seu banco de dados? E a conexão com o banco de dados estava aberta? t+

Está é a tela de um projeto de sistema helpdek que comecei a criar a muito tempo a traz.

Olá! ACHO... que compreendi a sua duvida! O seu arquivo .txt deve ter um padrão semelhante ao .csv. exemplo do txt: nome;salario;registro João;2000,00;12345 ou esta no padrão de largura de colunas fixas: nome salarioregistro anderson2000,0012345678 independente do padrões citados você pode acessar o arquivo via ODBC como se fosse a tabela de um banco de dados. E a partir de então é apenas conectar ao arquivo e selecionar apenas os registros (linhas) que necessita. Ou pode simplesmente ler linha por linha do arquivo com a função Open ou pela biblioteca FSO, verificar se estão nas suas condições e então salve-as em um novo arquivo. Se o arquivo for muito grande recomendo a 1ª opção que é bem mais rápida. Posta ai ou abre um novo tópico se tiver duvidas de como fazer para transformar um arquivo de texto em uma tabela. http://www.connectionstrings.com/ Este site vai de dar uma luz! t+ Anderson Fernandes

Tambem recomendo desativar composição da area de trabalho no menu de compatibilidade do atalho do VB

Boa noite! Me corrija se estiver errado, mas o aplicativo é executado no servidor e apenas a imagem é enviada para o micro cliente quase igual ao VNC. O que deve estar acontecendo é que o servidor TS ou o banco não esta suportando tantas estações e consultas simultaneas o servidor TS tem memoria sulficiente e o seu códifo esta eficiente?

Olá pessoal! Consegui a solução em outro sites em inglês. Estou postando a solução para futuras duvidas de outros membros: Oracle 9i select name from v$database t+

Olá pessoal! Consegui a solução em outro sites em inglês. Estou postando a solução para futuras duvidas de outros membros: Oracle 9i select name from v$database t+

Olá pessoal! Como faço para retornar o nome do banco de dados atual em Oracle? Estou usando ADO e o seguinte não funciona: MsgBox Conn.DefaultDatabase '(Conn é um ADODB.Connection) O erro retornado é: O provedor não oferece suporte à propriedade. Tambem já tentei as seguinte consultas: SELECT DATABASE(); SELECT DATABASE() FROM DUAL; E nenhuma funciona. Qualquer ajuda é bem vinda! vlw!

Olá pessoal! Qual a instrução para retornar o nome do banco de dados atual? Por exemplo em mysql eu faço: "SELECT DATABASE()" e pronto ele retorna o nome do banco de dados, mas no ORACLE já tentei de algumas formas e não consegui, alguém pode me ajuda? vlw t+!

Eu desenvolvi um sistema de ponto biometrico aqui pra empresa e utilizei uma DLL da Griaulebiometrics este é o site deles http://www.griaulebiometrics.com/page/pt-br/index baixe a dll versão trial http://www.griaulebiometrics.com/page/pt-b...ller.exe?fid=41 no site tem varios exemplos inclusive em VB6 qualquer coisa me envie um e-mail que te ajudo anderson_afn@hotmaiol.com

Iaew pessoal! Eu estou usando uma variável Long em meu sistema e está dando Overflow e não me lembro se tem algum outro tipo de variavel maior que Long. Desde já agradeço!

Public Type tParamentrosConexao strDNS As String strUser As String strPass As String End Type Public vParamConn As tParamentrosConexao Public ConnObjetos As ADODB.Connection Private Sub Form_Load() Dim auxRS As Recordset Dim auxSQL As String vParamConn.strDNS = "NomeDaODBC" vParamConn.strUser = "NomeDeUsuário" vParamConn.strPass = "Senha" If Conexao(Conn, vParamConn) = True Then auxSQL = "SELECT * FROM TABELA WHERE CAMPO1 ='ABCD'" Call CloseRS(auxRS) Set auxRS = New Recordset If OpenRS(auxRS, auxSQL, ConnObjetos) = True Then if auxRS.recordcount > 0 then msgbox "" & auxRS!Campo1 else msgbox "Não Existe nenhum registro!" end if Call CloseRS(auxRS) Else MsgBox "Não foi possivel efetuar o select!" End If Call CloseDatabase(Conn) End Sub Public Function Conexao(ByRef DB As Connection, Parametros As tParamentrosConexao) As Boolean On Error GoTo Err_Conexao Dim strAux As String If (DB Is Nothing) Then Set DB = New ADODB.Connection Else If DB.State = 1 Then DB.Close End If Set DB = New ADODB.Connection End If DB.CursorLocation = adUseClient strAux = "DSN=" & Parametros.strDNS & ";Uid=" & Parametros.strUser & ";Pwd=" & Parametros.strPass & ";" DB.Open strAux If DB.State = 1 Then Conexao = True Else Conexao = False End If Exit Function Err_Conexao: Conexao = False Debug.Print Err.Raise; Err.number, Err.Source, Err.Description End Function Public Sub CloseRS(ByRef vRecordSet As Recordset) If Not vRecordSet Is Nothing Then If vRecordSet.State = 1 Then vRecordSet.Close End If Set vRecordSet = Nothing End If End Sub Public Function OpenRS(ByRef vRecordSet As Recordset, ByVal strSQl As String, Optional ByRef Conection As ADODB.Connection) As Boolean On Error GoTo TrataErro OpenRS = False If Conection Is Nothing Then vRecordSet.Open strSQl, Conn, 1, 3 Else vRecordSet.Open strSQl, Conection, 1, 3 End If OpenRS = True Exit Function TrataErro: MsgBox Err.Description End Function Public Sub CloseDatabase(ByRef vConn As ADODB.Connection) If Not vConn Is Nothing Then If vConn.State = 1 Then vConn.Close End If Set vConn = Nothing End If End Sub Public Function MyDate(Data As String) As String On Error Resume Next Dim DTAux As Date DTAux = CDate(Data) MyDate = Format(DTAux, "yyyy-MM-dd HH:nn:ss") End Function Public Function MyValue(value As String) As String On Error GoTo TrataErros MyValue = value If IsNumeric(value) = False Then MyValue = Replace(Val(value), ",", ".") Else MyValue = Replace(value, ",", ".") End If Exit Function TrataErros: End Function

Iaew pessoal beleza?! Não li todos os post mas percebi que o problema é na hora de conectar no mysql... bom eu me conecto com mysql normalmente em um de meus sistemas da seguinte maneira: Criando uma ODBC no "Fontes de dados (ODBC)" utilizando o MySQL ODBC 5.1 Driver e me conecto com a seguinte QueryString: "DSN=NomeDaODBC;Uid=Usuário;Pwd=Senha;" Baixe o MySQL Connector 5.1 http://dev.mysql.com/downloads/connector/odbc/5.1.html Não sei se ajudei, mas eu tambem tive problemas pra me conectar no mysql e está foi a forma mais fácil que encontrei. Até +! Também é possivel da seguinte maneira: Call RecSet.Open(StrSql, DBConnect, adOpenFowardOnly, adLockReadOnly)

A sua aplicação deve ter mais de um formulário e você deve estar usando o unload em apenas uma e deixando as outras carregadas na memoria... bom você de dar unload em todas as janelas ou use o END qualquer q seja o seu problema o end vai finalizar a sua aplicação independente de qualquer coisa.

Como no VB6 não existe herança, métodos virtuais, sobrecarga ou delegates, eventos são formas de personalizar determinadas ações fora da classe. Exatamente! Desculpa não ter respondido antes... é que não sabia como te explicar exatamente Kuroi. A principio eu queria fazer algumas classes genéricas para depois no form estar aprimorando o código conforme a necessidade. Abs,

Bom... eu fiz um teste e não deu muito certo! Dentro da "Class1" eu coloquei este script Option Explicit Public Event eTeste(sValor As String) Public Sub fTeste(ByVal sParametro As String) RaiseEvent eTeste("*" & sParametro & "*") End Sub E no "Form1" este script Option Explicit Private cTeste As New Class1 Private WithEvents EventoTeste As Class1 Private Sub Command1_Click() cTeste.fTeste "Anderson" End Sub Private Sub EventoTeste_eTeste(sValor As String) Me.Text1 = sValor End Sub Quando eu coloquei "Private WithEvents EventoTeste As Class1" os eventos são listados porem não são executados. neste exemplo quando eu desse um clique no Command1 era pra me aparecer ma Text1 o texto "*Anderson*", mas não aparece nada. Eu esqueci de alguma coisa????

Boa tarde pessoal! beleza? Em um componente é só criar criar um evento Public Event Teste(Valor As Integer) e depois executar dentro de uma function, Sub ou Property (...) RaiseEvent Teste(1) então quando eu dou um duplo click no componemte aparece o evento Private Sub NomeDoComponente_Teste(Valor As Integer) Msgbox Valor End Sub MAS, tambem é possivel se criar e executar eventos em classes mas como eu faço para usar o evento executado? tipo: Private Sub Modulo1_Teste(Valor As Integer) Sei q é possivel pois já vi este Script, mas não me recordo aonde. eu me lembro q tinha q tinha q declarar o evento do modulo aonde eu fosse usalo, mas não me lembro exatamente como. Agradeço se algem poder ajudar!

Valeu mesmos Graymalkin era exatamente isso que eu queria, mas eu tambem consegui definir a PictureBox como parent Form2.Show SetParent Form2.hWnd, Me.Picture2.hWnd

Iaew pessoal, beleza?! bom eu já vi este código em algum lugar, mas não me lembro aonde, acho q tem q se usar API, não tenho certeza! acho q eram até poucas linhas de código q transformava uma picturebox por exemplo em contaner do form como se fosse um FormMDI. bom, obrigado por enquanto!

Por coicidencia eu estou desenvolvendo um projeto para realizar backup de banco de dados Acess com agendamento e tal.... estou penssando em criar um serviço windows para verificar se já esta na hora de realizar um novo backup previamente agendado... bom eu comecei onte mas já tenho algumas coisas interesantes prontas amanha eu posto... é q eu dexei na empresa. a é !!! é em Access q você precisa do assistente de backup né? beleza!

Pessoal beleza! preciso de uma ajuda o mais rapido possivel estou criando um programa que tenho que entregar amanhã 2ª feira. e ele vai rodar em varios clientes e ele tem um MDI onde o usuário pode selecionar a imagem de fundo e a cor de fundo porem sempre que é selecionado uma imagem ela fica sempre no canto superior esquerdo, tem alguma forma de centralizar ou redimensionar esta imagem no MDI?

Opa! td beleza!! Visite o site: http://www.connectionstrings.com/ Se continuar com duvidas é só postar

Bom você quer dizer onde coloca a função que pega i numero de serie? Esse código deve ser colocado em um módulo. Aonde você pode encontrar o módulo: Bom você sabe como abrir a tela do VBA né? (ALT + F11) Para criar um novo módulo é só clicar em um icone com a seta pra baixo na barra de ferramentas do VBA --------------------------------- Bom eu tambem já tive algumas dificuldades com nivel de segurança de Macros. E pra falar a verdade não sei se é possivel mudar isso de alguma forma se não for manualmente. Porque se você criar um script para abaixar o nivel de seguraça não adiantaria muito já que o script só seria executado se o nivel estiver no baixo. ---------------------------------- E a questão do numero do HD. O HD tem o seu numero de serie de fabrica. esse numero não pode ser mudado porem não tenho certeza quanto a esse numero que é conseguido via script, pois já ouvi boatos de que na verdade esse numero de serie obtido por script na realidade seria um outro numero que é criado randomicamente quanto se formata o HD e por isso ele poderia ser cópiado com o Goost (programa que clona HD) ou poderia ser gerado outro quando alguém formatar o HD. Eu nunca fiz o teste pra saber se isso é verdade ou não. Se alguém testar por favor me fale.