Soy nuevo en la programacion y estoy desarrollando un pequeño sistema en vb.net 2010... en este momento necesito un codigo que me ayude a extraer 2 letras de un registro. por ejemplo: assdVEaspo supongamos que ese codigo sea el registro y necesito extraer las letras VE como le haria?
Siguiendo con esto esas 2 letras que extraigo necesito que se me muestren en un datagrid junto con los otros campos para luego almacenarlos a la bd..
asi es el codigo que uso actualmente para cargar el datagrid y para almacenarlo en la bd:
Código:
Imports System.Data.OleDb 'Importacion necesaria para trabajar con ficheros excel
Public Class frmInclusionantigua
'EVENTO CLICK DEL BOTON XLSX
Private Sub btnXLS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXLSX.Click
'Instanciamos nuestro cuadro de dialogo
Dim openFileDialog1 As New OpenFileDialog
'Directorio Predeterminado
openFileDialog1.InitialDirectory = "C:\"
'Filtramos solo archivos con extension *.xlsx
openFileDialog1.Filter = "Archivos de Microsoft Office Excel (*.xlsx)|*.xlsx"
'Si se presiona abrir entonces...
If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
'Asignamos la ruta donde se almacena el fichero excel que se va a importar
txtRutaXLS.Text = openFileDialog1.FileName
'Instanciamos nuestra cadena de conexion especial para excel,indicando la ruta del fichero
Dim cadconex As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Me.txtRutaXLS.Text.Trim & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"""
Dim cn As New OleDb.OleDbConnection(cadconex)
Dim cmd As New OleDbCommand
Dim da As New OleDb.OleDbDataAdapter
Dim dt As New DataTable
cmd.Connection = cn
'Consultamos la hoja llamada GENERAL$ de nuestro archivo *.xlsx
cmd.CommandText = "select * from [GENERAL$]"
cmd.CommandType = CommandType.Text
da.SelectCommand = cmd
'Llenamos el datatable
da.Fill(dt)
'Llenamos el Datagridview
dgvImportacion.DataSource = dt
'Ajustamos las columnas del DataGridView
dgvImportacion.AutoSizeColumnsMode = 6
End If
End Sub
Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
Me.Visible = False
Me.Dispose()
frmMenu.Show()
End Sub
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
Dim cn As New MySqlConnection(frmConexion.ConexionMySQL)
cn.Open()
Try
Dim sqli As String = "INSERT INTO operaciones (campo1,campo2,campo3)" & _
"VALUES (@campo1,@campo2,@campo3)"
'Recorremos el Datagridview
For Each fila As DataGridViewRow In dgvImportacion.Rows
'Dependiendo del Datagrid se colocan las filas
Dim cmd As New MySqlCommand(sqli, cn)
cmd.Parameters.AddWithValue("@campo1", fila.Cells(1).Value)
cmd.Parameters.AddWithValue("@campo2", fila.Cells(2).Value)
cmd.Parameters.AddWithValue("@campo3", fila.Cells(3).Value)
'Ejecutar instruccion sql Insert
cmd.ExecuteNonQuery()
Next
MessageBox.Show("Registros Ingresados con Exito...")
Catch ex As Exception
'Anunciamos el error si lo hay
MsgBox(ex.Message.ToString)
MsgBox("no se pudo cargar a la base de datos")
End Try
End Sub
End Class
. 
