Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
Dim oconn As New ADODB.Connection Dim RS As New ADODB.Recordset Dim strSQL As String Dim x As Long strSQL = "SELECT COUNT (TLR.CARRIER_ID)as Count " & vbCrLf & _ "FROM " & _ "TL_RATE TLR, TL_RATE_DETAIL TRD, LANE_RATE_NETWORK LRN " & vbCrLf & _ "WHERE " & _ "TLR.CARRIER_ID = TRD.CARRIER_ID (+) " & vbCrLf & _ "AND TLR.LANE_ID = TRD.LANE_ID (+) " & vbCrLf & _ "AND TLR.TARIFF_CLASS_ID = TRD.TARIFF_CLASS_ID (+) " & vbCrLf & _ "AND TLR.EFFECTIVE = TRD.EFFECTIVE (+) " & vbCrLf & _ "AND TLR.LANE_ID = LRN.ID " & vbCrLf & _ "AND TLR.CARRIER_ID = '" & carrier_id.Text & "'" & vbCrLf & _ "AND LRN.FROM_LOW_KEY_VALUE = '" & origin_id.Text & "' " & vbCrLf & _ "AND LRN.TO_LOW_KEY_VALUE = '" & destination_id.Text & "'" & vbCrLf & _ "AND TLR.DATE_INVALID > TO_DATE(TO_CHAR(SYSDATE,'YYYYMMDD'), 'YYYYMMDD')-365 " & vbCrLf & _ "GROUP by TLR.CARRIER_ID, LRN.FROM_LOW_KEY_VALUE,LRN.TO_LOW_KEY_VALUE " Set oconn = New ADODB.Connection oconn.Open "Provider=OraOLEDB.Oracle.1;Data Source=G_ENVIRONMENT;User Id=TMSFUNC;Password=TMSFUNC;" RS.CursorType = adOpenStatic RS.CursorLocation = adUseClient RS.LockType = adLockOptimistic RS.Open strSQL, oconn, adCmdText Set Form7.MSHFlexGrid_count.DataSource = RS RS.Close oconn.Close Set RS = Nothing Set oconn = Nothing
|Access 2003, my txt file export is running backwards||4||51|
|how can i unlock a picture file that was loaded in a picturebox in visual c#?||4||93|
|vb6 connector to mongodb||2||78|
|Protecting vb6 & .Net code Obfuscation||18||121|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!