Posteado por: alejandrolaorden | 16 enero, 2013

ITERAR POR UN ODBC CREADO EN VISUAL STUDIO 10 Y METERLO EN UN GRID

Hola, voy a dejar un código que he hecho en estos días, que no he encontrado por la web y me parece fundamental para una pequeña aplicación

Dim cn As OdbcConnection
cn = New OdbcConnection(txtodbc.Text)
Dim sSql As String = txtSQL.Text
Dim ocCmd As OdbcCommand = New OdbcCommand(sSql, cn)
Dim drData As OdbcDataReader
Dim sColumnName As String
Dim iRowc As Integer
Dim alSequence = New ArrayList()
Dim alRow = New ArrayList()

Try
WriteLog(“Proceso manual. Visionando datos SQL.”)
cn.Open()
drData = ocCmd.ExecuteReader
Dim schemaTable As DataTable = drData.GetSchemaTable()
Dim dcColumn As DataColumn

dgvDatos.Columns.Clear()
dgvDatos.Rows.Clear()

‘Lleno nombres de columnas y array para discriminar posicion columna
dcColumn = schemaTable.Columns(0)
For Each row In schemaTable.Rows
sColumnName = row(dcColumn).ToString()
dgvDatos.Columns.Add(sColumnName, sColumnName)
alSequence.Add(sColumnName)
Next

‘Voy leyendo iterador secuencial para llenar grid

If drData.HasRows Then
While drData.Read()
Dim i As Integer
Dim sDato As String
dgvDatos.Rows.Add(1)
iRowc = dgvDatos.RowCount
For i = 0 To alSequence.Count – 1
sDato = drData.GetString(i)
dgvDatos.Rows(iRowc – 1).Cells(i).Value = sDato
Next
End While
End If

Catch eEx As Exception
MsgBox(“Se ha producido un error ” + eEx.Message)
Finally
drData.Close()
cn.Close()
End Try
End Sub

About these ads

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Categorías

Seguir

Recibe cada nueva publicación en tu buzón de correo electrónico.

%d personas les gusta esto: