Danleonhart
-
Total de itens
574 -
Registro em
-
Última visita
Posts postados por Danleonhart
-
-
Também não Kuroi...
Tentei inserir em uma tabela no SQL Server dessa forma, e o erro começou logo na inserção do campo "Nome"...
o erro foi esse:
Nesse caso, tentei inserir apenas no campo "Nome"...
e a linha que aponta o erro é a : ".Execute".
Se coloco para inserir também com a imagem o erro volta a ser o do inicio.
Isso no SQL Server...
No Access, só o "Nome" vai normalmente...dá pró se tentar inserir a imagem...
-
Seguinte pessoal...
É possível inserir dados do Tipo Binário no BD com parâmetros ? :huh:
Assim eu sei que é possível:
Sub Gravar_Dados() Abb '<====== Função que abre a conexão com o BD Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseServer Rs.Open "SELECT * FROM InDat", Con, adOpenStatic, adLockOptimistic 'inclui um registro Rs.AddNew Rs("Nome") = txtNome.Text Rs("Foto") = Por_Em_Byte(camFoto) '<= Função que converte uma imagem em Bytes Rs.Update Set Rs = Nothing Con.Close MsgBox "Dados gravados !", vb script:Agora estou tentando assim...que é com parâmetros nos campos:Sub Inserir_Dados() Dim Cmd As ADODB.Command Dim Inserir As String Dim b() As Byte b() = Por_Em_Byte(camFoto) Inserir = "INSERT INTO InDat(Nome,Foto)VALUES(@Nome,@Foto)" Abb Set Cmd = New ADODB.Command With Cmd .ActiveConnection = Con .Prepared = True .CommandText = Inserir .CommandType = adCmdText .Parameters.Append .CreateParameter("@Nome", adChar, adParamInput, , txtNome.Text) .Parameters.Append .CreateParameter("@Foto", adBinary, adParamInput, , b()) .Execute End With MsgBox "Dados Salvo !", vbInformation Set Cmd = Nothing Con.Close End SubSempre que tentei apresentou Erro: 3001
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
e aponta para a linha: .Parameters.Append .CreateParameter("@Foto", adBinary, adParamInput, , b())
Já mudei o tipo de "adBinary" para "AdVarBinary", "adLongVarBinary" e "AdArray" mas continua sempre dando o mesmo erro... <_<
O BD é Access 2007 e o tipo do campo está como Objeto OLE.
*** EDITADO ***
Agora está dando este erro:
Erro: 3708
Objeto Parameter definido incorretamente. As informações são inconsistentes ou incompletas.
<_<
-
Consegui...
O erro que estava cometendo era de configurar no "SMTPServer" o servidor do e-mail do destinatário, e enviar com usuário e senha de outro servidor
...então corrigi...
Optei pelo CDO.sys, mas em todas as outras funcionaram...
O script ficou assim:
Private Sub EnvioDeEmail() On Error GoTo Ver Dim Msg As CDO.Message Dim Cof As CDO.Configuration Dim Camp Set Msg = New CDO.Message Set Cof = New CDO.Configuration Set Camp = Cof.Fields With Camp .Item(cdoSMTPServerPort) = txtPorta.Text .Item(cdoSendUsingMethod) = cdoSendUsingPort ' ou 2 .Item(cdoSMTPServer) = CbMail.Text .Item(cdoSMTPConnectionTimeout) = 15 ' quick timeout .Item(cdoSMTPAuthenticate) = cdoBasic ' ou 1 .Item(cdoSMTPUseSSL) = True .Item(cdoSendUserName) = vUserName .Item(cdoSendPassword) = vPasswrd .Update End With With Msg Set .Configuration = Cof .From = vUserName .Sender = vUserName .To = CbEnd.Text .Subject = txtAss.Text .HTMLBody = txtMens.Text .Send End With MsgBox "OK !" Exit Sub Ver: MsgBox "Erro Número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description End Sub
Detalhe :
No Hotmail as mensagens chegam no Lixo...só depois do usuário informar que é confiável é que passa a chegar na Caixa de Entrada.
-
Beleza Kuroi !
Tempão sumido hein ! :D
Obrigado pela dica ! vou procurar, baixar e avaliar (se é que posso... iniciante é folgado hein).
-
Pessoal...
De tanto falarem que o VB é um lixo de programação resolvi aprender outra, e vejo falarem que C++ é a mais próxima do que podemos dizer de uma linguagem completa.
Mas estou tendo dificuldades em encontrar uma boa IDE, que seja bem intuitiva, e se possível que detecte erros no script :)
Encontrei uma com opções visuais: wxFormBuilder
e tenho aqui a Visual C++ 6.0 (ainda do Microsoft Visual Studio 6.0),
e a que vem no VS 2010.
Gostaria de ouvir opiniões :rolleyes:
-
Pessoal...
Alguém já conseguiu enviar e-mails para os servidores do GMail e Hotmail com uma das bibliotecas abaixo citadas?
AspMail, CDO.SYS , PY.SendMail, VbSendMail
Só consigo enviar para o servidor do Yahoo.
Script's que testei até agora:
Com a AspMail (AspMail.dll):
Sub Enviar_Email() On Error GoTo Final Dim AspMail As New ASPEMAILLib.MailSender With AspMail .Host = CbMail.Text .Port = txtPorta.Text .From = vUserName .FromName = "Adm." .Subject = txtAss.Text .Body = txtMens.Text .MailFrom = vUserName .Username = vUserName .Password = vPasswrd .AddAddress CbEnd.Text .Send End With MsgBox "Envio confirmado !", vbInformation Exit Sub Final: MsgBox "Erro número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description, vbCritical End Sub
Com CDO.SYS (cdosys.dll)Private Sub EnvioDeEmail() On Error GoTo Ver Dim Msg As CDO.Message Dim Cof As CDO.Configuration Dim Camp Set Msg = New CDO.Message Set Cof = New CDO.Configuration Set Camp = Cof.Fields With Camp .Item(cdoSMTPServerPort) = txtPorta.Text .Item(cdoSendUsingMethod) = cdoSendUsingPort ' ou 2 .Item(cdoSMTPServer) = CbMail.Text .Item(cdoSMTPConnectionTimeout) = 30 ' quick timeout .Item(cdoSMTPAuthenticate) = cdoBasic ' ou 1 .Item(cdoSMTPUseSSL) = True .Item(cdoSendUserName) = vUserName .Item(cdoSendPassword) = vPasswrd .Update End With With Msg Set .Configuration = Cof .From = vUserName .Sender = vUserName .To = CbEnd.Text .Subject = txtAss.Text .HTMLBody = txtMens.Text .Send End With MsgBox "OK !" Exit Sub Ver: MsgBox "Erro Número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description End Sub
Com PY.SendMail :Sub Enviar_Mail() Set pySM = CreateObject("Py.SendMail") With pySM .SMTPServer = CbMail.Text .Port = txtPorta.Text .Recipient = CbEnd.Text .To = CbEnd.Text .From = vUserName .Sender = vUserName .Subject = txtAss.Text .Body = txtMens.Text .PureText = False ' Se é texto ou HTML (True = Texto, False = HTML) .User = vUserName .Password = vPasswrd retorno = .Send() LbRetorno = "Retorno: " & retorno End With End SubCom VbSendMail (VbSendMail.dll) :Sub Go_Email() On Error GoTo Final Dim sM As New vbSendMail.clsSendMail With sM .SMTPHost = CbMail.Text .SMTPPort = txtPorta.Text .From = vUserName .Username = vUserName .Password = vPasswrd .FromDisplayName = vUserName .Recipient = CbEnd.Text .RecipientDisplayName = CbEnd.Text .UseAuthentication = True .ConnectTimeout = 30 .PersistentSettings = True .IsValidEmailAddress CbEnd.Text .Subject = txtAss.Text .Message = txtMens.Text .Send End With MsgBox "Envio confirmado !", vbInformation Exit Sub Final: MsgBox "Erro número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description, vbCritical End Sub
Com todas consigo enviar para o servidor Yahoo...mas com nenhuma consegui para GMail e Hotmail...
:mellow:
-
Só um detalhe... é bom saber se no PC já não existe a biblioteca instalada...
pois se no PC já contiver, um novo registro poderá causar mal funcionamento das aplicações que a utilizam..
-
Sempre que tentei instalar sem privilégios de ADM não consegui nem passar da 1ª parte do instalador :D
então deixei minha aplicação assim mesmo, pois só quem tem privilégios vai poder instalar mesmo...
Uma outra alternativa foi instalar a aplicação em um diretório que não seja do sistema (C:Windows, C:\Arquivos de Programas)
:)
-
Valeu pessoal !
O Matheus-VB6 me enviou via e-mail ;)
Estou disponibilizando um link ativo...espero que o Graymalkin não se aborreça
Link=> Servidor 4Shared :
http://www.4shared.com/zip/f9DmXDZm/PySendMail_128.html?
-
Pessoal...
Alguém tem o PY.SendMail que possa disponibilizar ?!
No site do Graymalkin não dá...tá fora do ar... :mellow:
-
Valeu Jonas ! :)
Acredite...é coisa do Windows 7 mesmo cara...
até o técnico do provedor veio aqui em casa e não soube compartilhar...chegou dizendo que o roteador não tinha a função AP, coisa que eu entrei nas configurações e descobri que tem sim...depois mostrei a ele...foi quando ele cedeu.
Agora o Win7 trouxe muitas coisas boas e funcionais que o XP não tinha, em compensação a configuração de rede ficou baita complicado...antes para se fazer uma Ponte de Rede bastava selecionar os adaptadores e BINGO !
agora chove dinheiro e ele não faz... uso o Ultimate, antes que pense ser por causa da versão.
Um outro detalhe é que no Ultimate minha placa USB não apresenta a aba "Compartilhamento" onde se marca a opção "Permitir que outros usuários da rede se conectem pela conexão deste computador à internet"...
Já no NetBook (que é Win7 - Home Basic) apresentou...então conectei a placa USB no NET e através de um cabo CrossOver compartilhei para o Desktop.
Vá entender isso <_<
-
Pessoal...
Em quantos PC's posso usar o mesmo serial do Win7 ???
Trabalho com instalações/manutenções de sistemas e tenho cerca de 40/50 clientes e não estou querendo usar cracks para rodar o sistema.
Quero trabalhar legalizado e fornecer aos meus clientes um produto original (na verdade este é meu 2º trabalho :rolleyes: ).
Quero Professional ou Ultimate, a que for mais viável em termos de custo...
Vi em sites de venda que custam entre R$ 250,00 e R$ 300,00 a versão Professional e entre R$ 380,00 e R$ 450,00 a versão Ultimate...mas em nenhum site explica se o serial é ilimitado...ou seja, se posso usar em todos micros que quiser, se tem limite ou apenas em um PC.
Detalhe: não é para Redes não...cada cliente terá em sua residência o sistema instalado.
-
Densyy
Terminei de publicar minha Dica...vê se te ajuda :rolleyes:
Link:
https://sites.google.com/site/dicasvb/home/vb6_res_edt
VALEU!!!
-
-
Serve para chamar as variáveis de ambientes...
tipo, se você quer dizer para sua aplicação salvar determinado arquivo no diretório onde o sistema está instalado, e você coloca : "C:\xxxxxxxx"
se no PC de um dos usuários o sistema estiver instalado no disco "D:\", com certeza sua aplicação vai dá erro...
então nesse caso utiliza-se:
Environ$("SYSTEMDRIVE")Que corresponde ao "C:\", ou "D:\" ou "E:\"...seja lá onde o sistema estiver instalado...
Outros exemplos...
Environ$("TEMP") ' Pasta de arquivos temporários... pode ser ("TMP") também... Environ$("HOMEPATH") ' Pasta do Usuário que está logado no PC Environ$("COMPUTERNAME") ' Retorna o Nome do Computador Environ$("CommonProgramFiles") ' Pasta de Arquivos Comuns Environ$("SYSTEMROOT") ' Pasta C:\Windows Environ$("USERNAME") ' Retorna o nome do usuário que está logado.E por aí vai...
Se quiser saber mais comandos, abre o Prompt de Comando e digita: SET
será listado diversas variáveis do sistema Windows.
-
Vixi... então se tratava de variaveis de ambiente...
eu uso a função Environ$()... :huh:
-
Pessoal...
Tentei a horas fazer meu Netbook receber internet do PC através de conexão AD-Hoc Wireless...
no PC Descktop é o Win7 Ultimate, e no Net o Home-Basic...
Li diversos tutoriais que ensinam...fiz da maneira que descreveram...mas sem sucesso...
Alguém tem alguma dica de como fazer isso ???
Meu provedor é via Rádio, recebo em uma Placa de Rede USB... e segundo os tutoriais, era possível compartilhar a conexão através de configuração Ad-Hoc...sem precisar de mais uma placa de rede Wireless ou Access Point.
-
Densyy
Não dê atenção para este usuário...ele até agora só fez críticas, mas mostrar algo de sua autoria, ou colaborar com o Fórum nem nem... <_<
-
Como assim diretório no PATH ??? :blink:
PATH de quê ??? você quer criar um diretório ??? é isso ??? :unsure:
-
Link expirado...
Tem como reupar ?! :rolleyes:
-
Você tem de usar a Sub onde a mensagem está chegando...
EX:
Private Sub Wsk_DataArrival(ByVal bytesTotal As Long) Dim StrDados As String Wsk.GetData StrDados Parametros_RTB StrDados, vbRed, Rtb1 End Sub
No exemplo coloquei para a mensagem que chegar ficar na cor vermelha
-
Densyy
Cara, foi o melhor que pude fazer... :mellow:
Estou corrigindo um projeto e passei uns três dias (mas não direto, claro :) ) bolando uma maneira...e com uma ajudinha de um amigo, fiz este exemplo...
Projeto:
http://www.4shared.com/zip/CxjHchEH/RichTextBox-Testes.html
Espero que ajude em algo !
FUI !
-
Vixi !
Tem TextBoxes da versão Microsoft Forms 2.0 configurados como TextBoxes...
esse foi um dos problemas que achei de primeira...
*** EDITADO ***
Olha, não mexi em nada no código, apenas alterei para as configurações necessárias quando se usa os Objetos do Componente Microsoft Forms 2.0 Objects
Projeto :
http://www.4shared.com/zip/aepiKz4j/Chat.html
PS:
Estou terminando um exemplo de como inserir texto colorido no RichTextBox...
creio que hoje (já é mais de meia noite...) pela manhã devo terminar...postarei no outro tópico...
ahhh ! e quando colocar script nos topicos, use a ferramenta "Inserir Code"...ela evita poluição visual, pois destaca o script em meio ao texto da pergunta
... -
Parabéns CeSaR340
Eu estava pensando nisso também :rolleyes:
só um favorzinho...quando for postar código utiliza a opção "Inserir Code" (é a ultima opção dos ícones de ferramentas)...
assim facilita para entender-se o código, e evita poluição visual
VALEU CARA !!!
Inserir Tipo Binário no BD com parâmetro
em Visual Basic
Postado
Kuroi,
Na função ImagemBinario() a parte do script: "Optional ByRef n As Long = 0&"
isso quer dizer que "n" retorna o tamanho da foto ?! é isso :huh:
é que não costumo usar "ByVal" e "ByRef" :rolleyes:
então, a parte "ByVal file as String" é o caminho da foto...isso é necessário para a função realizar sua tarefa...
mas o "Optional ByRef n As Long = 0&" é opicional, então, se colocar algum valor nesse parâmetro ele vai influenciar em algo na função ??? porque dentro da função o "n" vai receber valor (no caso o tamanho final do arquivo).
só curiosidade...porque não sabia que função retornava mais de um valor...no caso, retornando um vetor de Bytes "b()" e o tamanho do fim do arquivo "n"...
Sai um pouco do foco por pura curiosidade :D
Estou a fazer testes com as sugestões ^_^
Obrigado pela atenção !