Foro de Lenguaje Basic

Primero te explico un poquito
"un tipo conexion que contendra tu conexion a tu base de sql date una vuelta por connectionstrings.com
"el tipo conexion es para abrir la base y sacar los datos que queresmos
dim conexion as new sqlclient.sqlconexion(myconexionstring)
"el tipo datadapter es donde ponemos nuestra sentencia sql que nos devolvera nuestros datos de la tabla, y asignamos la conexion para que abra la base

dim dt as new sqlclient.sqldatadapter("Select nombre from tabla",conexion)
"el objeto dataset almacena el resultado de nuestra consulta filas, y columnas
dim ds as new dataset
"ahora lo llenamos
dt.fill(ds,"tabla")
"ahora habra que ver que quieres actualizar insertar o eliminar esto es con el command
dim cmd as new sqlclient.sqlcommand("Update tabla set nombre = "HAVER" where nombre = "haver"",conexion)
dim cmd as new sqlclient.sqlcommand("Delete from tabla where nombre = "HAVER"",conexion)
dim cmd as new sqlclient.sqlcommand("Insert into tabla (nombre) values ("HAVER")",conexion)
"ahora excel uff.
Dim objLibroExcel As Excel.Workbook
            Dim objHojaExcel As Excel.Worksheet
            Dim m_excel As New Excel.Application
            m_excel.Workbooks.Open(Application.StartupPath & "PlantillasR.xls")
           objLibroExcel = m_excel.Workbooks("Rec.xls") ".add
            objHojaExcel = objLibroExcel.Worksheets("Dolares")
            objHojaExcel.Unprotect(Password:="pAS")
            objHojaExcel.ScrollArea = ""

            m_excel.Visible = False "para que sea visible o no
            objHojaExcel.Activate()

"para manejar el rango de una hoja de excel (columna fila )
objHojaExcel.Range("G6").Value
"Impresion de la hoja
objHojaExcel.PrintOut(Copies:=inp, Collate:=True)
            ""Vacio las variables---------
            m_excel.DisplayAlerts = False
            m_excel.Quit()
            m_excel = Nothing
            objHojaExcel = Nothing
            objLibroExcel = Nothing

Que tal Haver oye ya lo hice de otra manera... mira ahora lo que hice en breve cree un datagrid y en ese mismo dataGrid coloco la hoja de excel que requiero... ahora lo que quiro hacer es desdes ese DataGrid pasarlo a una base de datos de sql server 2000 a una tabla que ya tengo creada.. mira estos son los datos
Ahora podremos guardar nuestra informacion al hacer click en el boton guardar, aqui se validara que existan datos o mejor filas en el datagrid, ahora recorreremos nuestro datagrid por medio de un For. tendremos una varia de tipo string (SqlString ) donde agregaremos la sentencia para guardar en la base de datos (INSERT INTO), ademas de un araylist para agregar las sentencias.
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        If dgvEjemplo.Rows.Count > 0 Then
            Dim SqlString As String = "" " variable a la que asignaremos la sentencia
            Dim ListSqlStrings As New ArrayList  "arregla donde ingresaremos las sentencias
            "recorremos el datagrid como ya sabemos siempre se toma desde cero
            For i As Integer = 0 To dgvEjemplo.Rows.Count - 1
                "creamos la sentencia el row siempre tendra el valor de i para ir pasando de row en row
                "el campo .cells(0) indica la columna que esta ese dato, tambien puede hacerlo con el nombre de la celda .cells("Nombre")
                SqlString = "INSERT INTO datos (nombre,deporte,fecha_inscripcion) VALUES ("" + dgvEjemplo.Rows(i).Cells(0).Value.ToString() + "","" + dgvEjemplo.Rows(i).Cells(1).Value.ToString() + "","" + dgvEjemplo.Rows(i).Cells(2).Value.ToString() + "")"
                "agregamos la sentencia a la lista
                ListSqlStrings.Add(SqlString)
            Next
            If EjecutarTransaccion(ListSqlStrings) Then
                MessageBox.Show("Info. guardada correctamente")
                Close()
            Else
                MessageBox.Show("La Info. no se guardo")
            End If
        Else
            MessageBox.Show("No hay informacion para guardar")
        End If
    End Sub