Los foros del Guille

Ya está a la venta Novedades de Visual Basic 9.0

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

29/mar/2006
Utiliza asuntos descriptivos así será más fácil saber de que trata tu duda y facilitarás la tarea de los que responden a los mensajes.
Gracias.

  Foro: Office.Programación Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 58070 - Problema con condicion =100
IDAsuntoFechaNick 
58070 Problema con condicion =10031/05/16 11:31Dark_Charlie   
Hola, buenos días. Soy nuevo en este foro y en todo el tema de Visual Basic para Excel (soy muy noob) y estoy teniendo problemillas con las macros de Excel realizadas con visual Basic. Os pongo en situación, desde Visual Basic para Excel cargamos la base de datos de SQL mediante macros creadas. Pues bien, la base de datos se carga bien en Excel pero, a la hora de añadir unas condiciones, no soy capaz de que se cumplan.

Adjunto código:
Option Explicit

Dim oConexion As ADODB.Connection

Sub ConnectDB()
On Error GoTo err
Set oConexion = New ADODB.Connection
oConexion.Open "Provider=SQLOLEDB.1;Password=bandoiberica2015b;Integrated Security=SSPI;Persist Security Info=True;" & _
"User ID=Administrador;" & _
"Initial Catalog=BANDOIBERICA_2015;" & _
"Data Source=bandoserver3" 'ip o nombre del servidor
'MsgBox "Connexió establerta.", vbInformation, "1"
Exit Sub
err:
MsgBox "Error de connexió a la Base de dades: " & err.Description, vbInformation, ActiveWorkbook.Name
End Sub

Sub cargardatos()

ConnectDB

Dim fila As Integer
Dim columna As String
Dim rs As ADODB.Recordset
'Dim RsPreu As ADODB.Recordset

fila = 10
columna = "A"

Set rs = New ADODB.Recordset
'Set RsPreu = New ADODB.Recordset

rs.Open "SELECT [Bando Ibérica, S_A_$Item].[Unit Cost], [Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code], [Bando Ibérica, S_A_$Item Ledger Entry].[Item Category Code], " & _
" [Bando Ibérica, S_A_$Item Ledger Entry].[Item No_], [Bando Ibérica, S_A_$Item].Description, [Bando Ibérica, S_A_$Item].[Tipo medida base], " & _
" [Bando Ibérica, S_A_$Item].[Medida base], SUM([Bando Ibérica, S_A_$Item Ledger Entry].Quantity) AS STOCKCALCULADO " & _
" FROM [Bando Ibérica, S_A_$Item Ledger Entry] INNER JOIN " & _
" [Bando Ibérica, S_A_$Item] ON [Bando Ibérica, S_A_$Item Ledger Entry].[Item No_] = [Bando Ibérica, S_A_$Item].No_ " & _
" WHERE ([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '700') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '701') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '800') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '600') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '840') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '830') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '780') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '300') OR " & _
"([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '880') OR " & _
"(([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '602') AND ([Bando Ibérica, S_A_$Item Ledger Entry].[Item Category Code] = 'BFGEN') ) OR " & _
"(([Bando Ibérica, S_A_$Item Ledger Entry].[Global Dimension 2 Code] = '880') AND ([Bando Ibérica, S_A_$Item Ledger Entry].[Item Category Code] = 'TN10') AND ([Bando

 
(c) Guillermo 'guille' Som, 2005-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 101 - App. iniciada: 18/08/2017 14:33:09 GMT - La hora GMT del servidor es: 18/08/2017 18:17:38 GMT