DATASET DUVIDAS
Boa Tarde Amigos do VBmania...
Bom, sou iniciante em VB.net e estou tendo muitas dúvidas com relação ao acesso ao banco de dados.. Eu criei um Dataset com 1 tabela do banco de dados via assistente. Mas agora eu preciso visualizar os registros que estão no Dataset. Consegui listar no Datagridview, mas tipo quero pegar a informação do 2 registro, o campo usuario... Gostaria de saber se tenho que criar um datatable ou qualquer outra coisa pra fazer esse acesso e como fazer isso.. Detalhe: Não pode ser datareader pois vou alterar informações
Desde já agradeço a ajuda dos amigos
Bom, sou iniciante em VB.net e estou tendo muitas dúvidas com relação ao acesso ao banco de dados.. Eu criei um Dataset com 1 tabela do banco de dados via assistente. Mas agora eu preciso visualizar os registros que estão no Dataset. Consegui listar no Datagridview, mas tipo quero pegar a informação do 2 registro, o campo usuario... Gostaria de saber se tenho que criar um datatable ou qualquer outra coisa pra fazer esse acesso e como fazer isso.. Detalhe: Não pode ser datareader pois vou alterar informações
Desde já agradeço a ajuda dos amigos
Nada??
Preciso apenas listar os registros como eu fazia no VB6 Ex:
Set TBSeek2 = Banco.OpenRecordset([Ô]Select * from Clientetel where codcli like [ô]*[Ô] & lblCodCli.Caption & [Ô]*[ô][Ô])
If TBSeek2.RecordCount <> 0 Then
TBSeek2.MoveLast
TBSeek2.MoveFirst
cmbTelContato.Clear
For x = 1 To TBSeek2.RecordCount
TBSeek2.edit
TBSeek2!Lista = TBSeek2!Lista + 1
TBSeek2.update
TBSeek2.MoveNext
Next x
cmbTelContato.ListIndex = 0
TBSeek2.Close
End If
Só preciso rodar os campos e fazer essa alteração... Não consigo chegar num consenso entre DataAdapter, DataTable, Datarow pra apresentar esses registros
Preciso apenas listar os registros como eu fazia no VB6 Ex:
Set TBSeek2 = Banco.OpenRecordset([Ô]Select * from Clientetel where codcli like [ô]*[Ô] & lblCodCli.Caption & [Ô]*[ô][Ô])
If TBSeek2.RecordCount <> 0 Then
TBSeek2.MoveLast
TBSeek2.MoveFirst
cmbTelContato.Clear
For x = 1 To TBSeek2.RecordCount
TBSeek2.edit
TBSeek2!Lista = TBSeek2!Lista + 1
TBSeek2.update
TBSeek2.MoveNext
Next x
cmbTelContato.ListIndex = 0
TBSeek2.Close
End If
Só preciso rodar os campos e fazer essa alteração... Não consigo chegar num consenso entre DataAdapter, DataTable, Datarow pra apresentar esses registros
SHADOM,
O que vc pode tentar fazer é o seguinte:
For Each item in dataGrid.DataSource
if item.ID = [Ô]10[Ô] then
item.Campo1 = [Ô]Teste[Ô]
end if
Next
======================================
Ou se vc nao for mais mostrar na Grid pode fazer assim:
Dim dt as New DataTable
dt = Ctype (dataGrid.DataSource, DataTable)
For Each item in dt
item.CAMPO1 = [Ô]TESTE1[Ô]
Next
Espero que ajude...
Abraço
Igor
O que vc pode tentar fazer é o seguinte:
For Each item in dataGrid.DataSource
if item.ID = [Ô]10[Ô] then
item.Campo1 = [Ô]Teste[Ô]
end if
Next
======================================
Ou se vc nao for mais mostrar na Grid pode fazer assim:
Dim dt as New DataTable
dt = Ctype (dataGrid.DataSource, DataTable)
For Each item in dt
item.CAMPO1 = [Ô]TESTE1[Ô]
Next
Espero que ajude...
Abraço
Igor
Tópico encerrado , respostas não são mais permitidas