Visual Basic

Quote:

You can set this property to true on your root element to enable pixel snap rendering throughout the UI. For devices operating at greater than 96 dots per inch (dpi), pixel snap rendering can minimize anti-aliasing visual artifacts in the vicinity of single-unit solid lines.

Public Function MyFunc(Optional P1 As PointF? = Nothing)

Public Function MyFunc(Optional P1 As Nullable(Of PointF) = Nothing)

Dim sAgencia
sAgencia = Request.QueryString("agencia")

If Len(sAgencia) <> 0 Then
   ...
End If

Sub getSucursalesJSON()
Dim sSqlWrk, rswrk, cmd
Dim sAgencia, pAgencia

    Set cmd = Server.CreateObject("ADODB.Command")
    Set cmd.ActiveConnection = conn
    cmd.CommandType = adCmdText

    sSqlWrk = "SELECT ..."
    sSqlWrk = sSqlWrk & " FROM ..."
    sSqlWrk = sSqlWrk & " WHERE ..."
    sSqlWrk = sSqlWrk & " And ..."
    
    sAgencia = Request.QueryString("agencia")
    If Len(sAgencia) <> 0 Then
        ' TODO: Specify the correct data type and size to match your column:
        Set pAgencia = cmd.CreateParameter("agencia", adVarChar, adParamInput, 100, sAgencia)
        cmd.Parameters.Append pAgencia
        
        ' TODO: Specify the correct table and column name for your filter:
        sSqlWrk = sSqlWrk & " And (x.agencia = ?)"
    End If
    
    sSqlWrk = sSqlWrk & " ORDER BY ..."
    
    cmd.CommandText = sSqlWrk
    
    Set rswrk = cmd.Execute()
    oJSON.LoadRecordset rswrk
    
    Set rswrk = Nothing
    Set pAgencia = Nothing
    Set cmd = Nothing
    
    oJSON.Write()
End Sub

<!--#include File="adovbs.inc"-->

http://..../ws?cmd=country&agencia=some%20encoded%20value

sAction = Request.QueryString("cmd")
Select Case UCase(sAction)
Case "SUCURSALES"
Call getAgenciasJSON()
Case "CEDULA"
Call getCedulaJSON()
Case "RNC"
Call getRNCJSON()
Case Else
sErrorKey = "invalid_key_value"
sErrorMessage = getDictItem("Common.InvalidKeyValue")
Call SetUpJSONfail()
End Select

Sub getCedulaJSON()'
Dim sSqlWrk, rswrk, sCedulaValue
sCedulaValue = Request.QueryString("value")
sSqlWrk = "SELECT nombres, apellido1, apellido2 from cedulados where trim(mun_ced) + trim(seq_ced) + trim(ver_ced) = '" + sCedulaValue + "'"
Set rswrk = conn2.Execute(sSqlWrk)
oJSON.LoadRecordset rswrk
Set rswrk = Nothing
oJSON.Write()
End Sub

Select Case UCase(sAction)
Case "SUCURSALES"
Call getSucursalesJSON()
Case "AGENCIAS"

Select Case UCase(sAction)
Case "SUCURSALES"
Call getAgenciasJSON()

Select Case UCase(sAction)
Case "SUCURSALES"
Call getSucursalesJSON()
Case "AGENCIAS"
Call getAgenciasJSON()

Ken Kazinski wrote:

My motherboard finally died, so I figured I would upgrade my PC

Ken Kazinski wrote:

I have a number of Access applications, that are now missing ActiveX controls I use on a number of forms. I can not find a replacement for the worksheet control (OWC11), how have other people been solving this?

Bastard Programmer from Hell
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.