Solved

vb.net and access database help

Posted on 2009-04-04
5
375 Views
Last Modified: 2012-05-06
Hello

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.



LINK TO VIDEO
https://member.developer.intuit.com/MyIDN/technical_resources/qb_sdk/default.aspx?id=1772


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 ()"
 
                    resp.ResponseList.GetAt(i)
 
                Next
            End If
 
 
 
 
        End If
 
        qbxmlrp.CloseConnection()
        qbxmlrp = Nothing
 
 
    End Sub
End Class

Open in new window

0
Comment
Question by:Chris Jones
  • 2
  • 2
5 Comments
 
LVL 1

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
0
 
LVL 46

Accepted Solution

by:
tbsgadi earned 500 total points
ID: 24070386
0
 
LVL 1

Author Closing Comment

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

Expert Comment

by:tbsgadi
ID: 24074593
Glad to help!
0

Featured Post

Simplifying Server Workload Migrations

This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

790 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