REFERENCIA A CAMPO NO VB.NET

USUARIO.EXCLUIDOS 29/03/2005 13:44:36
#75577
Olá!

No vb6 eu fazia da seguinte forma:

AdoLocacao("cod_loc")

Como posso fazer isto no DataSet?

Obrigado!
USUARIO.EXCLUIDOS 29/03/2005 15:42:43
#75600
USUARIO.EXCLUIDOS 30/03/2005 08:22:40
#75695
Olá!

Acho que eu não estou entendendo o raciocínio,já visitei o site do macoratti indicado por PUNISHERBLADE. Vejamos:

Determino uma instrução SQL que retorne apenas um registro ,depois quero retornar deste registro o valor de um determinado campo:

Locacao = AdoLocacao("cod_loc")

Já tentei no vb.net:

Locacao = dsLocacao.Tables("locacao").item("cod_loc")

Locacao = dsLocacao.Tables(0).item("cod_loc")

sei que se ao invés de uma variável jogasse esse valor em por exemplo um label através do databinding, ficaria assim:

Me.lblLocacao.databinding.Add("Text",dsLocacao.Tables(0),"cod_loc")

Desta forma funciona mas eu queria retornar o valor deste campo direto em uma variável , como fazer?

Obrigado!
USUARIO.EXCLUIDOS 30/03/2005 11:53:53
#75736
Amigo no dataset você deve fazer assim

variavel = dataset.Tables(TabelaNome).Columns(Colunanome).ToString

O mais certo seria usar um DataTable

variavel = datatable.Columns(Colunaname).ToString()

ou um datarow
variavel = datarow(Colunanome)
USUARIO.EXCLUIDOS 30/03/2005 21:40:57
#75896
Obrigado, Flávio!

Flávio , desculpe minha burrice, mas tentei todos as dicas mas acontece que a variável retorna o nome da coluna:

Dim DsMySql As New DataSet()
Dim teste As String
#Region " Windows Form Designer generated code "


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
Label1.Text = Int(10 * Rnd())
End Sub

Private Sub frmJogo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Mudar_Cor(Me)
Try
Adapter.Fill(DsMySql, "testes")
'Vincula o DataSet ao TextBox
Me.lblPergunta.DataBindings.Add("Text", DsMySql.Tables(0), "pergunta")
Me.lblResposta1.DataBindings.Add("Text", DsMySql.Tables(0), "resposta1")
Me.lblResposta2.DataBindings.Add("Text", DsMySql.Tables(0), "resposta2")
Me.lblResposta3.DataBindings.Add("Text", DsMySql.Tables(0), "resposta3")
Me.lblResposta4.DataBindings.Add("Text", DsMySql.Tables(0), "resposta4")
Catch Mensagem As Exception
MsgBox(Mensagem.Message)
End Try
'Dim Questao(100) As Integer
Dim Questao(DsMySql.Tables("testes").Rows.Count) As Integer

End Sub

Private Sub txtPergunta_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If RadioButton1.Checked = True Then
If RadioButton1.Tag = lblRespCerta.Text Then
MsgBox("Resposta Certa!")
Else
MsgBox("Resposta Errada!")
End If
ElseIf RadioButton2.Checked = True Then
If RadioButton2.Tag = lblRespCerta.Text Then
MsgBox("Resposta Certa!")
Else
MsgBox("Resposta Errada!")
End If
ElseIf RadioButton3.Checked = True Then
If RadioButton3.Tag = lblRespCerta.Text Then
MsgBox("Resposta Certa!")
Else
MsgBox("Resposta Errada!")
End If
Else
If RadioButton4.Tag = lblRespCerta.Text Then
MsgBox("Resposta Certa!")
Else
MsgBox("Resposta Errada!")
End If
End If



End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
teste = DsMySql.Tables("testes").Columns("cod_per").ToString
Label6.Text = teste
End Sub
End Class

Obs: Usei o label só para visualizar melhor o conteúdo da variável

O que estou fazendo de errado?

Obrigado novamente!
Tópico encerrado , respostas não são mais permitidas
Voltar