rodrigotnoma

Boa tarde. Galera sempre usei essa query para efetuar insert, mas agora esta dando erro, meu fonte é: <% Set Cn = Server.CreateObject("ADODB.Connection") Connstring = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\mf\user.mdb;" Cn.Open Connstring user = Request.Form("user") pass = Request.Form("pass") Cn.Execute "Insert into tb_user(user,pass) values('"& user &"','"& pass &"')" response.Redirect("ok.asp") Cn.Close Set Cn = Nothing %> O erro é: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na instrução INSERT INTO. /mf/add_user_bco.asp, line 13 O que poderia estar errado? Obrigado.

Então quintelab, de uma olhada nessa foto: http://img34.imageshack.us/img34/4260/sistema.jpg Onde tem um circulo vermelho, é o campo Código.O focus() no Form Load é sempre nele, quando leio um código de barra, o código aparece ali no campo Código e automaticamente faz a busca no BD, adicionando a linha no DataGridView com os dados do produto daquele determinado código lido anteriormente.Por esse motivo usei o evento TextChanged do TextBox(Código). Você ou alguém tem alguma sugestão da melhor forma de fazer isso? Obrigado. Rodrigo

Boa noite Tentei debugar esse código: Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Dim tecla As Short = e.KeyCode Dim enter As Short = e.KeyCode If tecla = System.Windows.Forms.Keys.Escape Then If MsgBox("Deseja realmente sair?", MsgBoxStyle.OkCancel) = vbOK Then Me.Close() End If End If If enter = System.Windows.Forms.Keys.Enter Then Form3.Show() End If End Sub Mas quando teclo ENTER, ele deveria abrir o Form3, mas simplesmente fecha o form, se pressiono ESC o procedimento ocorre de forma correta,ou seja, abre um msgbox perguntando se desejo fechar o form. Vlw pela ajuda. Rodrigo

Então quintelab, utilizando DataTable, consegui fazer até aqui: Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged Dim conn As SqlClient.SqlConnection Dim sql As String Dim da As SqlClient.SqlDataAdapter Dim dt As New DataTable("tb_produtos") sql = "select * from tb_produtos where cod_produto='" & TextBox5.Text & "'" conn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Nova pasta\SysNatureza\SysNatureza\sysnatureza.mdf;Integrated Security=True;User Instance=True") conn.Open() da = New SqlClient.SqlDataAdapter(sql, conn) da.Fill(dt) DataGridView1.DataSource = dt Só que mesmo assim, não consegui "segurar" os registros anteriores..... Você pode me dar uma luz? Abraços e obrigado.

Opa, boa noite. Seguinte, no meu form, tenho um textbox5 que aguarda pela inserção de um código, e com esse código eu utilizo uma query para realizar uma busca no meu BD: Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged Dim conn As SqlClient.SqlConnection Dim ds As DataSet Dim sql As String Dim da As SqlClient.SqlDataAdapter sql = "select * from tb_produtos where cod_produto='" & TextBox5.Text & "'" conn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Nova pasta\SysNatureza\SysNatureza\sysnatureza.mdf;Integrated Security=True;User Instance=True") conn.Open() da = New SqlClient.SqlDataAdapter(sql, conn) ds = New DataSet() da.Fill(ds, "tb_produtos") DataGridView1.DataSource = ds DataGridView1.DataMember = "tb_produtos" Com esse código eu preencho meu datagrid, mas ocorre um problema e preciso da ajuda de vocês: Assim que eu coloco o código no textbox5 ele traz o produto com o codigo que eu quero, mas gostaria que assim que fizesse isso, o textbox5 apagaria o codigo que coloquei anteriormente e esperasse por outro codigo, e assim iria adicionando linha ao datagrid, como um caixa de supermercado. Só que acontece o seguinte: Depois de inserir um codigo ele traz o registro e adiciona ao datagrid, e o codigo que coloquei fica no textbox, se apago ou altero o registro que estava no datagrid some também. Eu gostaria que ao invés de sumir, eu quero que o registro fique no datagrid e assim que colocar outro codigo, uma nova linha seja adicionada ao datagrid, e assim que colocar o terceiro codigo seja adicionado uma terceira linha e assim por diante. Desculpe se está confuso. Obrigado Rodrigo

OK, OSjunior, fiz dessa forma e funcionou beleza: Adicionei um controle Timer ao Form; Alterei sua propriedade Interval = "1000" e Enable="True"; Adicionei um Label no Form No evento Tick do Timer adicionei o seguinte código: Label1.text = datetime.now.tolongtimestring Pronto!!! Coloquei para algum usuário que tiver a mesma dúvida,ok? Abços e obrigado pela ajuda. Rodrigo

Boa noite galera, como posso exibir as horas em meu sistema, mas mostrando o tempo correr(em tempo real)?. Obrigado.

Quintelab Coloquei: total = Convert.ToDecimal(TextBox2.Text.Replace(",", ".")) + Convert.ToDecimal(dr("valor_produto").replace(",", ".")) Mas, você pode ver que lá no dr("valor_produto").replace ele não aceita essa função. E quando tento debugar ele da a mesma msgem de erro: "Seqüência de entrada não estava em um formato incorreto." Obrigado. Abços

No textbox5.text esta: dr("nome") & " " & dr("preço") & vbcrlf, ok? Essa linha vai sendo adicionada ao textbox5, ex: macarrao 3,00 oleo 2,00 Só que do jeito que esta, o preço fica desalinhado, pois dependendo do nome(maior ou menor), o preço desalinha, ficando assim: macarrao 3,00 oleo 2,00 pao 1,00 Eu queria aber se existe uma forma de deixar alinhado. Obrigado.

Opa quintelab, então, já tentei sim, mas fica desse jeito: 10,0020,0010,0020,00... Ele concatena e não soma... Obrigado

Obrigado pela atenção Raphael, mas está dando este erro: "Seqüência de entrada não estava em um formato incorreto." E aponta para esta linha: total = Integer.Parse(TextBox2.Text) + Integer.Parse(dr("valor_produto")) Coloquei o código completo: Dim conn As SqlClient.SqlConnection Dim cmd As SqlClient.SqlCommand Dim sql, total As String Dim dr As SqlClient.SqlDataReader sql = "select * from tb_produtos where cod_produto='" & TextBox5.Text & "'" conn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Nova pasta\SysNatureza\SysNatureza\sysnatureza.mdf;Integrated Security=True;User Instance=True") conn.Open() cmd = New SqlClient.SqlCommand(sql, conn) dr = cmd.ExecuteReader Do While dr.Read TextBox3.Text = dr("nome_produto") TextBox4.Text = dr("valor_produto") TextBox1.Text = TextBox1.Text & "Cód" & " " & dr("cod_produto") & " " & dr("nome_produto") & " " & dr("valor_produto") & vbCrLf total = Integer.Parse(TextBox2.Text) + Integer.Parse(dr("valor_produto")) TextBox2.Text = Integer.Parse(total) & ",00" TextBox5.Clear() Loop conn.Close() Obrigado. Rodrigo

Em um textbox faço a exibição desta forma: textbox5.text = dr("nome") & " " & dr("preço") & vbcrlf Sendo que o dr é meu datareader. Gostaria de saber se existe outra forma de usar o espaço entre o nome e o preço, pois desta forma acima, dependo do tamanho do nome para que o preço fique alinhado. Como posso fazer de forma que o preço fique sempre alinhado? Obrigado.

Bom dia. Tenho dois textbox, nos dois peço valores, ex: 15,20 e 8,60.Como faço a soma dos dois sendo que são strings? já tentei com val(textbox1.text) + val(textbox2.text), mas faz a soma somente de 15 + 8 = 23. Obrigado pela ajuda.

Ola Poderia me ajudar quintelab como fazer um for da forma que você esta dizendo? Obrigado

Não, são 16 textbox e 16 campos no BD. Obrigado.

Na minha aplicação .NET, tenho um BD com 16 campos: num1,num2.....num16. Recupero o que foi digitado no TextBox1.Text e realizo um select no BD para verificar se o que foi digitado no TextBox1.Text está em algum campo.Depois pego o que foi digitado no TextBox2.Text e faço a mesma coisa. sql= "select * from tb_lotofacil where.....?" Alguém poderia me ajudar na query? Ou como fazer isso da melhor forma? Obrigado. Rodrigo

OK, e como posso utilizar duas strings SQL?Como no meu caso, você poderia me dar um exemplo? Obrigado. Rodrigo

