Click here to Skip to main content
15,508,689 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: Passing PointF as Optional Parameter Pin
Richard Deeming28-Jul-21 22:30
mveRichard Deeming28-Jul-21 22:30 
GeneralVisual Basic Scripts Pin
Luis M. Rojas28-Jul-21 14:12
Luis M. Rojas28-Jul-21 14:12 
AnswerRe: Visual Basic Scripts Pin
Richard Deeming28-Jul-21 22:27
mveRichard Deeming28-Jul-21 22:27 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas29-Jul-21 3:26
Luis M. Rojas29-Jul-21 3:26 
GeneralRe: Visual Basic Scripts Pin
Richard Deeming29-Jul-21 3:50
mveRichard Deeming29-Jul-21 3:50 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas29-Jul-21 4:20
Luis M. Rojas29-Jul-21 4:20 
GeneralRe: Visual Basic Scripts Pin
Richard Deeming29-Jul-21 4:26
mveRichard Deeming29-Jul-21 4:26 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas2-Aug-21 6:27
Luis M. Rojas2-Aug-21 6:27 
Sorry: I can not make it works
Here a few word and how it works

First, we call the WS:http://..../wstest/get.asp?cmd=Agencias
In the code:
'Read the Request.QueryString("cmd")

sAction = Request.QueryString("cmd")

'Checked the action, action do not recives any param at all
'Then calls, depends of the action, a function

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

'This a function. All functions are like this
Sub getAgenciasJSON()
Dim sSqlWrk, rswrk
sSqlWrk = "SELECT * FROM [" & xDb_Catalog_Str & "].[dbo].[SUC_MAESTRA] as x with (nolock)"
sSqlWrk = sSqlWrk & " WHERE (x.[SUC_ESTADO] = 'A')"
sSqlWrk = sSqlWrk & " ORDER BY x.[SUC_DESCRIPCION]"

Set rswrk = conn.Execute(sSqlWrk)
oJSON.LoadRecordset rswrk
Set rswrk = Nothing
oJSON.Write()
End Sub

'This is the new function, which of course needs a param,
'The question is: How can i read o pass the param using: http://..../wstest/get.asp?cmd=cedula=784512422
' because cedula need a param. How can i read the param using sAction = Request.QueryString("cmd")?
'
Sub getCedulaJSON()'
Dim sSqlWrk, rswrk, sCedula

'How can i get the param cedula and it value in order to make the select
sCedula = Request.QueryString("cedula")
sSqlWrk = "SELECT nombres, apellido1, apellido2 from cedulados where trim(mun_ced) + trim(seq_ced) + trim(ver_ced) = '" + sCedula + "'"
Set rswrk = conn2.Execute(sSqlWrk)
oJSON.LoadRecordset rswrk
Set rswrk = Nothing
oJSON.Write()
End Sub
GeneralRe: Visual Basic Scripts Pin
jsc422-Aug-21 8:04
professionaljsc422-Aug-21 8:04 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas2-Aug-21 9:14
Luis M. Rojas2-Aug-21 9:14 
QuestionMissing Controls After Office 2019 Installation Pin
Ken Kazinski11-Jul-21 3:16
professionalKen Kazinski11-Jul-21 3:16 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Eddy Vluggen11-Jul-21 7:56
professionalEddy Vluggen11-Jul-21 7:56 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Gerry Schmitz11-Jul-21 8:09
mveGerry Schmitz11-Jul-21 8:09 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski12-Jul-21 17:40
professionalKen Kazinski12-Jul-21 17:40 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Gerry Schmitz13-Jul-21 8:23
mveGerry Schmitz13-Jul-21 8:23 
AnswerRe: Missing Controls After Office 2019 Installation Pin
CHill6015-Jul-21 3:29
mveCHill6015-Jul-21 3:29 
AnswerRe: Missing Controls After Office 2019 Installation Pin
jsc4215-Jul-21 4:07
professionaljsc4215-Jul-21 4:07 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski18-Jul-21 4:07
professionalKen Kazinski18-Jul-21 4:07 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski18-Jul-21 4:09
professionalKen Kazinski18-Jul-21 4:09 
QuestionProject building Pin
Anthony Yawson11-Jul-21 0:59
Anthony Yawson11-Jul-21 0:59 
GeneralRe: Project building Pin
Richard MacCutchan11-Jul-21 3:47
mveRichard MacCutchan11-Jul-21 3:47 
AnswerRe: Project building Pin
Dave Kreskowiak11-Jul-21 6:47
mveDave Kreskowiak11-Jul-21 6:47 
QuestionCaret problem Pin
Uchiha Yueh8-Jul-21 17:53
Uchiha Yueh8-Jul-21 17:53 
AnswerRe: Caret problem Pin
Dave Kreskowiak8-Jul-21 18:08
mveDave Kreskowiak8-Jul-21 18:08 
GeneralRe: Caret problem Pin
Uchiha Yueh8-Jul-21 23:03
Uchiha Yueh8-Jul-21 23:03 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.