pepe1970

Como puedo conectarme desde un formulario en excel vba mediante un boton a sql server de forma remota?

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

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

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

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

ok muchas gracias

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

muchas gracias lo pruebo y te comento

soy nuevo en vba excel y sql server lo que quiero es algo asi una sequencia que me permita buscar en una tabla de sql server y me complete unos textbox en un userform con vba excel. encontre este scrip pero no se como modificarlo para realizar lo que necesito. string query = "SELECT * FROM Befit_CobrosPendientes WHERE Cancelado = @Cancelado"; SqlCommand Command = new SqlCommand(query, Conexion); Command.Parameters.AddWithValue("@IdCobro", Convert.ToInt32(txtBusqueda.Text)); SqlDataReader reader = Command.ExecuteReader(); while (reader.Read()) { txt6Mas.Text = reader["Cancelado"].ToString(); }

ok

hola, no encuentro la forma de completar textbox de un userform en vba excel desde sql server por favor ayuda gracias

Funciono ok muchas gracias perdpn la demor

muchas gracias reviso el scrip y les informo como me fue

existe algo mal en las macros?