0

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
1

2 respuestas 2

0

En SQL Server se pueden crear reglas para el manejo de datos (select, insert, update, etc) y reglas para la manipulación de objetos (tablas, vista, procedimientos almacenados, etc). En sentido general estos permisos se le otorgan o se le deniegan a los usuarios que se conectan a la BBDDs, así que lo más probable es que DBSIND_RW no tenga permisos para crear tablas.

Saludos

0

ya pude, algo asi era, escribo el codigo que me permite hacer la creacion de la tabla, y luego la configuracion que debo hacer en la base de datos:

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

strcon = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=False;User ID=DBSIND_RW;Initial Catalog=RepProd_MI;Data Source=168.172.100.1"
conexion.Open strcon
instruccion = "create table ventas(compra int, venta int, impuesto int)"

rs.Open instruccion, strcon
Set conexion = Nothing

End Sub

Luego en SQL sigue esta serie de comando.

En basededatos>security>logins> se presiona el boton derecho y se selecciona properties:

-Se selecciona server roles: se presiona public y sysadmin

-Se selecciona User Maps Master: se presiona db_owner y public, a su vez se presiona Master

introducir la descripción de la imagen aquí

introducir la descripción de la imagen aquí

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.