carolprogramadora

Obrigada Kuroi, pela menos o link me deu uma luz!^^ heheh vou tentar colocar em prática! Saudações!

Olá galera, eu consegui fazer aparecer os registros, eu me esqueci de dizer que estou usando o BD access daí acabei me perdendo toda, mas fiz da seguinte maneira: Cliquei no DataGridView Tasks ao lado direito superior do Datagrid e selecionei o Banco de Dados que adicionou automaticamente todos os campos, só selecionei os que queria e deu certo!^^ Muito obrigada meninos, de certa forma aprendi um pouco mais com o que propuseram! Saudações!!! :D

mais Ricardo, eu programo isso no DataGridView? :blink:

Consegui!!!! Obrigada por me responderem! fiz da seguinte maneira: Dim Sql As String = "SELECT NOME As Nome,CODIGO As Codigo FROM BDCLIENTE WHERE NOME LIKE '" + txtLocalizar.Text + "%' ORDER BY NOME" Dim conn As New OleDbConnection(ConnString) Dim cmd As New OleDbCommand(Sql, conn) Dim Ds As New DataSet Try conn.Open() Dim Da As New OleDbDataAdapter(cmd) Ds.EnforceConstraints = False Da.Fill(Ds) Catch ex As OleDbException Throw New Exception("Erro Banco de Dados : " + ex.Message) Catch ex As Exception Throw New Exception("Erro Run Time : " + ex.Message) Finally conn.Close() conn.Dispose() cmd.Dispose() End Try dgvConsultarclientes.DataSource = Ds dgvConsultarclientes.DataMember = Ds.Tables(0).ToString dgvConsultarclientes.Columns(0).Width = 350 dgvConsultarclientes.Columns(1).Width = 100 dgvConsultarclientes.ReadOnly = True dgvConsultarclientes.AllowUserToAddRows = False dgvConsultarclientes.AllowUserToDeleteRows = False End Sub Saudações a todos!

Olá pessoal, alguém sabe qual a codificação em um button para imprimir? eu não sei nem por onde começar! :blink: eu quero imprimir só isso! hheheh :rolleyes:

Desisti do Report Viewer, <_< fiz no Crystal Report mesmo e deu certo! :D

olá pessoal, consegui fazer sozinha! :D só que alguém conhece alguma propriedade q eu mude para que no modo de impressão apareça todos os campos ao lado do outro? porque meu problema é que ele separa em duas folhas! :blink: Obrigada!!

