En ocasiones se necesita copiar datos entre datatables, aqui pongo una manera facil de poder hacer estas operaciones.

Primero se declaran 2 datatables, el primero obtendra los resultados de un query, y por consecuencia tendra un numero determinado de columnas, se pone un ciclo para copiar el numero de columnas al 2do datatable y posteriormente se hace el copiado de datarows entre ambos

Dim DataTableLeer As New DataTable
Dim DataTableLeer2 As New DataTable
Dim selectcmd As New SqlClient.SqlDataAdapter

Dim conn As New SqlClient.SqlConnection(String.Format(“Data Source='{0}’;Initial Catalog='{1}’;User Id= ‘{2}’;Password ='{3}’;”, server, database, username, password))

conn.Open()
DataTableLeer.Clear()

selectcmd = New SqlClient.SqlDataAdapter(String.Format(“Select * from tabla “), conn)
selectcmd.Fill(DataTableLeer)

For i As Integer = 0 To DataTableLeer.Columns.Count – 1
DataTableLeer2.Columns.Add(DataTableLeer.Columns(i).ColumnName)
Next

DataTableLeer2.Rows.Add(DataTableLeer.Rows(0).ItemArray)

espero sea de utilidad

saludos

En algunas ocasiones es necesario mandar un correo electronico desde tu aplicacion, esto de manera automatica y en ocasiones sin que te avise.. aqui les escribo una manera rapida de hacerlo para una cuenta de correo de GMAIL

Public Sub sendmail()
Dim Mensaje As New System.Net.Mail.MailMessage()
Dim Servidor As New System.Net.Mail.SmtpClient

Servidor.Credentials = New System.Net.NetworkCredential(“correofuente@gmail.com”, “contraseniadegmail”)
Servidor.Host = “smtp.gmail.com”
Servidor.Port = 587
Servidor.EnableSsl = True
Continue reading

Como alguno saben y otros apenas se enteran(como es mi caso), en un datatable de VB .NET se pueden guardar distintos tipos de datos e inclusive Objetos, sin embargo, antes de agregar valores hay que declarar primero que tipo de valor se guardará para dicha columna, ya que en caso de no hacerlo por defecto se guardan como tipo String.

Para asignar un tipo de dato a una columna de un DataTable solamente hay que hacer lo siguiente

Continue reading