Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim adoConn as ADODB.Connection
Dim adoComm as ADODB.Command
Dim adoParamUserName as ADODB.Parameter
Dim adoParamPWD as ADODB.Parameter
Dim sSQL as String
Dim i as Long
sSQL = ""
sSQL = sSQL & " INSERT INTO tbl_User"
sSQL = sSQL & " (UserName, Password)"
sSQL = sSQL & " VALUES (?, ?)"
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = "My Connection String"
adoConn.Open
Set adoComm = New ADODB.Command
adoComm.ActiveConnection = adoConn
adoComm.CommandText = sSQL
Set adoParamUserName = adoComm.CreateParameter("UserName", adString, adParamInput, 20)
Set adoParamPWD = adoComm.CreateParameter("Password", adString, adParamInput, 20)
adoComm.Parameters.Add adoParamUserName
adoComm.Parameters.Add adoParamPWD
For i = 1 to NumUsers
adoParamUser.Value = User(i)
adoParamPWD.Value = PWD(i)
adoComm.Execute , , adExecuteNoRecords
Next i
Set adoParamUser = Nothing
Set adoParamPWD = Nothing
Set adoComm = Nothing
If Not adoConn Is Nothing Then
If adoConn.State = adStateOpen Then
adoConn.Close
End If
Set adoConn = Nothing
End If
sSQL = ""
sSQL = sSQL & " INSERT INTO tbl_User"
sSQL = sSQL & " (UserName, Password)"
sSQL = sSQL & " VALUES ('" & sUsername & "', '" & sPassword & "')"