|
Question : Access Form using SQL to pull data from Terradata database
|
|
I have some SQL code which is run against an NCR Terradata database using NCR Queryman. I was hoping to integrate this code into an access (97) database.
I am looking to have a simple access form where I have a field to input the value specified as "ROT.Address_Line4" and also another field for the variable specified as "BPR.Base_Product_Number = 57574598".
This would allow me to have an access form where a user would simply enter the address value and the product number and hopefully retrieve the relevant results without having manipulate the SQL.
Can anyone help as access and SQL are not my strong points.
The SQL I use in Queryman to pull the required data is:
SELECT
CAL.Calendar_Date
,ROT.Retail_Outlet_Number
,BPR.Base_Product_Number
,Stock_Holding_Qty
,Stock_Holding_Wgt
,Stock_Count_Ind
FROM VWI0DCL_STR_CLOSING_STK_ALL DCL
INNER JOIN VWI0ROT_RETAIL_OUTLET ROT
ON ROT.Retail_Outlet_Number = DCL.Retail_Outlet_Number
INNER JOIN VWI0CAL_SMALL_CALENDAR CAL
ON CAL.Calendar_Date = DCL.Calendar_Date
INNER JOIN VWI7BPR_BASE_PRODUCT_SNAPSHOT BPR
ON BPR.Base_Product_Number = DCL.Base_Product_Number
WHERE CAL.Calendar_Date = DATE -1
AND ROT.Address_Line4 = 'LOTHIAN'
AND BPR.Base_Product_Number = 57574598
|
|
|
Answer : Access Form using SQL to pull data from Terradata database
|
|
Sorry I haven't gotten back to you, been a bit busy.
I actually do a lot of Access/Teradata interaction - unfortunately, the only way for you to run this sort of dynamic query is to do it all in VBA. (As far as I know). Pass-through queries are great as long as you don't have variables you want to work with.
For example, here's some of the VBA I use to run a query and get a recordset returned. As you can see, it's pretty long, though there's a lot of unnecessary stuff in there. Once you have a recordset, you can export that however you want. Let me know where you get stuck.
Public Sub RunPassThroughQuery(StartDate As Date, EndDate As Date, Username As String, Password As String)
Dim PassThroughSQL As String
Dim FixedStartDate As String
Dim FixedEndDate As String
Dim oConn As ADODB.Connection
Dim oRec As ADODB.Recordset
Dim conStr As String 'connection string
Dim rConn As ADODB.Connection
Dim strDir As String
On Error GoTo ErrorHandle
'setup rConn (resultset connection)
Set rConn = CurrentProject.Connection
'setup oConn (opened connection) and recordset
'cursorlocation pulls all of the data to the client instead of running
'a cursort from the database server
Set oConn = New ADODB.Connection
Set oRec = New ADODB.Recordset
oConn.CursorLocation = adUseClient
'open database connection
oConn.Open "Driver={Teradata};DBCName=[my DBCName];Database=[My Database];Connect Timeout=1000;Uid=" & Username & ";Pwd=" & Password
'set this high so the query won't timeout
oConn.CommandTimeout = 1000
'fix the dates to Teradata format
If Len(DatePart("m", StartDate)) = 1 And Len(DatePart("d", StartDate)) = 1 Then
FixedStartDate = DatePart("yyyy", StartDate) & "-0" & DatePart("m", StartDate) & "-0" & DatePart("d", StartDate)
ElseIf Len(DatePart("m", StartDate)) = 1 And Len(DatePart("d", StartDate)) <> 1 Then
FixedStartDate = DatePart("yyyy", StartDate) & "-0" & DatePart("m", StartDate) & "-" & DatePart("d", StartDate)
ElseIf Len(DatePart("m", StartDate)) <> 1 And Len(DatePart("d", StartDate)) = 1 Then
FixedStartDate = DatePart("yyyy", StartDate) & "-" & DatePart("m", StartDate) & "-0" & DatePart("d", StartDate)
Else
FixedStartDate = DatePart("yyyy", StartDate) & "-" & DatePart("m", StartDate) & "-" & DatePart("d", StartDate)
End If
If Len(DatePart("m", EndDate)) = 1 And Len(DatePart("d", EndDate)) = 1 Then
FixedEndDate = DatePart("yyyy", EndDate) & "-0" & DatePart("m", EndDate) & "-0" & DatePart("d", EndDate)
ElseIf Len(DatePart("m", EndDate)) = 1 And Len(DatePart("d", EndDate)) <> 1 Then
FixedEndDate = DatePart("yyyy", EndDate) & "-0" & DatePart("m", EndDate) & "-" & DatePart("d", EndDate)
ElseIf Len(DatePart("m", EndDate)) <> 1 And Len(DatePart("d", EndDate)) = 1 Then
FixedEndDate = DatePart("yyyy", EndDate) & "-" & DatePart("m", EndDate) & "-0" & DatePart("d", EndDate)
Else
FixedEndDate = DatePart("yyyy", EndDate) & "-" & DatePart("m", EndDate) & "-" & DatePart("d", EndDate)
End If
'Here's the large SQL query [it's really long in reality]
PassThroughSQL = "select * from usertable"
'debugging - outputs query to file
'fhandle = FreeFile(0)
'strDir = "h:\projects\access\contracts\query.txt"
'Open strDir For Output As #fhandle
'Print #fhandle, PassThroughSQL
'Close #fhandle
'Exit Sub
'Run the SQL command on the Teradata warehouse
oRec.Open PassThroughSQL, oConn 'set other attributes if necessary
'Make sure there are records to pull - if not there's some
'sort of development/recordset problem
If oRec.RecordCount < 1 Then
MsgBox "There were no records to import. This is probably a bug, please contact development."
Exit Sub
End If
' this is the section where I do a row-by-row insert of the recordset into my database.
' this is where you would do your output to text, screen, or Excel since you're not storing it in a table
'cleanup
oRec.Close
oConn.Close
rConn.Close
Exit Sub
ErrorHandle:
MsgBox Error()
Exit Sub
End Sub
|
|
|
|
|
