Lacmynar
27 de Julio del 2005

Necesito Ayuda de Visual Basic, lo que quiero hacer es por medio de una macro en excel que por supuesto utiliza Vbasic tengo el siguiente problema: tengo un formulario que tiene un textbox donde yo introdusco un numero de cuenta el cual tiene que ir a consultarlo a la base de datos que tengo en SQL server la cual es la base de datos es a_valles y la tabla cc.cc_cuenta_efectivo, el campo que tiene el numero de cuenta es num_cuenta y el nombre se encuentra en nom_chequera. De ahi quiero que me devuelva el nombre de la persona que tiene ese numero de cuenta que introduci en el textbox anteriormente y el resultado de esa consulta lo envie a otro textbox del mismo formulario. Soy nuevo en esto y no se como conectarme a la base de datos y llenar el textbox con el resultado de la consulta.

GabrielSR2004
27 de Julio del 2005

Te paso un ejemplo que realice en Excel el cual maneja una taabla privote en la cual existe un boton que tiene la funcion de actualizarla tabla de donde sale la información de la pivote.

--------------------------------------
Option Explicit

Dim rpsProcedure As rdoPreparedStatement
Dim rdoConn As rdoConnection
Dim b_Cancelado As Boolean
Dim strConn As String


Private Sub CmdProcesar_Click()
Conexion
Label1.Visible = True
Set rpsProcedure = rdoConn.CreatePreparedStatement("", "{call SP_Pronostico_Agenda_Surt}")
rpsProcedure.Execute
Label1.Visible = False
End Sub

Private Sub Conexion()
On Error GoTo err

strConn = "DSN=Servidor; uid=Usuario;pwd=12345"

Set rdoConn = rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, False, strConn)
rdoConn.QueryTimeout = 60000
Exit Sub
err:
MsgBox err.Number & ":" & err.Description, vbCritical + vbOKOnly, "Error al tratar de conectar al servidor"
End Sub

----------------------------------------------

Te paso el 50% de la solucion, el otro 50% te lo dejo
en este ejemplo la macro realiza la coneccion

Espero haberte ayudado

---------------------------------------------------
Gabriel Sanchez
[email protected]

lacmynar
27 de Julio del 2005

GabrielSR2004 gracias por tu respuesta pero la verdad no entiendo como puedo llenar el textbox de mi formulario que tengo en VBasic lo que pasa es lo siguiente tengo cuenta:______________y yo introdusco la cuenta en ese textbox1 y abajo de ese tengo otro texbox2 ______________ donde debe aparecer el nombre de la persona que tiene ese numero de cuenta despues de que yo termine de teclear el numero, eso es lo que necesito pero no se tampoco como conectarme al la base de datos que tengo en SQL Server y hacer la comparacion del numero de cuenta del textbox1 con la consulta que seria de esta forma SELECT nom_chequera FROM cc.cc_cuenta_efectivo where num_cuenta = y no se si se pueda comparar directamente con el textbox1 yo tenia entendido que para conectarme a la base de datos era algo parecido a esto: et strCmd = New ADODB.Command
Set cnn = New ADODB.Connection

Set strCmd2 = New ADODB.Command
Set Cnn2 = New ADODB.Connection

strConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; pwd = serfirsql; Initial Catalog= a_valles; Data Source=(192.168.2.5)"
'cnn.Open strConnectionString
pero no se la verdad.