mestre fyoda

Aqui no forum já tem a resposta : http://scriptbrasil.com.br/forum/index.php?showtopic=100584

DataGridView1.DataSource = DS.Tables(0) quando eu insiro esse comando ele pega todo o banco de dados e coloca no grid, mas não é isso que eu quero, eu quero que ele insira apenaS o codigo e nome !

não é isso Graymalkin, na figura baixo , eu queria inserir dentro do retangulo vermelho os dados do bd, como eu faço ? http://img215.imageshack.us/my.php?image=imagemxi7.jpg

Dim DataView As New MySql.Data.MySqlClient.MySqlDataAdapter("select * from AQCAD", MySQLConn) Dim DS As DataSet = New DataSet DataView.Fill(DS) 'dgr_datagridview.DataSource = DS.Tables(0).Columns("Codigo") Dim dr As DataRelation Dim dc1 As DataColumn Dim dc2 As DataColumn dc1 = DS.Tables(0).Columns("Codigo") dc2 = DS.Tables(0).Columns("Nome do Cliente") não esta inserindo nada nos 2 campos ! porque ?

porexemplo, na minha tabela do banco de dados tem NOMCAD CODCAD, esses campos vao aparecer noDATAGRIDVIEW e eu queria colocar outro nome para a coluna , como eu faço ?

funcionou :) mas como eu faço para povoar sem que pegue toda a tabela e insira no datagridview?

MySQLDrr.fill(DataSet) não funciona porque o Fill não é reconhecido pelo vb.net . o Item também não esta funcionando!

Public Module Módulo Public MySQLConn As MySql.Data.MySqlClient.MySqlConnection Public Function InicializaConexão() As Boolean MySQLConn = New MySql.Data.MySqlClient.MySqlConnection("Server=localhost;Database=v2interativa;Uid=root;Pwd=rafael") Try MySQLConn.Open() Return True Catch erro As Exception MessageBox.Show("Ocorreu um erro ao inicializar a conexão: " & erro.ToString()) Return False End Try End Function Public Function ExecutarSQL(Byval query As String) As MySql.Data.MySqlClient.MySqlDataReader Dim MySQLCmd As New MySql.Data.MySqlClient.MySqlCommand(query, MySQLConn) Return MySQLCmd.ExecuteReader() End Function End Module Com o módulo acima, o seu exemplo de utilização ficaria da seguinte maneira: 'conexao mysql Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If InicializaConexão() Then Dim MySQLDrr As MySql.Data.MySqlClient.MySqlDataReader = ExecutarSQL("SELECT * FROM AQCAD") If MySQLDrr.HasRows = True Then While MySQLDrr.Read Dim codigo As String = MySQLDrr.Item(1) Dim ls As New ListViewItem(codigo, 0) ls.SubItems.Add(MySQLDrr.Item(0).ToString) ListView1.Items.Add(ls) End While End If End If MySQLDrr.Close() End Sub End Class minha conexao é assim !

Graymalkin, me desculpe a minha ignorancia mas nunca mechi com esse componente, como eu faço isso ?

como que eu faço para preencher a datagridview com os dados do mysql ?

perfeito Graymalkin !

Alguém pode me dizer como abrir um form e logo em seguida fechar o form anterior? já tentei : Dim Form As New Inicial() Form.Show() Me.Close() e não deu certo, simplesmente fecha tudo !

resolvido , o certo é :

imagem = imagem.FromFile("C:\Documents and Settings\rafael fernandes\Desktop\Imagem para VB.net\icones_vista\icones_vista\Windows Vista Clarity Gold PNG Pack\Others\Woman Orange.png") Me.principal.Image = imagem erro : Warning 1 Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated. C:\Documents and Settings\rafael fernandes\Desktop\Projeto VB.NET\Projeto\Projeto\Inicial.vb 6 18 Projeto porque desse erro ?

jissa perfeito mano , acho que você deveria colocar esse link lá nos codigos prontos, pois eu testei e pude verificar que é simples . Isso pode ser de grande utilidade para todos !

está com 3 erros !

é isso mesmo Graymalkin, eu deletei uma imagem mas não saiu no projeto do vb, como eu faço isso ? está dndo esse erro !

alguém tem um codigo que faça um grafico coluna ?

o que pode estar ocorrendo no meu VB.net ? eu alterei a co de fundo do meu form e executei , na execução não modificou a cor , esta acontecendo a mesma coisa com o menssagebox.show , porque ?

MessageBox.Show("Bem vindo " + codigo) o +codigo aparece mas o bem vindo não esta aparecendo!

MessageBox.Show("Bem vindo " + codigo) estranho não esta aparecendo a mensagem Bem Vindo porque ?

Public Class Login Private Sub Sair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sair.Click Close() End Sub Private Sub Entrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Entrar.Click If InicializaConexão() Then Dim MySQLDrr As MySql.Data.MySqlClient.MySqlDataReader = ExecutarSQL("SELECT * FROM AQCAD where EMACAD = '&usuario.text&' ") If MySQLDrr.HasRows = True Then While MySQLDrr.Read Dim codigo As String = MySQLDrr.Item(1) MessageBox.Show("" + codigo) End While End If End If 'MySQLDrr.Close() End Sub End Class não está selecionando o usuario digitado, porque ?

um dos componentes que eu vi , e achei de extrema importancia, se for o que estou poensando :). O errorprovaider, ele deve criar mensagens de erros criadas pelos programadores, como e eu mexo com isso ? Por enquanto só vou tirar essa duvida pois ainda estou fuçando em algumas coisas, mas fiquei muito curioso o que é esse componente errorprovider! eu já tinha procurado uma apostila mas as apostilas não são boas as que eu achei!

pra falar a verdade eu queria um tuto bem completo para evitar os meus posts, porque eu já devo estar enchendo o saco com perguntas bestas :) . Mas de inicio gostaria de conhecer os componentes e como programar usando eles :)

alguém poderia me indicar alguma apostila que tenha exemplos e explicação da aplicação ?