vbscript 选择sql到DatagridView

Posted 2021-05-21

Dim cadenaConexion As String = ConfigurationManager.ConnectionStrings("SINDICADOS.My.MySettings.BD_UNIDAD_CONTABLEConnectionString").ConnectionString
        Using cnn As New SqlConnection(cadenaConexion)
            Dim query As String = ""
            If ListBoxOficinas.Items.Count <> 0 Then
                query = "SELECT ANACREDIT, A_PERIODIF, BANCO_AGENTE, BASE, BROKER, CONTRATO, DIA_PERIODO_ACTUAL, DIFERENCIA, DIVISA, FECHA_FINAL_DISPOSICION, " + _
                            "FECHA_FIN_VALIDEZ, FECHA_INICIAL_DISPOSICION, FECHA_INICIO_VALIDEZ, FIXING_DISP_USD, IMPAGADO, IMPORT_DISPOSICIO, " + _
                            "INT_COBRADOS_NO_CONTABILIZADOS, INT_COBRADOS_NO_PERIODIF, MARCH_CAPITAL_MARKETS, MARGEN, OBSERVACIONES, OFICINA, PERIODIF_ACUM, " + _
                            "PERIODIF_ANTERIOR, SALDO_CONTABILIDAD, TIPO_INTERES, TIPO_REFERENCIA, TITULAR, VENCIMIENTO_FINAL " + _
                            "FROM [001CRED_SINDICADOS] " + _
                            "WHERE (OFICINA IN (@OFICINA)) AND (FECHA_INICIO_VALIDEZ = '@FECHA_INICIO_VALIDEZ') Order By OFICINA"
                query = Replace(query, "@OFICINA", oficinasString)
            Else
                query = "SELECT ANACREDIT, A_PERIODIF, BANCO_AGENTE, BASE, BROKER, CONTRATO, DIA_PERIODO_ACTUAL, DIFERENCIA, DIVISA, FECHA_FINAL_DISPOSICION, " + _
                            "FECHA_FIN_VALIDEZ, FECHA_INICIAL_DISPOSICION, FECHA_INICIO_VALIDEZ, FIXING_DISP_USD, IMPAGADO, IMPORT_DISPOSICIO, " + _
                            "INT_COBRADOS_NO_CONTABILIZADOS, INT_COBRADOS_NO_PERIODIF, MARCH_CAPITAL_MARKETS, MARGEN, OBSERVACIONES, OFICINA, PERIODIF_ACUM, " + _
                            "PERIODIF_ANTERIOR, SALDO_CONTABILIDAD, TIPO_INTERES, TIPO_REFERENCIA, TITULAR, VENCIMIENTO_FINAL " + _
                            "FROM [001CRED_SINDICADOS] " + _
                            "WHERE (FECHA_INICIO_VALIDEZ = '@FECHA_INICIO_VALIDEZ') Order By OFICINA"
            End If

            query = Replace(query, "@FECHA_INICIO_VALIDEZ", FECHA_INICIO.Month.ToString() + "/" + FECHA_INICIO.Day.ToString() + "/" + FECHA_INICIO.Year.ToString())

            Dim cmd As New SqlCommand(query, cnn)
            cmd.CommandType = CommandType.Text

            Dim da As New SqlDataAdapter(cmd)
            Dim dt As New DataTable()
            da.Fill(dt)

            DataGridView1.DataSource = dt
        End Using