Hola Comunidad Stack Over Flow, estoy en un proyecto en el cual debo de guardar unos datos en SQL escritos desdecomo puedo crear una hoja excel, en donde si la tabla ende SQL no existe, se debe generar una nueva, pero no me da el codigo y en internet no hay mucha informacion, si alguien me puede ayudar se lo agradeceria. Ademasexcel a traves de eso, creo que tengo que configurar algo en SQL pero no se,VBA? ya que mi idea es usar un boton en VBA de excel dice "create table permission denied in database", aqui estay 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=1234;Persist1;Password=clave;Persist Security Info=False;User ID=DBSIND_RW;InitialID=usuario;Initial Catalog=RepProd_MI;DataCatalog=base_de_dato;Data Source=database"Source=servidor"
conexion.Open strcon
inst = "insert into VENTAS values (1,2,3)"
rs.Open inst, strcon
'Se genera un error de que no se puede llenar la tabla SQL porque la tabla no existe
If "error que indica que no este generada la tabla" = True Then
inst2 = inst
'Llamo el formulario el cual el usuario indica el nombre de la tabla, numero de variables y tipo de variables
generariondetabla.Show
'Por ejemplo el usuario indico que introduciria 3 variables enteras, y sus nombres, cargo esta instruccion con estas variables
inst = "create table VENTAStabla_prueba( variable1v1 int, variable2v2 int, variable3v3 int)"
'ejecuto la instruccion
rs.Open inst, strcon
'Luego ejecuto la instruccion para guardar estos datos
rs.Open inst2, strcon
End If
End Sub