Visual Basic - PARA LUCKAS

Life is soft - evento anual de software empresarial
 
Vista:

PARA LUCKAS

Publicado por Juanfran (15 intervenciones) el 16/11/2000 00:00:00
LO HE INTENTADO Y NO OBTENGO RESULTADOS. POR FAVOR ENVIAME UN EJEMPLITO. MUCHAS GRACIAS POR TODO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Mando Ejemplo

Publicado por lucKas (75 intervenciones) el 17/11/2000 00:00:00
Hola JuanFran!

Aquí te paso un código que he desarrollado donde el obejtivo es el recuperar los precios de un articulo, los precios se obtienen a partir de
una Consulta parametrizada donde el único parametro es el Código del Articulo buscado.

Lo he hecho de la siguiente manera en un Form vacio he colocado 3
TextBox poniendo
en cada uno de ellos el DataField correspondiente a CodigoArticulo,
Precio1,Precio2 , tambien
he añadido un Boton (CommandButton), para comprovar que podía pasar un
parametro desde
una Variable o el contenido de un TextBox. Y por ultimo he desarrollado el
siguiente código que
abre conexiones, comandos y recordsets para la busqueda del articulo.
´// ------------------------
Option Explicit
Dim cnn As ADODB.Connection
Dim com As ADODB.Command
Dim rst As ADODB.Recordset
Dim Parametro As String

Private Sub Command1_Click()
Parametro = "044CRM16" ´// El valor en vez de ser fijo podria ser el contenido de una
´// variable o un Text que tu escribas
Set rst = com.Execute(, Parametro) ´// Tambien le puedo mandar el parametro desde
´//otro evento
Set Text1.DataSource = rst
Set Text2.DataSource = rst
Set Text3.DataSource = rst
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set com = New ADODB.Command
Set rst = New ADODB.Recordset

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ProgInfo\InfoConta5
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mando Ejemplo (Se quedo a medias)

Publicado por lucKas (75 intervenciones) el 17/11/2000 00:00:00
Option Explicit
Dim cnn As ADODB.Connection
Dim com As ADODB.Command
Dim rst As ADODB.Recordset
Dim Parametro As String

Private Sub Command1_Click()
Parametro = "044CRM16" ´// El valor en vez de ser fijo podria ser el contenido de una
´// variable o un Text que tu escribas
Set rst = com.Execute(, Parametro) ´// Tambien le puedo mandar el parametro desde
´//otro evento
Set Text1.DataSource = rst
Set Text2.DataSource = rst
Set Text3.DataSource = rst
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set com = New ADODB.Command
Set rst = New ADODB.Recordset

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ProgInfo\InfoConta\InfoConta\InfoConta.mdb;Persist Security Info=False"
cnn.Open
com.ActiveConnection = cnn
com.CommandType = adCmdTable
com.CommandText = "ConsultaUBIS"

rst.Index = "ClaveZ"
rst.CursorLocation = adUseClient

Parametro = "044CRM25" ´// Le paso el valor que quiero al parametro (Aquí por Ejemplo)

´// Ejecucion del Command pasandole el parametro
Set rst = com.Execute(, Parametro)
Set Text1.DataSource = rst
Set Text2.DataSource = rst
Set Text3.DataSource = rst
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar