Jump to content
Fórum Script Brasil

Alex Mauricio

Membros
  • Content Count

    109
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Alex Mauricio

  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. Alex Mauricio

    Erro com conexão

    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
×
×
  • Create New...