Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

vb.net and access database help

Posted on 2009-04-04
5
Medium Priority
?
384 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 1500 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

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

Microsoft Access has a limit of 255 columns in a single table; SQL Server allows tables with over 255 columns, but reading that data is not necessarily simple.  The final solution for this task involved creating a custom text parser and then reading…
Explore the ways to Unlock VBA Project Password Excel 2010 & 2013 documents. Go through the article and perform the steps carefully to remove VBA Excel .xls file.
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…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

886 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