query para tomar datos del excel y guardarlos en el mismo excel

Todas las respuestas

• 

  

  0

  Inicie sesión para votar

  ya lo resolvi !!

  con estas lineas llamo la base de datos y la inserto en la hoja de calculo de excel

  Sub Conectar()
  Dim Conexion As ADODB.Connection
  Dim Comando As ADODB.Command
  Dim rdSet As ADODB.Recordset
  Dim Instruccion As String
  Dim strConex As String
  Dim contReg As Long
  
  Set Conexion = New ADODB.Connection
  
  strConex = "Provider=SQLOLEDB;Data Source=xxxxx;Initial Catalog=xxxxx;User ID=sa;Password=xxxxx;"
  
  Conexion.Open strConex
  
  Instruccion = "Select [f_01_Usuario], [f_01_Perfil] from [xxxxx].[dbo].[m_01_Usuarios]"
  
  Set Comando = New ADODB.Command
  
  With Comando
  '.CreateCommand() = Conexion adCmdTable '
  .ActiveConnection = Conexion
  .CommandText = Instruccion
  .CommandType = adCmdText
  Set rdSet = .Execute
  End With
  
  
  'contReg = rdSet.RecordCount
  
     
  While Not rdSet.EOF
   Range("A1").Offset(contReg, 0).Value = rdSet.Fields(0).Value
   Range("A1").Offset(contReg, 1).Value = rdSet.Fields(1).Value
   contReg = contReg + 1
  ' Range("$A$1").Value = rdSet.Fields(0).Value
  ' Range("$B$1").Value = rdSet.Fields(1).Value
   rdSet.MoveNext
  Wend
  
  rdSet.Close
  
  Set rdSet = Nothing
  Set Comando = Nothing
  
  Conexion.Close
  Set Conexion = Nothing
  Dim a As Integer
  
  End Sub

  
  

  
  

  • Propuesto como respuesta greg_dorian miércoles, 15 de junio de 2016 14:47
  • Editado greg_dorian miércoles, 15 de junio de 2016 15:30
  • Marcado como respuesta José De Alva miércoles, 29 de junio de 2016 20:48

  miércoles, 15 de junio de 2016 14:47
• 

  

  0

  Inicie sesión para votar

  lo necesito hacer desde una query de sql, gracias igualmente, si podrias ayudarme cn esto te lo agradeceria.

  Saludos

  miércoles, 15 de junio de 2016 14:53
• 

  

  1

  Inicie sesión para votar

  hola cristian la query 

  Instruccion = "Select [f_01_Usuario], [f_01_Perfil] from [m_01_Usuarios]"

  lo podrias hacer o si necesitas con parametros utiliza lo siguiente:

  cmd.CommandType = CommandType.StoredProcedure;
  cmd.CommandText = ("insert_questions") ;
  cmd.Parameters.AddWithValue("@value", valueHere);
  cmd.Parameters.AddWithValue("@value2", valueHere);

  espero te sirva
  

  • Marcado como respuesta José De Alva miércoles, 29 de junio de 2016 20:48

  miércoles, 15 de junio de 2016 15:29