Diegoldb
-
Total de itens
58 -
Registro em
-
Última visita
Posts postados por Diegoldb
-
-
Bom dia
Gsotaria de saber como executo um select usando as opções OR ou AND dentro do mesmo campo onde digito o criterio
Exemplo
Campo1 and Campo2
Campo1 or Campo 2
-
Galera é o seguinte
Estou com um projeto que herdei do outro programador que esta assim
ele da o INSERT via DLL
porem já mudei a dell e ainda não cadastra no banco
como isso pode acontecer?
-
Se nenhum campo estiver com o seu datasource direcionada para o dataenvironment1 faz o seguinte e ve se funciona
dataenvironment1.connection1.open
-
Meu amigo
você pode usar _____em vez de #### na hora de limpar
Tente ai
-
Tente não fazer assim
nome do campo.text
sql2 = "UPDATE clientes set nome='" & xnome & "' ,endereco='" & endereco & "' ,numero=" & numero & " ,bairro='" & bairro & "' ,telefone'" & telefone & "' ,rg='" & rg & "' ,modelo='" & modelo & "' ,ano='" & ano & "' ,placa='" & placa & "' WHERE nome = '" & xVar1 & "' "
cn.Execute sql2
Obs: seu campo Numero na tabela é tipo numero ou texto
Que tipo de bd você usa??
-
Pra detalhar melhor o que o nosso amigo ozzyvegeta Falou é o seguinte
Crie um banco de dados
Tabelas onde o Combo vai buscar lá
Porque você deve saber que na hora de gravar os combos é melhor gravar o ID do ITEM.
Falow
-
Se ficar com duvida me avise
Falo
-
Private Sub combo1_Click()
Dim sys As ADODB.Recordset
Set sys = New Recordset
Dim Combo As String
Combo = combo1.ItemData(cobDepartamento.ListIndex)
combo2.Clear
Set sys = aqui voce informa a conexao("Select * from Suatabela where campodocombo1 = " & Combo & " ")
While sys.EOF = False
combo2.AddItem sys.Fields("Campo")
combo2.ItemData(combo2.NewIndex) = sys.Fields("ID")
sys.MoveNext
Wend
combo2.Refresh
End Sub
-
Galera foi mal
Como não sou novo no VB até escrevi errado o nome da função
o que eu queria dizer era como gravar DTPICKER no SQL estou com um certo problema
Obrigao e desculpe a falha
-
-
Voce poderia quem sabe
Diminuir linhas de código e incluir um botão de ação de gravar o aplicativo
Ou criar uma consilta e fazer este botão executala
-
Galera
Como eu faço para converter o formato do DTpicture para formato SQL
e quem puder me ajudar mais ainda favor olhem o tópico LSTBOX me ajudem por favor ou me mandem sugestões
Obrigado
-
Set Sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where Produto = '" & Var1 & "'")
If Not rs.EOF Then
txtID.Text = sql!Id
End If
End Sub
O erro agora é o seguinte
BOF ou EOF são verdadeiros, ou o registro atual foi excluido. A operação solicitada pelo aplicativo requer um registro atual.
Ta fogo
alguém pode me ajudar....................................................................................
Se alguém puder me mandar um e-mail
diegoldb@gmail.com
-
Set Sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where Produto = '" & Var1 & "'")
If Not rs.EOF Then
txtID.Text = sql!Id
End If
End Sub
O erro agora é o seguinte
BOF ou EOF são verdadeiros, ou o registro atual foi excluido. A operação solicitada pelo aplicativo requer um registro atual.
Ta fogo
-
Set rs = DataEnvironment1.Connection1.Execute("select * from [tblEstoque] order by produto asc")
While Not rs.EOF
lstProduto.AddItem rs!produto '(0)
rs.MoveNext
Wend
-
Agora não deu nada
Não aconteceu nenhuma atividade
-
não deu certo não
o erro que da é o seguinte
invalid column name Var1
E fica na linha
Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = var1")
Obrigado
-
Fiz o Seguinte
Private Sub lstProduto_Click()
Dim Var1 As String
Dim sql As ADODB.Recordset
'Só que aqui ele esta pegando o Valor "0"
Var1 = lstProduto.ItemData(lstProduto.ListIndex)
Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = var1")
End Sub
-
Faz o seguinte...
No evento Click...
Var1 = Listbox.ItemData(ListBox.ListIndex) // Aqui você pega o index da ListBox
Com isso você faz um SQL e resgata os valores nos Campos do Form...
Entendeu??? Se não estiver claro, posta de novo aí...
Bom vamos ver se entendi mesmo
'Aqui eu declro uma variavel onde no evento clique eu falo qual o IDVar1 = Listbox.ItemData(ListBox.ListIndex) // Aqui você pega o index da ListBox
'Aqui eu pego este ID e mando um Select para carregar os campos correspondentes deste ID
Com isso você faz um SQL e resgata os valores nos Campos do Form...
-
Galera a parada é o seguinte
estou fazendo um sistema onde tenho um cadastro de peças
Eu gostaria que acontecece o seguinte
tenho um list box para informar todas as pessas que possuo
eu quero que quando clicasse em uma dessas peças carregace os outros campos do Form com os outros dados do cadastros.............
Obrigado
Diego
-
Desculpe eu já que perguntei de uma coisa tão dificil para vc6
-
você tem que formatar isso na estrutura da tabela.........Como limites de caracteres.....espçamento........maskara de entrada.......etc
-
É sossivel sim..................
você entende de VBA???
-
Meu amigo
Algum arquivo seu esta com TROJAM......passa o Stinger ou reinstale seu antivirus e depois No ultimo caso tente passar o antivirus antes de voltar os arquivos
(Resolvido) Internet Explorer no Terminal Service
em Microsoft Windows
Postado
galera
Estou com o seguinte problema
Quando tento executar alguma pagina da internet ou mesmo no menu ajuda>sobre Internet Explorer do meu servidor de terminal surge a mensagem:
Erro na caixa de diálogo
Error: 53
Espaço insuficiente de armazenamento para concluir a operação
Obrigado