Visual Basic - Ejecutar procedimiento almacenado con parametros de SQL server 2005 desde visual basic 6.0 desde

Life is soft - evento anual de software empresarial
   
Vista:

Ejecutar procedimiento almacenado con parametros de SQL server 2005 desde visual basic 6.0 desde

Publicado por ronblue (1 intervención) el 09/06/2011 20:52:36
Estimados:

necesito hacer un boton que ejecute un procedimiento almacenado de sql server 2005 con parametros desde visual basic 6.0 y la salida mostrarla en una grilla ....

gracias
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

Ejecutar procedimiento almacenado con parametros de SQL server 2005 desde visual basic 6.0 desde

Publicado por aldo aldo_pc@cip.org.pe (2 intervenciones) el 09/03/2015 02:47:54
estoy en lomismo ya conseguiet la solucion ???
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

Ejecutar procedimiento almacenado con parametros de SQL server 2005 desde visual basic 6.0 desde

Publicado por Juan Gilberto (278 intervenciones) el 09/03/2015 21:00:26
Ahi te va un codigo de ejemplo donde se conecta a un servidor sql, se ejecuta un SP y se llena un listview con el recordset resultante
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
'Declarar Variables
Global MiSQL1       As ADODB.Connection
Global MiCom        As ADODB.Command
Global TOINV        As ADODB.Recordset
Global GFolio1	    As String
Global GFolio2	    As String
Global MiConStr1    As String
 
 
    'Conecta a SQL Server
    MiConStr1 = "Provider=SQLOLEDB.1;" & _
                "UID=sa;" & _
                "PWD=abcdefgh;" & _
                "Persist Security Info=False;" & _
                "Initial Catalog=Reportes;" & _
                "Data Source=MIPC\GUTIERREZ"
    Set MiSQL1 = New ADODB.Connection
        MiSQL1.CursorLocation = adUseClient
        MiSQL1.ConnectionString = MiConStr1
        MiSQL1.Open
        MiSQL1.CommandTimeout = 0
 
 
    'Ejecutar Procedimiento Almacenado y guarda resultados en recordset
    Set MiCom = New ADODB.Command
    With MiCom
        .ActiveConnection = MiSQL1
        .CommandType = adCmdStoredProc
	.CommandText = "NombreDelProcedimientoAlmacenado"
        .Parameters.Append MiCom.CreateParameter("SFolioI", adVarChar, adParamInput, 10)
        .Parameters("SFolioI").Value = Format(GFolio1)
        .Parameters.Append MiCom.CreateParameter("SFolioF", adVarChar, adParamInput, 10)
        .Parameters("SFolioF").Value = Format(GFolio2)
        .CommandTimeout = 0
        .Prepared = True
        Set TOINV = New ADODB.Recordset
        Set TOINV = .Execute
    End With
 
 
    'Llenar un ListView con el recordset
    ListView1.ListItems.Clear
    GLng1 = 0&
    If TOINV.EOF = False Or TOINV.BOF = False Then TOINV.MoveFirst
    Do Until TOINV.EOF = True
        Set LI = ListView1.ListItems.Add(, , Format(TOINV!DocNum))
            LI.SubItems(1) = Format(TOINV!DocDate, "dd-mm-yyyy")
            LI.SubItems(2) = Format(TOINV!DocTotal, "#,###,###.00")
            LI.SubItems(3) = Trim(TOINV!CardName)
        TOINV.MoveNext
    Loop
 
    '
        TOINV.Close
    Set TOINV = Nothing
        MiSQL1.Close
    Set MiSQL1 = Nothing
    Set MiCom = Nothing
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