Olá pessoal, preciso fazer um relatório e não sei como utilizar esse report viewer alguém pode me dar uma luz??? :( Saudações!

Oi galera preciso de outra ajuda... Eu quero que apareça no datagrid que se encontra no mesmo formulário os cadastros que eu registrei, mas que mesmo que ele esteja vazio apareça pelo menos os nomes dos campos que estão no formulário, não sei se me entendem, mas é mais uma 'perfumaria' mesmo! hehehe Se puderem me ajudar eu agradeço!!!

Ola Kuroi! Eu consegui da seguinte da maneira, mudei um dado no banco de dados... troquei o "factoring" por um outro dado que eu quis puxar também e deletei ele. Mas mesmo assm obrigada pela ajuda de vocês!!! Obrigadaaaaaaaaaaaaaa

Então Gafanhoto, não deu certo mesmo... colocar o ? porque é estranho que outra janela d consulta minha deu certo a mesma codificação já essa não está dando e a ideia é a mesma, diz que o erro é no banco de dados, mas mesmo assim procuro pelo erro e não encontro... vou programar mais um pouco e se eu obter resultados informo! Obrigada!

Olá pessoal, então Kuroi desta vez não é porque eu procurei por todo o banco de dados acentos e tudo o mais, mas desta vez não é mesmo <_< mas continua o mesmo erro... então meu banco é access 2007 mesmo Gafanhoto, vou tentar com a ? então se de resultados volto a postar! Muito obrigada!!!

Olá pessoal, porque está dando esse erro? minha codificação que ele acusa que está errado: Imports System.Data.OleDb Imports System.Data.OleDb.OleDbType Public Class frmConsultaAnoFactoring Private dv As DataView Private cm As CurrencyManager Dim ConnString As String = My.Settings.connString Sub Pesquisa() Dim Sql As String = "SELECT * FROM BDFACTORING WHERE ANO=@ANO ORDER BY Factoring" Dim conn As New OleDbConnection(ConnString) Dim cmd As New OleDbCommand(Sql, conn) Dim Ds As New DataSet Try conn.Open() cmd.Parameters.Add("ANO", VarChar).Value = cmbAno.Text Dim Da As New OleDbDataAdapter(cmd) Ds.EnforceConstraints = False Da.Fill(Ds) Catch EX As OleDbException Throw New Exception("Erro BD : " + EX.Message) Catch ex As Exception MsgBox(ex.Message) Finally conn.Close() conn.Dispose() cmd.Dispose() End Try DataGridView1.DataSource = Ds DataGridView1.DataMember = Ds.Tables(0).ToString End Sub Private Sub btnOk2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk2.Click If cmbAno.SelectedIndex = -1 Then Try Catch ex As OleDbException Throw New Exception("Erro Banco de Dados : " + ex.Message) Catch ex As Exception Throw New Exception("Erro Run Time : " + ex.Message) End Try Exit Sub End If If cmbAno.Text = "" Then MsgBox("Dados não encontrados !", MsgBoxStyle.Information, Me.Text) End If Call Pesquisa() End Sub End Class Se alguém puder me ajudar agradeço por demais!!! Saudações a todos!!!

Olá pessoal, olha eu com outra dúvida heheheh Seguinte, meu problema começa a partir do momento que faço uma busca e quero que apareça no meu Datagrid até ae tudo bem, mas neste novo formulario, eu quero fazer uma busca pelo INICIAL do meu cliente já cadastrado, e eu estou usando um combobox com o alfabeto. Como faço (codificação) para que o usuario ao clicar na letra e em seguida no botão buscar apareça apenas os nomes com as iniciais selecionadas no DataGridView??? Alguém pode me ajudar??? :unsure: Saudações a todos!!!!

então... também não sei explicar direito, sempre acrescento essa codificação e dá certo desta vez não está dando... Eu faço dessa maneira, ele está selecionado em vermelho, se tiver alguma alternativa pra mim eu agradeço, pois não conosegui fazê-lo funcionar! <_< Sub GravarDados() If txtId.Text <> "" Then Sql = "UPDATE BDFERIADO SET FERIADO=@FERIADO,MOTIVO=@MOTIVO,ANO=@ANO WHERE ID'" + txtId.Text + "'" Else Sql = "INSERT INTO BDFERIADO(FERIADO, MOTIVO,ANO) " + _ "VALUES(@FERIADO,@MOTIVO,@ANO)" End If Dim conn As New OleDbConnection(connString) Dim cmd As New OleDbCommand(Sql, conn) Try conn.Open() Dim Ano As String = dtpFeriado.Value.Year cmd.Parameters.Add("FERIADO", OleDbType.VarChar).Value = dtpFeriado.Text cmd.Parameters.Add("MOTIVO", OleDbType.VarChar).Value = txtMotivo.Text cmd.Parameters.Add("ANO", OleDbType.VarChar).Value = mskAno.Text cmd.ExecuteNonQuery() MsgBox("Dados Gravados !", MsgBoxStyle.Information, Me.Text) Catch ex As OleDbException Throw New Exception("Erro Banco de Dados : " + ex.Message) Catch ex As Exception Throw New Exception("Erro Run Time : " + ex.Message) Finally conn.Close() conn.Dispose() cmd.Dispose() End Try BindingNavigator1.BindingSource = Bs Call LimpaCampos() Call CarregaDados("") End Sub Obrigada!!!