Ir para conteúdo
Fórum Script Brasil

alepe

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    36

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por alepe

  2. Vb Na Rede

    em Visual Basic

    Postado

    Pessoal fiz um sistema em vb mas não estou conseguindo compartilhar o mesmo entre as estações

    Deixei uma maquina como servidor

    Criei o MDB nos driver odbc

    Fui na maquina 2 criei um link do executavel do servidor e criei a conexão com o ODBC, ao tentar acessar vem a menssagem:

    Erro "Run Time error 2147467259(80004005)' que não foi possível encontrar o arquivo c:\windows\desktop\facrica.mdb.

    Alguém pode me ajudar..

  5. Erro No Sql

    em Visual Basic

    Postado

    Pessoal o CN está definido

    os campos foram conferidos

    e mesmo assim ele da erro o erro é Run time error 424 objetc required

    uma coisa que estou com duvida é o campo dcoprocesso e dcoterceiro eles são combobox. o jeito de passar ele está correto. ?

  7. Erro Em Nova Inclusao

    em Visual Basic

    Postado

    Utilizando o ADODC ele funciona na primeira inclusão ao clicar no botão novo alguns campos ele não deixa incluir. e ao acabar de preencher os campos e clicar no gravar ele da error "3021" BOF ou EOF.

    são verdadeiros ou o registro atual foi excluido a operação registrada pelo aplicativo requer um registro atual.

    Alguma Luz

  8. Run Time Erro '3001'

    em Visual Basic

    Postado

    Caros,

    Ao utilizar o find para pesquisar o tipo de tecido ele não localiza e da erro Run time error 3001.

    Os argumentos são incorretos, estão fora do intervalo aceitavel ou estão em conflito.

    Se a pesquisa fosse por numero ele funciona..

    entrada tipo de tecido = RIBANA

    Dim codigo As String, criterio As String

'Processo de localização de tecido em estoque
codigo = txttecido.Text

If codigo = Empty Then Exit Sub
criterio = "tipotecido =" & codigo
rs.MoveFirst      
rs.Find criterio, 0, adSearchForward    

If rs.EOF Then

rs.MoveLast

MsgBox "Tecido Não Existe!!!"

End If

rs.Fields("quantidade") = rs.Fields("quantidade") - txtqtdeutilizada.Text

  10. Erro Após A Inclusão

    em Visual Basic

    Postado

    Caros, após a inclusão de dados na base o programa retorna que o dado foi inserido corretamente. mas ao utilizar os botoes de para frente , para tras ultimo e voltar ou até pesquisa ele da o segiuinte erro

    Run time error '-2147217842(80040e4e)': Operação Cancelada

    Estou utilizando o ADODC

    Alguém Help,....

  11. Insert Into

    em Visual Basic

    Postado

    Run time error

    "-2147217900(80040e14)'

    Numero de valores de consulta e campos de destino não coincidem.

    Pergunta: Se as consulta vem de datgrid e datalist relacionei elas no value e os campos do bd não estou utilizando o de autonumeração é obrigatório colocar todos ?

    SQL = "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& lstmostra.SelectedItem & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", '0 ' , ' 1' "
cn.Execute SQL

  12. Erro No Insert Into

    em Visual Basic

    Postado

    Ao usar o run com insert into da erro de RUN TIME ERROR 2517

    O microsoft acess não pode localizar o procedimento insert into

    Após definir os dados peço para ele dar esse insert e da erro alguém pode ajudar

    Run "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& codigo & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", '  ', ' S' "

  14. Insert Into

    em Visual Basic

    Postado

    Sim está aberto segue o código...

    'Objetos para trabalhar com o BD e a tabela, respectivamente
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim nomeloja As String
Dim datacom As Date
Dim total As Double
Dim total1 As Double
Dim soma As Double
Dim soma1 As Double
Private Lista As ListItem
Private Lista1 As ListItem
Private contapagina As Integer

Private Sub cmdalteracao_Click()
    frmaltcomanda.Show vbModal
End Sub

Private Sub cmdsair_Click()
Dim vmensagem As String