Dim sql, sql1 As String Dim conn As SqlClient.SqlConnection Dim cmd, cmd1 As SqlClient.SqlCommand Dim dr As SqlClient.SqlDataReader Dim n, ultimo As Integer sql = "select * from tb_lotofacil where jogo = " & n & "" sql1 = "select max(jogo) from tb_lotofacil" conn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Lotofacil\Lotofacil\Lotofacil\lotofacil.mdf;Integrated Security=True;User Instance=True") conn.Open() cmd1 = New SqlClient.SqlCommand(sql1, conn) cmd = New SqlClient.SqlCommand(sql, conn) ultimo = cmd1.ExecuteScalar() n = 1 Do While n < ultimo cmd = New SqlClient.SqlCommand(sql, conn) dr = cmd.ExecuteReader() Do While dr.Read() TextBox16.Text = dr("num1") Loop Loop conn.Close() Da essa mensagem no debug: "Já existe um DataReader aberto associado a este comando que deve ser fechado primeiro." e aponta para a linha: dr = cmd.ExecuteReader() Alguém poderia me ajudar? obrigado

Opa, obrigado "xará". Resolvido. Rodrigo

Bom dia. Não sei o que acontece com esse código que só traz o último registro que contém a condição da query SQL: sql = "select * from tb_lotofacil where num1 = '" & TextBox1.Text & "'" conn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Lotofacil\Lotofacil\Lotofacil\lotofacil.mdf;Integrated Security=True;User Instance=True") conn.Open() cmd = New SqlClient.SqlCommand(sql, conn) dr = cmd.ExecuteReader() Do While dr.Read() TextBox16.Text = dr("jogo") & vbCrLf Loop No banco existem dois registros que satisfazem a condição: sql = "select * from tb_lotofacil where num1 = '" & TextBox1.Text & "'" Por que está trazendo somente o último? Obrigado.

OK Jonathan, resolvido. Obrigado pela ajuda.

Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp Dim sql As String Dim conn As SqlConnection Dim cmd As SqlCommand Dim ds As DataSet Dim da As SqlDataAdapter Dim dt As DataTable Dim rc As Integer Dim r As DataRow sql = "select * from emprestimo" conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\BD_Biblioteca\Biblioteca.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") conn.Open() cmd = New SqlCommand(sql, conn) da = New SqlDataAdapter(cmd) ds = New DataSet da.Fill(ds, "emprestimo") dt = ds.Tables(0) r = dt.Rows(rc) rc = DataGridView1.CurrentRow.Index TextBox1.Text = r("isbn") TextBox2.Text = r("usuario") TextBox3.Text = r("data_emp") TextBox4.Text = r("status") End Sub Quando clico em algum registro do DataGrid, sempre aparece o primeiro registro, mesmo quando clico no segundo registro que aparece no DataGrid, aparece o primeiro registro. O que poderia ser? Obrigado

Ola quintelab. Não consigo encontrar a propriedade EmptyDataText do meu DataGridView, como faria no código acima? Outra coisinha, no meu BD tem um campo chamado "descricao" que é meio longo, assim quando meu Grid mostra esse campo ele cria uma barra de rolagem muito grande, tem como deixar o tamanho do Grid de acordo com o tamanho da descrição? Obrigado e abços.

Dim sql As String Dim conn As System.Data.OleDb.OleDbConnection Dim cmd As System.Data.OleDb.OleDbCommand Dim da As System.Data.OleDb.OleDbDataAdapter Dim ds As DataSet sql = "select * from memento where sintoma like '%" + TextBox1.Text + "%'" conn = New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=c:\bd\memento.mdb;") conn.Open() cmd = New System.Data.OleDb.OleDbCommand(sql, conn) da = New System.Data.OleDb.OleDbDataAdapter(sql, conn) ds = New DataSet da.Fill(ds, "memento") Me.DataGridView1.DataSource = ds.Tables("memento") conn.Close() Onde posso colocar um IF para que se ocorrer a condição de não existir registro no BD de acordo com minha query, exiba a mensagem de "Não encontrado nenhum registro"? Pois quando utilizo DataReader, utilizo "IF dr.Read()".E quando utilizo DataAdapter e DataSet, como faço? Uma questão besta: No meu Form1.Load estou usando: TextBox1.Text.Focus(), mas quando debugo o código, o Focus não vai para o TextBox1, o que eu poderia estar ocorrendo? Obrigado. Rodrigo

Quintelab Esta resolvido, pode fechar. Obrigado.