[SOLUCIONADO] insertar datos excel en sql

[tazzmania128]

Hola a todos, me podrían decir cual sería el codigo de una macro para insertar la celda A1, B1 y C1 de un excel en una base de datos SQL2008.
La A1 en la columna NOMBRE, la B1 en APELLIDOS y la C1 en DNI

nombre de la Base de Datos: BD_PRUEBA
tabla: TB_PRUEBA
columnas: NOMBRE, APELLIDOS, DNI

Muchas gracias

[Triby]

Ya tienes la conexión a la base de datos?

Suponiendo que sí, en la misma hoja donde tienes la información agrega un botón de comando y, en el código VB (en la misma hoja, no en módulos) la siguiente rutina:

Código vb:

Sub insertaDatos()
    Dim con As New ADODB.Connection
    Dim com As New ADODB.Command
    Dim rs As ADODB.Recordset ' Este se usa solo para lectura
    Dim nombre as String, apellidos as String, dni as String
 
    Set con = New ADODB.Connection
    con.Open "DSN=tu_conexion_a_SQL2008" ' Debe estar definida en fuentes de datos
    If con.State = 1 Then
        com.ActiveConnection = con
        com.CommandType = adCmdText
    Else
        MsgBox "No se pudo conectar a base de datos"
        End
    End If
    nombre = Cells(1, 1)
    apellidos = Cells(1, 2)
    dni = Cells(1, 3)
    ' Supongo que la consulta sería en el mismo formato que en MySQL
    com.CommandText = "INSERT INTO TB_PRUEBA SET NOMBRE = '" & nombre & "', " _
        & "APELLIDOS = '" & apellidos & "', DNI = '" & dni & "'"
    ' Ejecutas
    com.Execute
    ' Cierras la conexión
    con.Close
End Sub
 

Necesitas investigar cómo escapar los datos para evitar errores, por ejemplo, cuando se use un apellido como O'Brien, porque la comilla simple finalizaría la cadena.

También deberías validar que los campos no estén en blanco.

[tazzmania128]

Hola Triby, Lo primero gracias por tu respuesta.

Todavía no lo he probado pero en cuanto lo pruebe te comento.
Tendré en cuenta lo de las comillas y lo de los campos que están en blanco

Gracias

[tazzmania128]

Hola Triby

Al ejecutarlo me da el siguiente error en la primera línea de
Dim con as new ADODB.Connection

"Error de compilacion:
No se ha definido el tipo definido por el usuario

[Triby]

Pásate por esta página; lee la segunda parte, para agregar la referencia a Microsoft ActiveX Data Objects.

[tazzmania128]

Triby,

Muchas gracias por todo, FUNCIONA!!!!!!!!!!!!!

sólo tuve que adaptar la sentencia sql, pero el resto genial

"INSERT INTO Table_Visitas (TNombre, TApellidos, TDNI) values ('" & nombre & "', '" & apellidos & "', '" & dni & "')"

Muchas gracias