segunda-feira, 6 de agosto de 2012

LINQ to DATASET (DataTable)


Use LINQ to conect to datatable rows

Dim srvcon as new sqlconnection("connection string")

Dim queryBOLETIN , estado As String
queryBOLETIN = "SELECT * FROM SMS_ENVIAR order by ID DESC"
estado = "ENVIADO"


Dim adaptBOLETIN As New SqlDataAdapter(queryBOLETIN, srvcon)<br />
Dim dsBOLETIN As New DataSetadaptBOLETIN.Fill(dsBOLETIN)<br />
<br /><br />
Dim dtBOLETIN As DataTable = dsBOLETIN.Tables(0)  <br />
Dim boletin = (From B In dtBOLETIN.AsEnumerable() _<br />
               Take (10) _<br />
        Where B.Field(Of String)("ESTADO").Equal(estado).ToString_<br />
               Select New With   <br />                
                         {<br />
                    .NºProcesso = B.Field(
Of Int64)("DOPID"),<br />
                                                .NºTubo = B.Field(Of String)("DOPNTUBO"),<br />
                                              .DataEnvio = B.Field(Of DateTime)("DATAENVIO"),      <br />
                                               .Estado = B.Field(Of String)("TIPOENVIO"),   <br />
                                              .Email = B.Field(Of String)("DESTINO")       <br />
             })<br />
 If boletin.Count > 0 Then   <br />
  Dim bs As New BindingSource() <br />
    bs.DataSource = boletin<br />
     grid_smsEnviadas.DataSource = bs<br />

Else   <br />
  grid_smsEnviadas.DataSource = Nothing <br />
    grid_smsEnviadas.Refresh()<br />
End If<br />



Sem comentários:

Enviar um comentário