Skip to main content
se eliminaron 932 caracteres en el cuerpo
Origen Enlace

¿Como crear una base de datostabla en SQL ena traves de excel enusando vba?

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

¿Como crear una base de datos en SQL en excel en vba?

Hola Comunidad Stack Over Flow, estoy en un proyecto en el cual debo de guardar unos datos en SQL escritos desde una hoja excel, en donde si la tabla en 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. Ademas de eso, creo que tengo que configurar algo en SQL pero no se, ya que en VBA de excel dice "create table permission denied in database", aqui esta el codigo:

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;Persist Security Info=False;User ID=DBSIND_RW;Initial Catalog=RepProd_MI;Data Source=database"
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 VENTAS( variable1 int, variable2 int, variable3 int)"
'ejecuto la instruccion
rs.Open inst, strcon
'Luego ejecuto la instruccion para guardar estos datos
rs.Open inst2, strcon
End If

End Sub

¿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
Origen Enlace

¿Como crear una base de datos en SQL en excel en vba?

Hola Comunidad Stack Over Flow, estoy en un proyecto en el cual debo de guardar unos datos en SQL escritos desde una hoja excel, en donde si la tabla en 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. Ademas de eso, creo que tengo que configurar algo en SQL pero no se, ya que en VBA de excel dice "create table permission denied in database", aqui esta el codigo:

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;Persist Security Info=False;User ID=DBSIND_RW;Initial Catalog=RepProd_MI;Data Source=database"
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 VENTAS( variable1 int, variable2 int, variable3 int)"
'ejecuto la instruccion
rs.Open inst, strcon
'Luego ejecuto la instruccion para guardar estos datos
rs.Open inst2, strcon
End If

End Sub