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