Visual Basic.NET - sqlclient

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

sqlclient

Publicado por ESTEFANIA (1 intervención) el 13/11/2019 13:28:39
Hola amigos tengo un detalle con la generacion de un listado(reporte) les comento:

un programa al generar un listado de CR y una vista de SQL con varias tablas de la base de datos demora mas de una hora en generarse, no se si esto se deba a que el controlador es ADODB (porque anteriormente se trabajo con access y ahora migramos a SQL server)y si cambiandolo a SQLclient la cosa mejore el problema esta en que siempre he trabajado con ADODB y no con ADO SQLclient y no se realmente donde y como hacer los cambios. el codigo es asi cuando se ejecuta el listado:
METODO QUE GENERA EL LISTADO

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
Public Sub listado()
    Dim lhelp, lped, lcli As ADODB.Recordset
    Dim sqls, ordx, rutc, zonx, nomx, NFac As String
    Dim tnc, tnd, pagosx, saldus, pagospa As Long
    Dim dias, dx1, dx2, dx3, dx4, dx5, dx6 As Long
 
    lhelp = New ADODB.Recordset
    lped = New ADODB.Recordset
    lcli = New ADODB.Recordset
    dias = 0
    'If CnxAdi.State = 0 Then
    '    conecta_adi()
    'End If
    If Cnx.State = 0 Then
        conecta()
    End If
    sqls = "delete from tabla1"
    lhelp.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
 
    sqls = "select rutpro,identificador,estado from tabla2 order by rutpro"
    lcli.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
    If lcli.RecordCount > 0 Then
        While Not lcli.EOF
            rutc = lcli.Fields.Item(0).Value
            Esperar.Label1.Text = "Revisando ... " & rutc
            Esperar.Update()
 
            sqls = "select FOLIO,FECHA,NumPed,Fechav,Vendedor,TOTAL,Tipo from tabla3 where Rut_cliente='" & _
                   rutc & "' and Tipo='FA' and Estado='V' order by FECHA ASC"
            lhelp.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
            If lhelp.RecordCount > 0 Then
                While Not lhelp.EOF
                    NFac = lhelp.Fields.Item(0).Value
                    ordx = ""
                    zonx = ""
                    nomx = ""
                    sqls = "select OrdC,Zona from tabla4 where NumPed='" & _
                     lhelp.Fields.Item(2).Value & "'"
                    lped.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
                    If lped.RecordCount > 0 Then
                        If Not IsDBNull(lped.Fields.Item(0).Value) Then
                            ordx = lped.Fields.Item(0).Value
                            zonx = lped.Fields.Item(1).Value
                        End If
                    End If
                    lped.Close()
 
                    sqls = "select identificador from tabla5 where codigoi=" & _
                           lhelp.Fields.Item(4).Value
                    lped.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
                    If lped.RecordCount > 0 Then
                        If Not IsDBNull(lped.Fields.Item(0).Value) Then
                            nomx = lped.Fields.Item(0).Value
                        End If
                    End If
                    lped.Close()
 
 
                    tnc = 0
                    tnd = 0
 
                    sqls = "select sum(total) from tabla3 where NumGui='" & _
                           lhelp.Fields.Item(0).Value & "' and Tipo='NC' and estado='V'"
                    lped.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
                    If lped.RecordCount > 0 Then
                        If Val(lped.Fields.Item(0).Value.ToString) > 0 Then
                            tnc = lped.Fields.Item(0).Value
                        End If
                    End If
 
                    lped.Close()
                    sqls = "select sum(total) from tabla3 where NumGui='" & _
                           lhelp.Fields.Item(0).Value & "' and Tipo='ND' and estado='V'"
                    lped.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
                    If lped.RecordCount > 0 Then
                        If Val(lped.Fields.Item(0).Value.ToString) > 0 Then
                            tnd = lped.Fields.Item(0).Value
                        End If
                    End If
                    lped.Close()
 
                    ' PAGOS
 
                    pagosx = 0
 
                    sqls = "select sum(MontoDoc) from tabla2 where Factura='" & _
                           lhelp.Fields.Item(0).Value & "' and Estado='V' and (Cod_TDoc='CF' or " & _
                           "Cod_TDoc='DP' or Cod_TDoc='AC' or Cod_Tdoc='PA' or Cod_Tdoc='TB')"
 
                    'sqls = "select Monto_Ref from zz_Sys_Pagos_Factura where Factura='" & _
                    '        lhelp.Fields.Item(0).Value & "'"
 
 
                    lped.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
                    If lped.RecordCount > 0 Then
                        If Val(lped.Fields.Item(0).Value.ToString) <> 0 Then
                            pagosx = lped.Fields.Item(0).Value
                        End If
                    End If
 
                    lped.Close()
 
                    pagospa = 0
 
                    'sqls = "select sum(MontoDoc) from tabla2 where Referencia='" & _
                    '       lhelp.Fields.Item(0).Value & "' and Factura<>Referencia and " & _
                    '       "Estado='V' and Cod_Tdoc='PA'"
                    ''or " & _ "mid(Cod_Tdoc,1,2)='DR' or mid(Cod_Tdoc,1,2)='RA')"
                    'lped.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
                    'If lped.RecordCount > 0 Then
                    '    If Val(lped.Fields.Item(0).Value.ToString) <> 0 Then
                    '        pagospa = (lped.Fields.Item(0).Value) * -1
                    '    End If
                    'End If
                    'lped.Close()
 
 
                    'Dim datos_saldos As ArrayList
                    'datos_saldos = calcula_saldo_Factura(Nfac)
                    'tnc = datos_saldos(0)
                    'tnd = datos_saldos(1)
                    'pagosx = datos_saldos(2)
 
                    saldus = 0
                    saldus = lhelp.Fields.Item(5).Value + tnd - tnc - pagosx - pagospa
 
                    If saldus <> 0 Then
                        dx1 = 0
                        dx2 = 0
                        dx3 = 0
                        dx4 = 0
                        dx5 = 0
                        dx6 = 0
                        dias = DateDiff(DateInterval.Day, lhelp.Fields.Item(1).Value, Now)
                        If dias > 0 And dias <= 30 Then
                            dx1 = saldus
                        End If
                        If dias > 30 And dias <= 60 Then
                            dx2 = saldus
                        End If
                        If dias > 60 And dias <= 90 Then
                            dx3 = saldus
                        End If
                        If dias > 90 And dias <= 120 Then
                            dx4 = saldus
                        End If
                        If dias > 120 And dias <= 365 Then
                            dx5 = saldus
                        End If
                        If dias > 365 Then
                            dx6 = saldus
                        End If
                        '"Total,NC,ND,Pagos,Saldo,0_30,31_60,61_90,91_120,121_365,365m" & _
                        '& num_sql(CStr(tnc), True) & _
                        '       "," & CStr(tnd) & "," & CStr(pagosx) & _
                        '       "," & num_sql(CStr(saldus), True) & "," & num_sql(CStr(d1), True) & _
                        '       "," & num_sql(CStr(d2), True) & "," & num_sql(CStr(d3), True) & _
                        '       "," & num_sql(CStr(d4), True) & "," & num_sql(CStr(d5), True) & _
                        '       "," & num_sql(CStr(d6), True) 
                        'MsgBox(CStr(dx1))
                        sqls = "INSERT INTO tabla1 (Rut,Vendedor,Est,OC,Factura,Fecha," & _
                               "tabla1.Total,NC,ND,Pagos,Saldo,[0_30],[31_60],[61_90],[91_120],[121_365],[365m]," & _
                               "RS,Región,NomVend) Values ('" & rutc & _
                               "'," & CStr(lhelp.Fields.Item(4).Value) & ",'" & _
                               lcli.Fields.Item(2).Value & "','" & _
                               ordx & "','" & lhelp.Fields.Item(0).Value & "','" & _
                               Format(CDate(lhelp.Fields.Item(1).Value), "yyyyMMdd HH:mm:ss") & _
                               "'," & num_sql(CStr(lhelp.Fields.Item(5).Value), True) & _
                               "," & num_sql(CStr(tnc), True) & _
                               "," & num_sql(CStr(tnd), True) & _
                               "," & num_sql(CStr(pagosx), True) & _
                               "," & num_sql(CStr(saldus), True) & _
                               "," & num_sql(CStr(dx1), True) & _
                               "," & num_sql(CStr(dx2), True) & _
                               "," & num_sql(CStr(dx3), True) & _
                               "," & num_sql(CStr(dx4), True) & _
                               "," & num_sql(CStr(dx5), True) & _
                               "," & num_sql(CStr(dx6), True) & _
                               ",'" & lcli.Fields.Item(1).Value & _
                               "','" & zonx & "','" & nomx & "')"
                        'MsgBox(sqls)
                        '            "," & CStr(d4) & "," & CStr(d5) & ")"
                        '    sqls = "INSERT INTO tabla1 (Rut,Vendedor,Est,OC,Factura,Total," & _
                        '           "NC,ND,Saldo,0-30,31-60,61-90,91-120,120) Values ('" & rutc & _
                        '            "'," & CStr(lhelp.Fields.Item(4).Value) & ",'" & lcli.Fields.Item(2).Value & "','" & _
                        '            ordx & "','" & lhelp.Fields.Item(0).Value & "'," & lhelp.Fields.Item(5).Value & _
                        '            "," & CStr(tnc) & "," & CStr(tnd) & "," & CStr(saldus) & _
                        '            "," & CStr(d1) & "," & CStr(d2) & "," & CStr(d3) & _
                        '            "," & CStr(d4) & "," & CStr(d5) & ")"
                        lped.Open(sqls, Cnx, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockBatchOptimistic, -1)
                    End If
                    lhelp.MoveNext()
                End While
            End If
            lhelp.Close()
            lcli.MoveNext()
        End While
 
    End If
    lcli.Close()
    lhelp = Nothing
    lped = Nothing
    lcli = Nothing
End Sub
Mi pregunta es simple como cambio el controlador a SQLClient. 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
Imágen de perfil de Phil Rob
Val: 2.107
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

sqlclient

Publicado por Phil Rob (508 intervenciones) el 13/11/2019 17:41:24
Hola,

Con SQL, tienes que utilizar los codigos siguiente :

1
Imports System.Data.SqlClient
y las herramientas :
1
2
3
Dim MiConexion As SQLConnection  ' ...
Dim MiComando As New SQLDbCommand   ' ...
Dim FraseDeConexion As String   ' ...

Adjunto el proyecto MisExistencias en version SQL (quizá no es "free bug") con muchos comentarios. Veras ejemplos.
Para ejecutar, tienes que cambiar "D:\Tmp\MisExistencias\DBExistencias.mdf" con el camino exacto.

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