vmensagem = "Encerrado Processado - Saindo"
MsgBox vmensagem, vbInformation, "Encerrado Processo"
cn.Close
Set cn = Nothing

Unload frmcomandas

End Sub

Private Sub Form_Load()
    'Abre o banco de dados
   'cn.Close
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fabrica.mdb"
    'Abre a tabela
   rs.CursorLocation = adUseClient
   rs1.CursorLocation = adUseClient
   rs2.CursorLocation = adUseClient
   rs3.CursorLocation = adUseClient
End Sub

  15. Insert Into

    em Visual Basic

    Postado

    Ok.. Fiz o Insert mas não deu para testar pois o mesmo diz que o Objeto não está aberto ou inválido.

    Após a impressão ele deve incluir em uma nova tabela os dados que servirão para um relatório sintético.

    Faço a abertura do rs3 no Form Load declarção no General

    A variavél S é informando no Bd que a comanda foi impressa.

    E defeito nesse caso é vazia.

    ' fim de impressão
End If
Printer.EndDoc
rs3.Open "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& codigo & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", '', " '&S&'"), cn, adOpenDynamic, adLockOptimistic

    HELP...

  16. Insert Into

    em Visual Basic

    Postado

    Ao mandar incluir as informações no BD dá erro Run time error '-21472117900(80040e14)':

    Error de sintaxe na sequencia de caractere na expressão de consulta "",S)' .

    rs3.Open "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) values(codigo,nomeloja,datacom,total,txtdesc.text,txttotdesc.txt,"",S)", cn, adOpenDynamic, adLockOptimistic

  18. Tipo De Variavel Type Mistake 13

    em Visual Basic

    Postado

    Ao fazer a comparação abaixo da erro 13 type mista.,...

    Usei o typename para verificar se estava declarando certo mas ambas são string e não funciona

    HELP

    nome = Lista.SubItems(1)
If nome <> "Shopping Penha" Or "Shopping Interlagos" Or "Shopping Internacional" Or "Shopping Piracicaba" Or "Poli Shopping" Then

  19. Consulta Utilizando Datalist E Datagrid

    em Visual Basic

    Postado

    To criando uma consulta com datalist e após escolher um dado na lista deve abrir um datagrid que ira permitir alterar e incluir e excluir dados da comanda.

    com o datalist eu consegui fazer ambos escolho na primeira opção e ele mosta no segundo datalist.

    como fazer o datagrid abrir o select que esta do ADO pela seleção do datalist.

    Campos do primeiro Datalist

    Loja

    data inicial

    data final

    Data list

    Botão de seleção

    após clicar no botao de seleção o datagrid é ativado mas tras em branco.

    AJUDEM.....

  20. Consulta Com Between

    em Visual Basic

    Postado

    De uma olhada no codigo abaixo tive a mesma duvida e me ajudaram...

    rs.Open "SELECT * FROM cabecacomand WHERE nomedaloja LIKE '%" & txtloja.Text & "%' and datadacomanda between  DateValue('" & txtdata.Text & "') and DateValue('" & txtdata1.Text & "');", cn, adOpenDynamic, adLockOptimistic

  22. Erro No Select

    em Visual Basic

    Postado

    Caros,

    Preciso fazer uma pesquisa no Bd com nome da loja, data inicial e data final até beleza achei que tenho que usar o between ao testar colocando a data dentro do select ok ele funciona mas na hora que ele tem que ler os dados de entrada ele entra em Loop .

       rs.Open "SELECT * FROM cabecacomand WHERE nomedaloja LIKE '%" & txtloja.Text & "%' and datadacomanda between  # like'%" & txtdata & "%' # and  # like'%" & txtdata1 & "%'# ", cn, adOpenDynamic, adLockOptimistic

  23. Alepe

    em Visual Basic

    Postado

    Erro de Sintaxe (operador Faltando) na expressão.

    rs.Open "insert into fimcomanda SELECT * From comanda Where nomedaloja LIKE '%" & txtloja.Text & "%' or datadacomanda Between LIKE '%" & Text1.Text & "%' and LIKE '%" & Text2.Text & "%' ", cn, adOpenDynamic, adLockOptimistic

    'Objetos para trabalhar com o BD e a tabela, respectivamente
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim nomeloja As String
Dim datacom As Date
Dim total As Double
Dim total1 As Double
Dim soma As Double
Dim soma1 As Double
Private Lista As ListItem
Private Lista1 As ListItem
Private contapagina As Integer


Private Sub cmdsair_Click()
   Unload Me
End Sub

Private Sub Form_Load()
Dim txtvltotal, txtvalorunitario, txtvalortotal, txtquantidade As Double
Dim txtnomedaloja, txtdescricacaodoproduto, txtcodigodoproduto As String
Dim txtncomanda As Integer
Dim txtdatacomanda As Data
Dim vdata As Date
    'Abre o banco de dados
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fabrica.mdb"
    'Abre a tabela Comanda, Funcionário, Confererencia de Comanda
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM comanda", cn, adOpenDynamic, adLockOptimistic
    'Cabeca da Comanda
    rs1.CursorLocation = adUseClient
    rs1.Open "SELECT * FROM cabecacomand", cn, adOpenDynamic, adLockOptimistic
    'Conferido e Contado
    rs2.CursorLocation = adUseClient
    rs2.Open "SELECT * FROM contconf", cn, adOpenDynamic, adLockOptimistic
    rs3.CursorLocation = adUseClient
End Sub

Private Sub cmdfechar_Click()

rs.Close
rs.Open "insert into fimcomanda SELECT *  From comanda Where nomedaloja LIKE '%" & txtloja.Text & "%' or datadacomanda Between LIKE '%" & Text1.Text & "%'  and LIKE '%" & Text2.Text & "%' ", cn, adOpenDynamic, adLockOptimistic


MsgBox "Arquivo de Encerramento de Comanda Criado ... ! "
End Sub

  25. Erro Na Inclusão

    em Visual Basic

    Postado

    Ao clicar no inserir ele dá erro de Compile Error Invalid Qualifier..

    alguém pode me ajudar

    Private Sub cmdincluir_Click()
Dim txtvltotal, txtvalorunitario, txtvalortotal, txtcodigodoproduto, txtquantidade As Double
Dim txtnomedaloja, txtdescricaodoproduto As String
Dim txtdatadacomanda As Data
Dim txtncomanda As Integer
Dim resposta As Byte
Dim resposta1 As Byte

'inclusao em cabeça de comanda
rs1.AddNew
rs1.Fields("codigocomanda").Value = txtncomanda.Text
rs1.Fields("nomedaloja").Value = dcoloja.Text
rs1.Fields("datadacomanda").Value = txtdata.Text
rs1.Fields("nomedaloja").Value = dcoloja.Text
rs1.Update 'Salva o registro

'inclusao na comanda
rs.AddNew  'Cria novo registro
rs.Fields("codigocomanda").Value = txtncomanda.Text
rs.Fields("nomedaloja").Value = dcoloja.Text
rs.Fields("datadacomanda").Value = txtdata.Text
rs.Fields("quantidade").Value = txtqtde.Text
rs.Fields("codigodoproduto").Value = txtcodprod.Text
rs.Fields("descricaodoproduto").Value = txtdescricao.Text
rs.Fields("valorunitario").Value = txtvlunitario.Text
rs.Fields("valortotal").Value = txtqtde.Text * txtvlunitario.Text

rs.Update 'Salva o registro
resposta = MsgBox("Registro Incluso Continuar", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem")
If resposta = vbNo Then
   resposta1 = MsgBox("Deseja Sair", vbYesNo + vbQuestion + vbDefaultButton2, "Mensagem")
   If resposta1 = vbYes Then
      Dim vmensagem As String
      vmensagem = "Banco de Dados Foi Desconectado"
      MsgBox vmensagem, vbInformation, "Banco Fechado"
      cn.Close
      Set cn = Nothing
      Unload frminclucomandas
      frmcomandas.Show vbModal
   End If
End If

End Sub

×
×
  • Criar Novo...