Solved and access database help

Posted on 2009-04-04
Last Modified: 2012-05-06

i am trying to follow some code i seen online and dont understand how to make it all work i need some help can someone follow the code in this video and explain to me what i am doing wrong.


i have some code but its not working
Imports Interop.QBFC7

Imports MSXML2

Imports QBXMLRP2Lib

Imports System

Imports System.Runtime.Remoting

Imports System.Runtime.Remoting.Channels

Imports Microsoft.VisualBasic

Imports Microsoft.Office.Interop.Access

Public Class Sync

    Dim l As Label ' lable that shows the user thatrs loged in 

    Dim rs As ADODB.Recordset ' recorde set for the connection 

    Dim sqlstmt As String

    Dim id As String

    Dim linkn As String

    Dim pointer1 As String

    Dim ct As Integer = 0

    Dim zone As String

    Dim DateNow As Date = Now

    Dim DateToday As Date = Today

    Dim HRDBConn As ADODB.Connection

    Dim ConnTechnologyServices As ADODB.Connection

    Dim ConnLeoPortal As ADODB.Connection

    Dim i As Integer

    Private Sub localDBConnectionOpen()

        ConnLeoPortal = DBConnectionOpen(ConnLeoPortal, "c:\QB\QBSDKVB.mdb", "")

    End Sub

    Private Sub localDBConnectionClose()

        ConnLeoPortal = DBConnectionClose(ConnLeoPortal)

    End Sub

    Private Sub Sync_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call localDBConnectionOpen()

        sqlstmt = "SELECT * FROM QBInvoice"

        rs = DBRecordSetNewFast(ConnLeoPortal, sqlstmt)

        ' Dim qbxmlrp As RequestProcessor2

        Dim qbxmlrp As New QBOESessionManager

        qbxmlrp.OpenConnection("", " Sync App")

        qbxmlrp.BeginSession("", ENOpenMode.omDontCare)

        Dim msgReq As IMsgSetRequest

        msgReq = qbxmlrp.CreateMsgSetRequest("US", 3, 0)

        Dim query As IInvoiceQuery

        query = msgReq.AppendInvoiceQueryRq

        Dim resp As IMsgSetResponse

        resp = qbxmlrp.DoRequests(msgReq)

        Dim replist As IResponse

        replist = resp.ResponseList.GetAt(0)

        Dim currep As IResponse

        currep = replist

        If currep.StatusCode < 0 Then

            Dim resptype As IResponse

            resptype = currep.Type

            If currep.Type.GetValue Then

                Dim invoice As IInvoiceQuery

                invoice = currep.Detail

                Dim curlist As IInvoiceRet

                currep = resp.ResponseList.GetAt(i)

                For i = 0 To 10

                    sqlstmt = "Insert into QBInvoice (Type,Date,Name,Num,Class,CLR,Splits,Amount,Balance) values ()"



            End If

        End If


        qbxmlrp = Nothing

    End Sub

End Class

Open in new window

Question by:Chris Jones
  • 2
  • 2

Author Comment

by:Chris Jones
ID: 24067777
in my code i am trying to get QB(quick books data from Quickbooks and place it into my access database i dont know how to get the QB values and place in my database
LVL 46

Accepted Solution

tbsgadi earned 500 total points
ID: 24070386

Author Closing Comment

by:Chris Jones
ID: 31566592
thanks this kinda works
LVL 46

Expert Comment

ID: 24074593
Glad to help!

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now