Skip to main content
2 de 2
se eliminaron 932 caracteres en el cuerpo

¿Como crear una tabla en SQL a traves de excel usando vba?

como puedo crear una tabla de SQL en excel a traves de VBA? ya que mi idea es usar un boton en excel y que este me ejecute el codigo. Aqui le dejo el cogigo:

Sub Conexion_SQL()
Dim strcon, inst As String
Dim conexion As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set conexion = New ADODB.Connection

strcon = "Provider=SQLOLEDB.1;Password=clave;Persist Security Info=False;User ID=usuario;Initial Catalog=base_de_dato;Data Source=servidor"
conexion.Open strcon
inst = "create table tabla_prueba(v1 int, v2 int, v3 int)"
rs.Open inst, strcon


End Sub