Jump to content

pepe1970

Members
  • Content Count

    42
  • Joined

  • Last visited

Everything posted by pepe1970

  1. Hola como estas? necesitaria un ejemplo de conexion de combobox en excel con sql server en un archivo. tendrias uno?

  2. si necesito hacer el cambio de pendiente a preparado pero por dos condiciones en este caso nro de remito y cliente como seria la instruccion
  3. quiero utilizar combobox con sql server, encontre este archivo en el foro. pero no se como cambiar la conexion de acces a sql server Combos dependientes SQL.rar
  4. como hago para cambiar la conexion del siguiente archivo de acces a sql server?

    Combos dependientes SQL.rar

    1. JSDJSD

      JSDJSD

      Sube el archivo al foro para que todos puedan verlo y dar su posible solución.

    2. pepe1970
  5. muchas gracias por la ayuda. como te daras cuenta soy nuevo y voy metiendo mano para aprender

  6. Muchas gracias funciona a la perfección.
  7. Hola muchas gracias, voy a probar el adjunto y te comento. el valor remito es asignado por cada cliente por eso no tiene una lógica. cada cliente tiene su propio talonario de remito, nosotros solo los imprimimos y realizamos al armado y envió de los pedidos. los números de nota los asigna el as 400 y cada cliente tiene una correlativa. el archivo que envié sirve para facturar los distintos items segun corresponda por cliente.
  8. exactamente ese es el proceso y perdon por no explicarme de ese forma
  9. en el formulario userform2 el boton registrar
  10. Adjunto el archivo sin claves ADM RTOS ENERO-FEBRERO2020.xlsm
  11. uh perdon entra con usuario adm y clave 3800
  12. tengo un archivo con dos hojas, pedidos y distribución. al momento de completar la hoja distribución con un formulario vba (userform2) intento que busque y compare dos columnas la columna B de pedidos y la columna c de distribución, y en una tercera columna L de la hoja pedidos cambie el estado de pendiente a preparado. pero me arroja el error 91 ADM RTOS ENERO-FEBRERO2020.xlsm
  13. Como puedo conectarme desde un formulario en excel vba mediante un boton a sql server de forma remota?
  14. hola Alexander muchas gracias por sus aportes y soluciones.  tengo na duda adjunto un fichero que se conecta a una base de acces y lo que yo necesito es que este fichero sea modificado para conectar a sql server, soy nuevo y lo mas probable que lo que necesito sea sencillo. 

    Desde ya muchas gracias

     

     

    Combos dependientes SQL.rar

  15. hola necesito ayuda, no puedo conectar a mi base de datos este es mi script tengo un error y no se donde esta Dim Conect As Object Set Conect = CreateObject("ADODB.Connection") Conexion = "Provider=SQLOLEDB.1;" & _ "Password=" & 123456 & ";" & _ "Persist Security Info=True;" & _ "User ID=" & usuario1 & ";" & _ "Initial Catalog=" & administracion & ";" & _ "Data Source=" & DESKTOP-6OND6L7\SQLEXPRESS & " Conect.ConnectionString = Conexion Conect.Open End Sub
  16. hola tengo un formulario en excel vba que se completa con datos de una tabla que esta en un servidor sql. en el formulario tengo dos combobox los cuales se deberian completar con datos de una tabla del servidor. necesito que al llenar el primer combobox el segundo se active y se complete con datos de otras de las columnas de las tablas, y a su vez este haga que se completen una serie de textbox del mismo formulario . no se como hacerlo. Asi hago la conexion al servidor desde el combobox a una secuencia en el modulo Private Sub ComboBox1_Change() Dim SQL As String Dim Connected As Boolean Dim Rs As ADODB.Recordset SQL = "select * from clientes where cliente='" & (ComboBox1) & "' order by cliente" Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion") If Connected Then Call Query5(SQL) Call Disconnect Else MsgBox "Could Not Connect!" esta secuencia esta en el modulo Function Connect(Server As String, User As String, Pass As String, Database As String) As Boolean Set CN = New ADODB.Connection On Error Resume Next With CN .ConnectionString = "Provider=SQLOLEDB.1;" & _ "Password=" & Pass & ";" & _ "Persist Security Info=True;" & _ "User ID=" & User & ";" & _ "Initial Catalog=" & Database & ";" & _ "Data Source=" & Server .Open End With If CN.State = 0 Then Connect = False Else Connect = True End If End Function End If End Sub
  17. Estoy intentando trabajar con dos tablas diferentes y una misma conexion, a una le pido unos datos para completar un formulario y ese formulario una vez completado lo envio a otra tabla, no se como trabajar con las dos tablas y una misma conexion. aca detallo lo que tengo se estoy intentando conectar dos veces pero no se como poner la instruccion para conectar una sola vez muchas gracias aca intento que al colocar el nro de rto en el textbox10 seleccione de la tabla pedidos recibidos donde dice remito se conecte y ejecute el query Private Sub TextBox10_Change() Dim SQL As String Dim Connected As Boolean SQL = "SELECT Remito FROM pedidos_recibidos where Remito = " & TextBox10 & "" Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion") If Connected Then Call Query1(SQL1) Call Disconnect Else MsgBox "Could Not Connect!" End If End Sub Estes es el query con el que intento traer los datos al textbox desde la tabla predidos_recibidos Function Query1(SQL As String) Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open SQL, CN rs.Open "SELECT * FROM pedidos_recibidos", CN If rs.State = False Then '<<< Comprobamos que la consulta nos traiga resultados UserForm2.TextBox33 = rs.Fields("Mes") '<<< Pasamos los resultados al Textbox End If este el que envia a la tabla pedidos_cerrados los datos del formulario una vez completo Private Sub CommandButton1_Click() Dim SQL As String Dim Connected As Boolean SQL = "insert into pedidos_cerrados (Fecha_recep,Rto_nro,Cliente,Ciudad,Zona,Estado,Direccion,Mes,Año,Destino,Fecha_prep_ped,Hora_recep_ped,Hora_fin_ped,Tipo_recep,Tipo_entrega,kilos_real,Cajas_total,Mtrs_cubicos,Pallets,Lineas,Unidades,Cajas_originales,Kilos_aforados,Kilos_a_facturar) values('" & TextBox9 & "','" & TextBox10 & "','" & TextBox35 & "','" & TextBox3 & "','" & TextBox5 & "','" & ComboBox5 & "','" & TextBox1 & "','" & TextBox33 & "','" & TextBox34 & "','" & TextBox32 & "','" & TextBox36 & "','" & TextBox52 & "', '" & TextBox37 & "', '" & TextBox53 & "', '" & ComboBox9 & "'," & TextBox13 & "," & TextBox29 & ",'" & TextBox30 & "','" & TextBox11 & "','" & TextBox12 & "','" & TextBox38 & "','" & TextBox54 & "','" & TextBox28 & "','" & TextBox51 & "');" Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion") If Connected Then Call Query(SQL) Call Disconnect Else MsgBox "Could Not Connect!" End If 'Limpiar cajas de texto UserForm2.TextBox9.Value = "" UserForm2.TextBox10.Value = "" UserForm2.TextBox35.Value = "" UserForm2.TextBox1.Value = "" UserForm2.TextBox3.Value = "" UserForm2.TextBox2.Value = "" UserForm2.TextBox4.Value = "" UserForm2.TextBox5.Value = "" UserForm2.TextBox6.Value = "" UserForm2.TextBox7.Value = "" UserForm2.TextBox8.Value = "" UserForm2.TextBox9.Value = "" UserForm2.TextBox11.Value = "" UserForm2.TextBox12.Value = "" UserForm2.TextBox13.Value = "" UserForm2.TextBox33.Value = "" UserForm2.TextBox34.Value = "" UserForm2.ComboBox3.Value = "" UserForm2.ComboBox9.Value = "" UserForm2.ComboBox4.Value = "" UserForm2.TextBox19.Value = "" UserForm2.TextBox20.Value = "" UserForm2.TextBox21.Value = "" UserForm2.TextBox22.Value = "" UserForm2.TextBox23.Value = "" UserForm2.TextBox24.Value = "" UserForm2.TextBox25.Value = "" UserForm2.TextBox26.Value = "" UserForm2.TextBox27.Value = "" UserForm2.TextBox51.Value = "" UserForm2.TextBox38.Value = "" UserForm2.TextBox37.Value = "" UserForm2.TextBox36.Value = "" UserForm2.TextBox54.Value = "" UserForm2.TextBox52.Value = "" UserForm2.TextBox53.Value = "" UserForm2.TextBox32.Value = "" UserForm2.TextBox31.Value = "" End Sub
  18. Me arroja error en esta linea perdon por las preguntas pero soy nuevo en vba Function Query1(SQL As String) Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open SQL, CN rs.Open "SELECT * FROM pedidos_recibidos", CN aca me arroja el error If rs.State = False Then '<<< Comprobamos que la consulta nos traiga resultados UserForm2.TextBox33 = rs.Fields("Mes") '<<< Pasamos los resultados al Textbox End If End Function
  19. hola realizo la conexion y al intentar traer el dato desde sql al texbox me da un error en la linea del texbox En el textbox de mi formulario indico que al cambiar realice la instruccion sql y contecte con mi servidor y si esta conectado ejecute el query1 que se encuentra en el modulo 1 que muestro mas abajo Private Sub TextBox10_Change() Dim SQL As String Dim Connected As Boolean SQL = "SELECT Remito FROM pedidos_recibidos where Remito = " & CDbl(TextBox10) '<<< Cadena SQL Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion") If Connected Then Call Query1(SQL) Call Disconnect Else MsgBox "Could Not Connect!" End If End Sub esta es la funcion en el modulo 1 Function Query1(SQL As String) Dim rs As ADODB.Recordset rs.Open SQL, CN rs.Open "SELECT * FROM pedidos_recibidos", CN If rs.State = False Then '<<< Comprobamos que la consulta nos traiga resultados TextBox33 = rs.Fields("Mes") '<<< Pasamos los resultados al Textbox Aca me arroja el error de variable no creada End If End Function
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png