Ir para conteúdo
Fórum Script Brasil

Alex Mauricio

Membros
  • Total de itens

    108
  • Registro em

  • Última visita

Tudo que Alex Mauricio postou

  1. Boa noite a todos. Criei um relatório no Crystal Reports XI e estou tentando abrir o mesmo no VB6. Segue o código abaixo: Private Sub Command1_Click() CrystalReport1.Destination = 0 CrystalReport1.ReportFileName = "C:\Cadastro_Clientes_MC\Relatorios\relCadClientes.rpt" CrystalReport1.SortFields(0) = "+{relCadClientes.codigoCliente}" CrystalReport1.Action = 1 End Sub Porém, acontece o seguinte erro: Run-time error '20525' Unable to load report Alguém tem idéia do que eu posso fazer???? Obrigado.
  2. Boa noite. alguém tem uma apostila, tutorial ou exemplo com VB6 + Crystal Reports XI? Obrigado
  3. Boa noite. Estou estudando VB .net e estou com o seguinte código. Private Sub calculaNumeroRegistros() 'cria as variáveis para string de conexão e para a query Dim strConn As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Cadastro.mdf;Integrated Security=True;User Instance=True" Dim strSql As String = "select count(*) from Clientes" 'define o objeto de conexão Dim con As New sqlconnection(strConn) Dim cmd As New SqlCommand(strSql, con) con.Open() Try lblTotalCadastros.Text = "Clientes Cadastrados: " & cmd.ExecuteScalar.ToString Catch ex As Exception MsgBox("Erro ao calcular números de registros. Erro: " & ex.Message) Finally con.Close() End Try End Sub Está dando erro erro na string de conexão que estou pegando no arquivo app.config O que está errado?
  4. Mas com a estrutura que tá não tem como fazer???? Porque a codificação está ok..... o que está esquisito, que o retorno que to tendo é ok independente do usuario/senha está correto ou não
  5. Bom dia grupo. Sou iniciante em desenvolvimento (faço algumas coisinhas em VB) e mais iniciante ainda em VB .net. Porém estou precisando criar uma pequena aplicação em VB .net, onde não estou conseguindo criar um ítem. Tenho o código de validação de usuário conforme abaixo: Private Sub btnLogar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogar.Click Dim sSql As String Me.Text = pblstrSistema & Me.Text.Trim pblConn.ConnectionString = "Server=ALEX-PC\SQLEXPRESS;uid=sa;password=;database=bdadvocacia;integrated security=yes" sSql = "Select * from TblSenhas Where SenUsuario = '" & cboUsuarios.Text.Trim & "' And SenPassword='" & txtPassword.Text.Trim & "'" Try pblConn.Open() Try pblCmd.Connection = pblConn pblCmd.CommandText = sSql pblData.SelectCommand = pblCmd pblData.Fill(pblTblSenhas) If pblTblSenhas.Rows.Count <> 0 Then Me.Hide() frmMenuPrincipal.Show() Else MessageBox.Show("Usuario/Senha invalido(a) !!!" & Chr(13) & Chr(13) & "Tentativa " & lngTentativa.ToString & "/3", pblstrSistema & "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information) lngTentativa += 1 End If Catch myerro As Exception MsgBox("Erro de leitura no banco de dados : " & myerro.Message) End Try pblConn.Close() Catch myerro As Exception MessageBox.Show("Erro ao conectar com o Banco de dados : " & myerro.Message) Finally pblConn.Dispose() End Try End Sub No VB6 após o select eu faria um tabela.recordcount<>0 entraria no if (caso usuário e senha OK). No VB .net... o que eu posso usar? Do jeito que está, independente de colocar usuários e senhas corretos ele está abrindo o menu principal. Obrigado
  6. Bom dia pessoal. Minha situação é a seguinte. Implantei um sistema e o Banco de Dados é Access. Fiz a implantação do mesmo hoje e surgiu algumas dúvidas, que espero poder solucionar com vocês. 1) Quando abro o sistema, ele cria uma conexão com o BD e se eu for onde está o BD eu vejo que ele cria um arquivo do TIPO Microsoft Office Access Record-Locking Information. O que seria isso? Posso utilizar este BD para mais de uma pessoa ao mesmo tempo? Tenho perigo de perder minhas informações? 2) Percebi que no decorrer do dia está se criando uns arquivos *.TMP (VBCF.tmp, VBD5.tmp e VBDD.tmp)... é normal isso? Não posso pensar em perder o banco, visto que tem 200 mil registros. Obrigado.
  7. Boa tarde pessoal. Faz um tempo que não apareço por aqui. Estou com um problema. Criei um Help para colocar na minha aplicação utilizando o software HTML Help Workshop. Segui todas as orientações do tutorial (http://www.macoratti.net/ajuda.htm). Quando clico no menu onde tem que abrir o help acontece a seguinte mensagem (erro). The Window name "meuhelp" passed to HH_GET_WIN_TYPE has not been specified. aproveitando também, uma das informações que ele pede é o caminho onde está o arquivo... e quando eu criar um instalador ele vai mudar o caminho, colocando na pasta arquivo de programas... vai ter algum problema??????????? obrigado
  8. Tudo bem.. não só ela não existe mas sim todas... fiz a modelagem e fui criar TODAS as tabelas com sincronização... e as outras foram criadas...
  9. Bom dia pessoal. Estou modelando um banco de dados para teste com o DBDesigner 4 e estou tentando sincronizar com o My-SQL. E está dando o seguinte erro segue o código q está dando erro abaixo (Error while executing query). CREATE TABLE ItemPedido ( Pedido_numero INTEGER UNSIGNED NOT NULL, Produto_codigo INTEGER UNSIGNED NOT NULL, quantidade INTEGER UNSIGNED NOT NULL, total DOUBLE(9,2) NOT NULL, PRIMARY KEY(Pedido_numero, Produto_codigo), INDEX Item-Pedido_FKIndex1(Pedido_numero), INDEX Item-Pedido_FKIndex2(Produto_codigo), FOREIGN KEY(Pedido_numero) REFERENCES Pedido(numero) ON DELETE NO ACTION ON UPDATE NO ACTION, FOREIGN KEY(Produto_codigo) REFERENCES Produto(codigo) ON DELETE NO ACTION ON UPDATE NO ACTION ); Clicando em OK, aparece a mensagem "Table 'prjdelphi.itempedido' doesn't existe." O que pode ser?
  10. Boa tarde. Estou desenvolvendo um projeto de faculdade e o tempo de desenvolvimento meu tem sido meio curto. Com isso estou usando todos os meus horários vagos. Geralmente faço um pouco na empresa onde eu trabalho, em casa, e em horários vagos na faculdade (todos os lugares tem o SQL Server 2008 instalado). No meu BD eu tenho os Diagramas (onde faço toda modelagem) e gero as tabelas, tabelas e Stored Procedures. O que tá acontecendo que eu estou tentando fazer Backup do BD, como todas estas informações para continuar o meu trabalho para onde eu for. É possível isso? Existe alguma regra o uma "prática melhor" para isso? Obrigado.
  11. Bom dia Kuroi. Por incrível que pareça ainda está dando o erro. Segue o código abaixo. Private Sub cmdGravar_Click() Dim ssql As String Dim executar(0 To 3) As String Set cmd = New ADODB.Command Set rs = New ADODB.Recordset cmd.ActiveConnection = cnn cmd.CommandType = adCmdStoredProc executar(0) = Trim(txtCodigo.Text) If txtNomeLogin = Empty Then MsgBox "erro nome do login" Else executar(1) = Trim(txtNomeLogin.Text) End If If Trim(txtNomeUsuario.Text) = Empty And Trim(Len(txtNomeUsuario.Text)) < 30 Then MsgBox "nome de usuario vazio ou menor que 30 caracteres" Else executar(2) = Trim(txtNomeUsuario.Text) End If If Trim(txtSenhaUsuario.Text) = Empty Or Trim(txtConfirmaSenhaUsuario.Text) = Empty Then MsgBox "senha de usuario ou confirmação de senha de usuario vazio" End If If Trim(txtSenhaUsuario.Text) <> Trim(txtConfirmaSenhaUsuario.Text) Then MsgBox "Senhas diferentes" Else executar(3) = Trim(txtSenhaUsuario.Text) End If 'ssql = "SP_Inserir_Usuario_01(" & executar(0) & ", '" & executar(1) & "', '" & executar(2) & "', '" & executar(3) & "')" ssql = "call SP_Inserir_Usuario_01 (" & executar(0) & ", '" & executar(1) & "', '" & executar(2) & "', '" & executar(3) & "')" Set rs = cmd.Execute(ssql) End Sub E o erro é: Run-time error '-2147217900 (80040e14)': [MySQL][ODBC 5.1 Driver][mysqld-5.1.41-community] You have an error in your SQL Syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near" at line 1 Obrigado
  12. Boa noite. Sou iniciante em Banco de Dados SQL Server 2008 e estou encontrando alguma dificuldades. No diagrama do BD tenho uma tabela com um campo X varchar(70). Tentei mudar para varchar(73). Quando vou salvar o diagrama (e consequentemente as tabelas em si) dá o seguinte erro: "Não é permitido salvar as alterações. As alterações feitas requerem que as tabelas a seguir sejam descartadas e recriadas. Você alterou uma tabela que não pode ser recriada ou habilitou a opção Evitar salvar alterações que exijam recriação de tabelas." Como faço para alterar o diagrama e mudar as tabelas. Obs.: quando vou modificar a tabela direto (design) dá o mesmo erro. Obrigado
  13. Alex Mauricio

    Insert

    Boa noite. Sou iniciante em SQL Server 2008 e estou encontrando algumas dificuldades. Tenho a seguinte instrução: insert into tbl_Aluno (codigo_Aluno, nome_Aluno, senha_Aluno, ctr_Aluno, data_Emissao_Certificado_Aluno) values(1, 'Alex Mauricio da Silva', '123mudar', 5000, 01/12/2010); go Essa é a maneira de colocar data ou deve ser em outro formato? Obrigado.
  14. pois é kuroi... é isso mesmo (e o q fiz foi conforme você pediu) inclusive fiz mais.... coloquei breakepont em cada executar, e fui vendo se estava armazenando no array... e está tudo ok... mas na hora que chega na execução da variável ssql está em branco. tem alguma outra forma de contato com você para eu mandar o prj completo para testar? obrigado
  15. Private Sub cmdGravar_Click() Dim ssql As String Dim executar(0 To 3) As String Set cmd = New ADODB.Command Set rs = New ADODB.Recordset cmd.ActiveConnection = cnn cmd.CommandType = adCmdStoredProc ' cmd.Execute "SP_Inserir_Usuario_01" 'cmd.CommandText = "SP_Inserir_Usuario_01 " & executar(0) & ", '" & executar(1) & "', '" & executar(2) & "', '" & executar(3) & "'" 'stored procedure inserindo usuario 'ssql = "{call SP_Inserir_Usuario_01(?,?,?,?)}" 'validação dos campos e montagem da query executar(0) = Trim(txtCodigo.Text) If txtNomeLogin = Empty Then MsgBox "erro nome do login" Else executar(1) = Trim(txtNomeLogin.Text) End If If Trim(txtNomeUsuario.Text) = Empty And Trim(Len(txtNomeUsuario.Text)) < 30 Then MsgBox "nome de usuario vazio ou menor que 30 caracteres" Else executar(2) = Trim(txtNomeUsuario.Text) End If If Trim(txtSenhaUsuario.Text) = Empty Or Trim(txtConfirmaSenhaUsuario.Text) = Empty Then MsgBox "senha de usuario ou confirmação de senha de usuario vazio" End If If Trim(txtSenhaUsuario.Text) <> Trim(txtConfirmaSenhaUsuario.Text) Then MsgBox "Senhas diferentes" Else executar(3) = Trim(txtSenhaUsuario.Text) End If 'ssql = "SP_Inserir_Usuario_01(" & executar(0) & ", '" & executar(1) & "', '" & executar(2) & "', '" & executar(3) & "')" ssql = "SP_Inserir_Usuario_01 " & executar(0) & ", '" & executar(1) & "', '" & executar(2) & "', '" & executar(3) & "'" Set rs = cmd.Execute(ssql) End Sub
  16. ai que está o problema... a variavel ssql está vazia...
  17. ok a conexão continua aberta... segue o erro completo: Run-time error '-2147217900 (80040e14)': [Mysql][ODBC 5.1 driver][mysqld-5.1.41-community]You have an error in your sql syntax; check the manoual that corresponds to your mysql server version for the right syntax to user near "at line 1 agora... já testei a stored procedure direto no mysql e funcionou call procedure(valores) e funcionou obrigado
  18. tava declarado o executar mas não como array... agora já acertei... porém agora está dando outro erro de conexão (embora já passou por login e pegou ultimo código e pra isso usou a conexão e funcionou) conforme abaixo. run-time error '-2147217900 (80040e14)': [mysql][odbc 5.1 driver] etc etc
  19. tirei os parenteses... e da a mensagem run-time error '91': Object variable or with block variable not set mas sempre aponta o erro para o executar(0) é isso que não estou entendendo.
  20. é mestre kuroi... não consegui captar sua mensgem... passei o código para depos que preenchi todos os executar acertei o cmd.execute ssql porém continua dando errado. obrigado
  21. não sei porque da chave... peguei um modelo e to tentando aplicar pode ser assim também... neste caso agora... como executo ela no final Private Sub cmdGravar_Click() Dim ssql As String cmd.ActiveConnection = cnn cmd.CommandType = adCmdStoredProc 'stored procedure inserindo usuario 'ssql = "{call SP_Inserir_Usuario_01(?,?,?,?)}" ssql = "SP_Inserir_Usuario_01(" & executar(0) & ", '" & executar(1) & "', '" & executar(2) & "', '" & executar(3) & "')" 'validação dos campos e montagem da query executar(0) = Trim(txtCodigo.Text) If txtNomeLogin = Empty Then MsgBox "erro nome do login" Else executar(1) = Trim(txtNomeLogin.Text) End If If Trim(txtNomeUsuario.Text) = Empty And Trim(Len(txtNomeUsuario.Text)) < 30 Then MsgBox "nome de usuario vazio ou menor que 30 caracteres" Else executar(2) = Trim(txtNomeUsuario.Text) End If If Trim(txtSenhaUsuario.Text) = Empty Or Trim(txtConfirmaSenhaUsuario.Text) = Empty Then MsgBox "senha de usuario ou confirmação de senha de usuario vazio" End If If Trim(txtSenhaUsuario.Text) <> Trim(txtConfirmaSenhaUsuario.Text) Then MsgBox "Senhas diferentes" Else executar(3) = Trim(txtSenhaUsuario.Text) End If Set ssql = cmd.Execute End Sub O erro passa a ser: Compile error: Object required Obrigado
  22. Boa tarde grupo. Estou com uma nova aplicação e como o volume pode ser grande eu gostaria de fazer com Stored Procedure. Estou fazendo um teste apenas... Criei a seguinte Stored Procedure (que está funcionando) no MySQL conforme abaixo (se tiver como melhorar ela pode falar também): CREATE DEFINER=`root`@`localhost` PROCEDURE `SP_Inserir_Usuario_01`(V_COD_USUARIO INT(11), V_NOME_USUARIO VARCHAR(40), V_NOME_LOGIN VARCHAR(10), V_SENHA_LOGIN VARCHAR(10)) BEGIN INSERT INTO tbl_usuario (COD_USUARIO, NOME_USUARIO, NOME_LOGIN, SENHA_LOGIN) values (V_COD_USUARIO, V_NOME_USUARIO, V_NOME_LOGIN, V_SENHA_LOGIN); END; Agora preciso que a aplicação VB 6.0 dispare a Stored com os valores desejados (estou usando ADO). Segue abaixo o códgio: Private Sub cmdGravar_Click() Dim ssql As String cmd.ActiveConnection = cnn cmd.CommandType = adCmdStoredProc 'stored procedure inserindo usuario ssql = "{call SP_Inserir_Usuario_01(?,?,?,?)}" 'validação dos campos e montagem da query executar(0) = Trim(txtCodigo.Text) If txtNomeLogin = Empty Then MsgBox "erro nome do login" Else executar(1) = Trim(txtNomeLogin.Text) End If If Trim(txtNomeUsuario.Text) = Empty And Trim(Len(txtNomeUsuario.Text)) < 30 Then MsgBox "nome de usuario vazio ou menor que 30 caracteres" Else executar(2) = Trim(txtNomeUsuario.Text) End If If Trim(txtSenhaUsuario.Text) = Empty Or Trim(txtConfirmaSenhaUsuario.Text) = Empty Then MsgBox "senha de usuario ou confirmação de senha de usuario vazio" End If If Trim(txtSenhaUsuario.Text) <> Trim(txtConfirmaSenhaUsuario.Text) Then MsgBox "Senhas diferentes" Else executar(3) = Trim(txtSenhaUsuario.Text) End If End Sub Minhas variáveis de conexão estão em um módulo, e vou postar abaixo: Option Explicit Public cnn As ADODB.Connection Public cmd As ADODB.Command Public rs As ADODB.Recordset Public executar As ADODB.Parameter Public Function ConectaBanco() Set cnn = New ADODB.Connection cnn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=bdnprecibo;USER=root;PASSWORD=root;" cnn.CursorLocation = adUseClient cnn.Open End Function Estou com dificuldades em disparar a Stored. Alguém poderia me ajudar? Obrigado
  23. Boa noite pessoal. Gostaria de tirar uma dúvida... Fiz um código para carregar um arquivo csv em um flexgrid... Porém está dando um erro na parte do código em negrito. Private Sub carregaGrid() Dim strArquivo As String Dim strTexto As String Dim lngPosIni As Long Dim lngPos As Long Dim strCodigo As String Dim strTelefone As String Dim strDataCadastro As String Dim strSituacao As String Dim strDataVigor As String Dim codigo As Long codigo = 0 strArquivo = cmmCarregaArquivo.FileName Open strArquivo For Input As #1 Line Input #1, strTexto Dim lngLinha As Long lngLinha = 1 While Not EOF(1) lngPos = Empty strCodigo = Empty strTelefone = Empty strDataCadastro = Empty strSituacao = Empty strDataVigor = Empty lngPosIni = 1 If Trim(strTexto) <> Empty Then If InStr(1, Trim(strTexto), "Arquivo Lista Gerado") <> 0 _ Or InStr(1, Trim(strTexto), "Bloqueio de Ligacoes Telefonicas") <> 0 _ Or InStr(1, Trim(strTexto), "Fundacao de Protecao e Defesa do Consumidor") <> 0 _ Or InStr(1, Trim(strTexto), "a partir de") <> 0 Then Line Input #1, strTexto 'End If Else ' MsgBox "VAI CARREGAR O ARQUIVO!!!" With grdArquivo codigo = codigo + 1 strTexto = Trim(strTexto) strCodigo = codigo .Row = lngLinha .Col = 0 .Text = strCodigo lngPos = InStr(lngPosIni, strTexto, ";") strTelefone = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) .Col = 1 .Text = strTelefone lngPosIni = lngPos + 1 lngPos = InStr(lngPos + 1, strTexto, ";") strDataCadastro = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) .Col = 2 .Text = strDataCadastro lngPosIni = lngPos + 1 lngPos = InStr(lngPos + 1, strTexto, ";") strSituacao = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) .Col = 3 .Text = strSituacao lngPosIni = lngPos + 1 lngPos = InStr(lngPos + 1, strTexto, ";") [b] strDataVigor = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)[/b] .Col = 4 .Text = strDataCadastro .Rows = .Rows + 1 lngLinha = lngLinha + 1 End With End If End If Line Input #1, strTexto Wend Close #1 End Sub run-time erro '5': invalid procedure call or argument O que pode ser? Obrigado
  24. então kuroi.... na sequencia tem um else e lá embaixo eu fecho o if.... sendo assim, não compreendi onde tenho que fechar este if... obrigado
  25. Pessoal, estou criando uma rotina que vai ler um arquivo texto *.csv e vai carregar um Flex Grid conforme o códgio abaixo: Private Sub carregaGrid() Dim strArquivo As String Dim strTexto As String Dim lngPosIni As Long Dim lngPos As Long Dim strCodigo As String Dim strTelefone As String Dim strDataCadastro As String Dim strSituacao As String Dim strDataVigor As String Dim codigo As Long codigo = 0 strArquivo = cmmCarregaArquivo.FileName Open strArquivo For Input As #1 Line Input #1, strTexto While Not EOF(1) lngPos = Empty lngPosIni = Empty strCodigo = Empty strTelefone = Empty strDataCadastro = Empty strSituacao = Empty strDataVigor = Empty codigo = codigo + 1 Dim lngLinha As Long lngLinha = 0 If Trim(strTexto) <> Empty Then If InStr(1, Trim(strTexto), "Arquivo Lista Gerado") <> 0 _ Or InStr(1, Trim(strTexto), "Bloqueio de Ligacoes Telefonicas") <> 0 _ Or InStr(1, Trim(strTexto), "Fundacao de Protecao e Defesa do Consumidor") <> 0 _ Or InStr(1, Trim(strTexto), "a partir de") <> 0 Then Line Input #1, strTexto Else MsgBox "VAI CARREGAR O ARQUIVO!!!" With grdArquivo .Row = lngLinha .Col = 0 .Text = strCodigo lngPos = InStr(lngPosIni, strTexto, ";") strTelefone = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) .Col = 1 .Text = strTelefone lngPosIni = lngPos + 1 lngPos = InStr(lngPos + 1, strTexto, ";") strDataCadastro = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) .Col = 2 .Text = strDataCadastro lngPosIni = lngPos + 1 lngPos = InStr(lngPos + 1, strTexto, ";") strSituacao = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) .Col = 3 .Text = strSituacao lngPosIni = lngPos + 1 lngPos = InStr(lngPos + 1, strTexto, ";") ' If lngPos = 0 Then ' strDataVigor Mid(strTexto, lngPosIni) ' Else ' strDataVigor = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni) ' End If .Col = 4 .Text = strDataVigor .Rows = .Rows + 1 lngLinha = lngLinha + 1 End With End If Line Input #1, strTexto [i] Wend[/i] Close #1 End Sub Porém o mesmo está apresentando o seguinte erro: Compile error: Wend withourt while Clicando em OK, ele aponta para a linha em itálico (conforme código acima). Galera não consegui identificar nada de errado... deve ser algo bobo... ocbrigado
×
×
  • Criar Novo...