Solved

vb.net and access database help

Posted on 2009-04-04
5
372 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

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

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

The first two articles in this short series — Using a Criteria Form to Filter Records (http://www.experts-exchange.com/A_6069.html) and Building a Custom Filter (http://www.experts-exchange.com/A_6070.html) — discuss in some detail how a form can be…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…

813 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

10 Experts available now in Live!

Get 1:1 Help Now