Advertisement
Guest User

Untitled

a guest
Jul 28th, 2016
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.30 KB | None | 0 0
  1. Sub test()
  2.  
  3. Dim strsql1, tr As String
  4. Dim rst As ADODB.Recordset
  5.  
  6. strsql1 = "SELECT * FROM FP WHERE SUBMISSION_ID = 5683;"
  7.  
  8.  
  9. Set cn = New ADODB.Connection
  10. cn.Open "Provider=Microsoft.ace.OLEDB.12.0; Data Source=\REDACTED.accdb;"
  11.  
  12. Set rst = New ADODB.Recordset
  13.  
  14. rst.Open strsql1, cn, adOpenStatic
  15.  
  16. End Sub
  17.  
  18. Open connection
  19.  
  20. Execute about the simplest SQL query possible
  21.  
  22. End
  23.  
  24. Dim strsql1, tr As String
  25.  
  26. Dim strsql1 [As Variant], tr As String
  27.  
  28. Public const FP_DATABASE_CONNECTION_STRING As String = "Provider=Microsoft.ace.OLEDB.12.0; Data Source=\REDACTED.accdb;"
  29.  
  30. selectFpId5683 = "SELECT * FROM FP WHERE SUBMISSION_ID = 5683;"
  31.  
  32. Option Explicit
  33.  
  34. Public Const FP_DATABASE_CONNECTION_STRING As String = "Provider=Microsoft.ace.OLEDB.12.0; Data Source=\REDACTED.accdb;"
  35.  
  36. Function GetAllFpRecordsWithId5683() As ADODB.Recordset
  37.  
  38. Dim fpConnection As ADODB.Connection
  39. Set fpConnection = New ADODB.Connection
  40. fpConnection.Open FP_DATABASE_CONNECTION_STRING
  41.  
  42. Dim selectFpId5683 As String
  43. selectFpId5683 = "SELECT * FROM FP WHERE SUBMISSION_ID = 5683;"
  44.  
  45. Dim recordsWhereId5683 As ADODB.Recordset
  46. Set recordsWhereId5683 = New ADODB.Recordset
  47. recordsWhereId5683.Open selectFpId5683, fpConnection, adOpenStatic
  48.  
  49. Set GetAllFpRecordsWithId5683 = recordsWhereId5683
  50.  
  51. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement