DATAGRID NO POCKET PC

VISUAL 18/05/2010 20:55:40
#342138
Estou montando um aplicativo para pocket e na montagem do Datagri não estou conseguindo mostrar as 03 colunas com seus dados, estou fazendo conforme descrito abaixo. O que pode estar errado?

Private Sub IniciaConexao()
Cursor.Current = Cursors.WaitCursor


[ô] Ja estou conectado ao banco SQL... e então criamos o dataadapter para fazer a pesquisa
Dim da As New SqlCeDataAdapter([Ô]SELECT * from Clientes Order by Cliente Desc[Ô], Conn)

[ô] Então executamos o método Fill para obtermos os dados...
Dim ds As New DataSet()
da.Fill(ds, [Ô]Clientes[Ô])

[ô] Bom, temos todos os campos da tabela Clietes, mas só quero mostrar
[ô] 3 campos: o código, o nome do cliente e o cnpj.
Dim ts As New DataGridTableStyle()
ts.MappingName = [Ô]Clientes[Ô]

Dim txtCodigo As New DataGridTextBoxColumn()
txtCodigo.MappingName = [Ô]Clente[Ô]
txtCodigo.HeaderText = [Ô]Código[Ô]
txtCodigo.Width = 80
ts.GridColumnStyles.Add(txtCodigo)

Dim txtNome As New DataGridTextBoxColumn()
txtNome.MappingName = [Ô]Nome[Ô]
txtNome.HeaderText = [Ô]Nome do cliente[Ô]
ts.GridColumnStyles.Add(txtNome)

Dim txtCnpj As New DataGridTextBoxColumn()
txtCnpj.MappingName = [Ô]CGC[Ô]
txtCnpj.HeaderText = [Ô]CNPJ[Ô]
txtCnpj.Width = 800
ts.GridColumnStyles.Add(txtCnpj)

DataGrid1.TableStyles.Add(ts)

[ô] Aqui eu vinculo os dados ao datagrid.
DataGrid1.DataSource = ds.Tables([Ô]Clientes[Ô])
End Sub
ADHEL 19/05/2010 12:26:46
#342182 Resposta escolhida
Visual
Vê se é isso que deseja

Private Sub IniciaConexao()
Cursor.Current = Cursors.WaitCursor

Dim Sqlstring As String
Dim da As SqlDataAdapter
Dim ds As DataSet


Sqlstring = [Ô]SELECT Codigo,Nome,Cnpj from Clientes Order by Cliente Desc[Ô]


da = New SqlDataAdapter(Sqlstring, Conn)
ds = New DataSet


da.fill(ds, [Ô]Clientes[Ô])

With DatagridView1 --> (Aqui você coloca o nome do seu Datagrid)
.datasource = ds.Tables([Ô]Clientes[Ô])
.Columns(0).Width = 250
.Columns(1).Width = 250
.Columns(2).Width = 250
End With

End Sub

Qualquer coisa só avisar
JWCELYO 19/05/2010 13:06:42
#342188
para carregar uma tabela se utiliza DataTable

dim cmd as new sqlcommand([Ô]([Ô]SELECT * FROM Clientes Order by Cliente Desc[Ô], Conn[Ô]) 
dim adpt as new sqldataadapter()
dim dt as new datatable
adpt.selectcommand = cmd
adpt.fill(dt)

datagridview.datasource = dt
VISUAL 22/05/2010 16:04:31
#342532
Pessoal, consegui fazer assim:

Private Sub GradeClientes()
Cursor.Current = Cursors.WaitCursor
[ô] Ja estou conectado ao banco SQL... e então criamos o DataAdapter para fazer a pesquisa
Dim da As New SqlCeDataAdapter([Ô]SELECT Cliente, Nome, CGC from Clientes Order by Cliente Desc[Ô], Conn)

[ô]Então executo o método Fill para obtermos os dados...
Dim ds As New DataSet()
da.Fill(ds, [Ô]Clientes[Ô])

Dim tableStyle As New System.Windows.Forms.DataGridTableStyle

[ô]O MappingName é o alias que daremos ao DataSet
tableStyle.MappingName = [Ô]Clientes[Ô]

Dim txtCodigo As New DataGridTextBoxColumn()
txtCodigo.MappingName = [Ô]CLIENTE[Ô]
txtCodigo.HeaderText = [Ô]Código[Ô]
txtCodigo.Width = 50
tableStyle.GridColumnStyles.Add(txtCodigo)

Dim txtNome As New DataGridTextBoxColumn()
txtNome.MappingName = [Ô]NOME[Ô]
txtNome.HeaderText = [Ô]Nome do cliente[Ô]
txtNome.Width = 200
tableStyle.GridColumnStyles.Add(txtNome)

Dim txtCnpj As New DataGridTextBoxColumn()
txtCnpj.MappingName = [Ô]CGC[Ô]
txtCnpj.HeaderText = [Ô]CNPJ[Ô]
txtCnpj.Width = 120
tableStyle.GridColumnStyles.Add(txtCnpj)

DataGrid1.TableStyles.Add(tableStyle)

[ô]Aqui eu vinculo os dados ao datagrid.
DataGrid1.DataSource = ds.Tables([Ô]Clientes[Ô])
End Sub


Obrigado a todos.
Tópico encerrado , respostas não são mais permitidas
Voltar