Experts Exchange connects you with the people and services you need so you can get back to work.
It’s our mission to create a product that solves the huge challenges you face at work every day. In case you missed it, here are 7 delightful things we've added recently to monday to make it even more awesome.
Partial Class _Default
Dim rs As ADODB.Recordset ' recorde set for the connection
Dim sqlstmt As String
Dim ConnPortal As ADODB.Connection
Private Sub localDBConnectionOpen()
ConnPortal = DBConnectionOpenOracle(ConnPortal, "PROD.TAMU-COMMERCE.EDU", "joneschris", "cjones_1")
Private Sub localDBConnectionClose()
ConnPortal = DBConnectionClose(ConnPortal)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PIDM As String
sqlstmt = "SELECT * FROM BANINST1.AS_STUDENT_ENROLLMENT_SUMMARY WHERE PIDM_KEY = '" & txtCWID.Text & "'"
rs = DBRecordSetNewFast(ConnPortal, sqlstmt)
While Not rs.EOF
PIDM = DBGetField(rs, "CNAME")
' PNAME = DBGetField(rs, "PNAME")
rs = DBRecordSetDestroy(rs)
Open in new window
sqlstmt = "SELECT * FROM BANINST1.AS_STUDENT_ENROLLMENT_SUMMARY WHERE PIDM_KEY = " & txtCWID.Text & " "
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
The revolutionary project management tool is here! Plan visually with a single glance and make sure your projects get done.