See an Account detail
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Dim oConnection
Dim oRecordset
Dim sLastVendor
Dim dTotalApplied
Dim dAmountDue
Dim fname
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
fname=InputBox("Enter the Name:")
'fname=InputBox("Enter the ListID:")
oConnection.Open "DSN=Quickbooks Data;OLE DB Services=-2"
oRecordset.CursorLocation = adUseClient
oRecordset.Open "SELECT * FROM Account WHERE Name = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
'oRecordset.Open "SELECT * FROM Account WHERE ListID = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
if (not oRecordset.EOF) Then
MsgBox oRecordSet.Fields("ListID")
'MsgBox oRecordSet.Fields("Name")
else
MsgBox "NO SE ENCONTRO"
end if
oRecordset.Close
oConnection.Close
**********************************
See APAccountReflistID
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Dim oConnection
Dim oRecordset
Dim sLastVendor
Dim dTotalApplied
Dim dAmountDue
Dim fname
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
fname=InputBox("Enter the APAccountRefFullName:")
'fname=InputBox("Enter the APAccountRefListID:")
oConnection.Open "DSN=Quickbooks Data;OLE DB Services=-2"
oRecordset.CursorLocation = adUseClient
oRecordset.Open "SELECT * FROM Bill WHERE APAccountRefFullName = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
'oRecordset.Open "SELECT * FROM Bill WHERE APAccountRefListID = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
if (not oRecordset.EOF) Then
MsgBox oRecordSet.Fields("APAccountRefListID")
'MsgBox oRecordSet.Fields("APAccountRefFullName")
else
MsgBox "NO SE ENCONTRO"
end if
oRecordset.Close
oConnection.Close
*****************************************
see ExpenseLineAccountRefListID.vbs
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Dim oConnection
Dim oRecordset
Dim sLastVendor
Dim dTotalApplied
Dim dAmountDue
Dim fname
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
fname=InputBox("Enter the ExpenseLineAccountRefFullName:")
'fname=InputBox("Enter the ExpenseLineAccountRefListID:")
oConnection.Open "DSN=Quickbooks Data;OLE DB Services=-2"
oRecordset.CursorLocation = adUseClient
oRecordset.Open "SELECT * FROM BillExpenseLine WHERE ExpenseLineAccountRefFullName = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
'oRecordset.Open "SELECT * FROM BillExpenseLine WHERE ExpenseLineAccountRefListID = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
if (not oRecordset.EOF) Then
MsgBox oRecordSet.Fields("ExpenseLineAccountRefListID")
'MsgBox oRecordSet.Fields("ExpenseLineAccountRefFullName")
else
MsgBox "NO SE ENCONTRO"
end if
oRecordset.Close
oConnection.Close
********************************************************
see an ExpenseLineCustomerRefListID
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Dim oConnection
Dim oRecordset
Dim sLastVendor
Dim dTotalApplied
Dim dAmountDue
Dim fname
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
fname=InputBox("Enter the ExpenseLineCustomerRefFullName:")
'fname=InputBox("Enter the ExpenseLineCustomerRefListID:")
oConnection.Open "DSN=Quickbooks Data;OLE DB Services=-2"
oRecordset.CursorLocation = adUseClient
oRecordset.Open "SELECT * FROM BillExpenseLine WHERE ExpenseLineCustomerRefFullName = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
'oRecordset.Open "SELECT * FROM BillExpenseLine WHERE ExpenseLineCustomerRefListID = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
if (not oRecordset.EOF) Then
MsgBox oRecordSet.Fields("ExpenseLineCustomerRefListID")
'MsgBox oRecordSet.Fields("ExpenseLineCustomerRefFullName")
else
MsgBox "NO SE ENCONTRO"
end if
oRecordset.Close
oConnection.Close
********************************************************
| 
