Ir para conteúdo
Fórum Script Brasil

GilbertoB

Membros
  • Total de itens

    45
  • Registro em

  • Última visita

Tudo que GilbertoB postou

  1. Aee :lol: agora entendi, já testei aki e deu certo vlw Kuroi pela ajuda e vlw Fercosming pelo exemplo corintiano é sempre jente boa por isso eu sou corintiano :D
  2. Kuroi desculpa se to tomando tempo ^_^ mas é que ainda não tenho muita experiencia no vb, sera que poderia me da um exemplo de como usa essa função Replace() ?
  3. Primeiramente quero agradecer por estar me ajudando, o que ocorre aqui é que tenho um sistema de cadastro com um campo "Observações" e nesse compo usa muito ' e " tentei usar o que você postou mas continua dando erro de sintaxe mesmo usando só a aspas simples, poderia desabilitar as aspas na textbox mas ficaria meio estranho porque tem horas que você tem usalas, se souber de algo eu agradeço. Eu não tenho muita esperiencia com o VB 6, agradeço se tiver pasciencia de continuar me ajudando :D
  4. é memorando mesmo que salvei coloquei o nome errado :blush: mas ai quando coloco ' ou " ele da erro de sintaxe e como eu preciso salvar um texto que pode ter todos ascentos intão não vai da.
  5. Estou com o seguinte problema, tenho que armazenar um texto muito grande no acess e como o campo texto só supota 255 caracteres então coloquei o campo como manuscrito mas ai quando coloco o ascento ' ou " ele da erro de sintaxe, alguém poderia me ajudar a resolver o problema ou me dizer otra forma de armazenar um texto com mais de 1500 caracteres ?
  6. Vlw Danleonhart, é que não sabia como pegar o mes atual ^_^ Não tinha nem ideia de como usar o calendario :blush: mas com sua explicação ficou facil :D Agora entendi tudo fiz até algumas mudanças com os anos do calendario fico bem legal :)
  7. Tenho um calendario MonthView no meu projeto e queria fazer mais 2 calendarios ai ficaria assim um mostrando a data atual um mostrando um mes antes e o outro mostrando um mes depois, alguém sabe como fazer isso ?
  8. Estou com um problema com meu projeto, acontece que tenho algumas OptionButton e salvo o valor contido na propriedade Value que no caso do OptionButton seria True ou False em um campo do banco de dados depois quando vou carregar o form com os dados preecho os campos Value dos OptionButton, mas o problema é que o meu banco de dados esta gravando os dados True e False em português que fica Verdadeiro e Falso, e quando o Value do OptionButton é preenchida da erro. Pelo que parece o problema é no banco, sera que podem me ajudar ? ^_^
  9. Como faço pra nomear as colunas do meu FlexGrid ? Gostaria de por a Primeira coluna como Codigo a segunda como Nome e a terceira como Data, como se fosse um cabeçalho, alguém pode me ajudar ? :D
  10. Deu certo aqui quando fui testa o código que você mando eu esqueci da aspa :blush: ai deu certo; é que o WHERE ta va no campo Nome ai eu estava usando texto agora mudei pro Codigo e esqueci que tinha que musa as aspas também :lol: vlw mano pela ajuda ^_^
  11. Eu sei que não é aconselhável mas estava sem pratica ai quando vi já tinha posto e como não deu nenhum problema deixei assim mesmo ^_^ Testei o código e deu o seguinte erro : Run-time error '-2147217900(80040e14)': Erro de sintaxe na seqüência de caracteres na expressão de consulta 'Codigo = '16'. O conteudo da label lblCodigo é numerico sem duvida; mas pelo erro que apresenta esta parecendo que não é numérico, já verifiquei tudo e não acho o erro, mas se eu mudar o WHERE por exemplo colocar txtNome.Text no lugar do lblCodigo.Caption ai corre tudo normalmente. Se souber de algo ou se tiver alguma suspeita de onde pode estar o erro eu agradeceria ^_^
  12. Esqueci de colocar o código :blush: Con.Execute "update Cadastro set Nome = '" & txtNome.Text & "', Data = '" & txtData.Text & "', Endereço = '" & txtEndereço.Text & "', Numero = '" & txtNumero.Text & "', Complemento = '" & txtComplemento.Text & "', Bairro = '" & txtBairro.Text & "', Cidade = '" & txtCidade.Text & "', Uf = '" & txtUf.Text & "', Cep = '" & txtCep.Text & "', Email = '" & txtEmail.Text & "', Pessoa = '" & cboPessoa.Text & "', Telefone = '" & txtTelefone.Text & "', Celular = '" & txtCelular.Text & "', Cpf = '" & txtCpf.Text & "', Rg = '" & txtRg.Text & "', Observaçoes = '" & txtObservaçoes.Text & "', Cliente = '" & chkCliente.Value & "', Telefone2 = '" & txtTelefone2.Text & "', Celular2 = '" & txtCelular2.Text & "' WHERE Codigo = '" & lblCodigo.Caption & "'" Só lembrando que o campo da tabela que mudei para numérico é o campo Codigo e que o codigo funcionava normalmente antes mas como apresento os dados da tabela em ordem numerica pelo campo codigo no FlexGrid.
  13. Eu estava com um problema para fazer uma pesquisa em ordem numérica, o problema foi resolvido quando coloquei o campo do banco de dados como numérico mas agora esta dando um erro no update do cadastro ele da o seguinte erro: Run-time error '-2147217913 (80040e07)': Tipo de dados imcompatível na expressão de critério. poedem me ajudar ? ^_^
  14. Obrigado pela resposta ^_^ , foi so por o campo como numerico que resolveu o problema vlw pela ajuda :D
  15. Tenho uma pesquisa que preenche um FlexGrid em ordem numerica mas esta ordenando errado, a ideia era por 1,2,3 ...10,11,12 e por ai vai mas ta ocorrendo o seguinte : 10 11 12 13 1 2 3 4 5 6 7 8 9 Aqui ta o codigo que to usando pra pesquisa ele filtra a pesquisa e passa os dados para o FlexGrid a ordem numerica é posta no campo codigo. Dim SQLbd As String AFB Set Rs = New ADODB.Recordset SQLbd = "Select Codigo, Nome, Data from Cadastro Order By Codigo" 'Aqui é feito a filtragem e o campo Codigo é posto em ordem, no caso numerica Rs.CursorLocation = adUseClient Rs.Open SQLbd, Con, adOpenKeyset, adLockReadOnly Dim i As Integer Dim j As Integer MSFlexGrid1.ColWidth(1) = 3000 MSFlexGrid1.ColWidth(0) = 750 MSFlexGrid1.ColWidth(2) = 1000 If Not Rs.EOF Then MSFlexGrid1.Rows = Rs.RecordCount + 1 MSFlexGrid1.Cols = Rs.Fields.Count For i = 0 To Rs.Fields.Count - 1 MSFlexGrid1.TextMatrix(0, i) = Rs.Fields(i).Name Next i = 1 Do While Not Rs.EOF For j = 0 To Rs.Fields.Count - 1 If Not IsNull(Rs.Fields(j).Value) Then MSFlexGrid1.TextMatrix(i, j) = Rs.Fields(j).Value End If Next i = i + 1 Rs.MoveNext Loop End If
  16. Não funciona mesmo não, viagei nesse comanda ai mas agora eu resolvi e testei antes de posta ^_^ Dim vn vn = FGrid..TextMatrix(FGrid.Row, 0) vlw pela ajuda, e poderia me dizer como eu encerro o tópico ? ;)
  17. Para capturar a célula que você coloca o Mouse, use o ".Clip"... não importa a linha ou coluna, ele captura exatamente o que está dentro da celula... Dim vN vn = FGrid1.Clip Vê se isso te ajuda...:)
  18. Só mais uma duvida que esqueci de mencionar ^_^ como que faço pra verifica se o FlexGrid esta vazio ?
  19. Nunca usei o FlexGrid, se poderem me ajuda ficaria grato :D Tenho um FlexGrid com 3 colunas Codigo , Nome e Data, o FlexGrid é preenchido e dando 2 clikes na linha do cadastro desejado ele abre o cadastro o problema é que preciso colocar os dados do campo Codigo do FlexGrid na variavel FT que esta declarada como String para eu poder fazer a pesquisa e abrir o cadastro, no DataGrid eu colocava FT = DataGrid1.Collumns(0) mas no FlexGrid não consegui, a Coluna Codigo é a (0) Sera que podem me ajudar ? :D
  20. Preciso mudar a cor do fundo do meu DataGrid mas tinha que ser a cor do fundo não a cor do fundo da linha, da pra fazer isso no DataGrid ?
  21. Era isso mesmo vlw Danleonhart dinovo :D depois que o programa fica pronto mostro pra você e o Matheus pra ve como fico ^_^
  22. Tenho que fazer uma pesquisa pelo nome e mostrar os dados da coluna Cliente e Data no DataGrid mas não tenho muita esperiencia com o DataGrid ^_^ Esse codigo que eu fiz faz a pesquisa mas ele mostra todas colunas no DataGrid, precisaria de um filtro que mostrasse só as colunas que eu quisesse. Dim FT As String Dim SQL As String If txtNome.Text = "" Then MsgBox "Digite um Codigo para efetuar a pesquisa!" Else FT = txtNome.Text FT = FT & "%" SQL = "SELECT * FROM OS WHERE Codigo LIKE '" & FT & "'" AFB Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open SQL, Con, adOpenKeyset, adLockReadOnly With DataGrid1 .MarqueeStyle = dbgSolidCellBorder .AllowRowSizing = True .Columns.Item(O).Alignment = dbgCenter Set .DataSource = Rs .Refresh End With End If Espero que possam me ajudar ^_^
  23. GilbertoB

    DataGrid vb6

    Deu certinho vlw masi uma vez :D
  24. Como deixo um DataGrid em ordem alfabetica no vb6 ?
×
×
  • Criar Novo...