[FONT="]Hello,
I am fairly new to Oracle Smart View and have been recently assigned to debug an issue with establishing a connection to our National Sales connection. Establishing a connection requires logging in with a username and password.
How do I properly establish a connection to National Sales and Zoom In on "All Customers" (Manual Input). My code so far is:
Microsoft Excel Objects
This Workbook:
'Opens form to access workbook
Private Sub Workbook_Open()
U_login.Show
End Sub
Forms
U_login
Private Sub CommandButton1_Click()
U_ID = UID.Value
PASS_W = PASS_WORD.Value
Beep
U_login.Hide
End Sub
Module3
'Deletes previous customer list and adds new based on segment selection
Sheets("Customer List").Select
range("I1").Select
ActiveCell.FormulaR1C1 = "=Location"
range("H1").Select
ActiveCell.FormulaR1C1 = "=Segment"
Columns("A:A").Select
selection.ClearContents
range("A3").Select
ActiveCell.FormulaR1C1 = "All Customers"
range("A3").Select
x = HypInvalidateSSO()
x = HypConnect(Empty, U_ID, PASS_W, "Sales-NationalSales")
x = HypSetConnAliasTable(Empty, "Default")
x = HypSetOption(HSV_EXCEL_FORMATTING, 30, "Customer List")
x = HypZoomIn(Empty, Empty, 1, False)
Now when I get to HypConnect and I check the connections established it says there are none. When I continue to press F8 the debug message box appears. Please bear with me as I am not that great with VBA. Would be a great learning lesson if someone could show me a code to properly establish connection to a shared database. Thanks!
-Evan
[/FONT]
[FONT="][/FONT]
I am fairly new to Oracle Smart View and have been recently assigned to debug an issue with establishing a connection to our National Sales connection. Establishing a connection requires logging in with a username and password.
How do I properly establish a connection to National Sales and Zoom In on "All Customers" (Manual Input). My code so far is:
Microsoft Excel Objects
This Workbook:
'Opens form to access workbook
Private Sub Workbook_Open()
U_login.Show
End Sub
Forms
U_login
Private Sub CommandButton1_Click()
U_ID = UID.Value
PASS_W = PASS_WORD.Value
Beep
U_login.Hide
End Sub
Module3
'Deletes previous customer list and adds new based on segment selection
Sheets("Customer List").Select
range("I1").Select
ActiveCell.FormulaR1C1 = "=Location"
range("H1").Select
ActiveCell.FormulaR1C1 = "=Segment"
Columns("A:A").Select
selection.ClearContents
range("A3").Select
ActiveCell.FormulaR1C1 = "All Customers"
range("A3").Select
x = HypInvalidateSSO()
x = HypConnect(Empty, U_ID, PASS_W, "Sales-NationalSales")
x = HypSetConnAliasTable(Empty, "Default")
x = HypSetOption(HSV_EXCEL_FORMATTING, 30, "Customer List")
x = HypZoomIn(Empty, Empty, 1, False)
Now when I get to HypConnect and I check the connections established it says there are none. When I continue to press F8 the debug message box appears. Please bear with me as I am not that great with VBA. Would be a great learning lesson if someone could show me a code to properly establish connection to a shared database. Thanks!
-Evan
[/FONT]
[FONT="][/FONT]