Advertisement
Help Keep Boards Alive. Support us by going ad free today. See here: https://subscriptions.boards.ie/.
If we do not hit our goal we will be forced to close the site.

Current status: https://keepboardsalive.com/

Annual subs are best for most impact. If you are still undecided on going Ad Free - you can also donate using the Paypal Donate option. All contribution helps. Thank you.
https://www.boards.ie/group/1878-subscribers-forum

Private Group for paid up members of Boards.ie. Join the club.

VB.NET/MS Access sql problem

  • 12-08-2011 11:43AM
    #1
    Saint_Mel
    Registered Users, Registered Users 2 Posts: 2,602 ✭✭✭


    Having a bit of bother filling a DataSet.
    Background ... VB.NET application, MS Access database

    I want to concatenate 2 of the fields in a query so the SQL and have them seperated by a hyphen as so:

    SELECT [Field1] & " - " & [Field2] AS [JoinedFields],
    SUM([Field3]) AS [TotalField3]
    GROUP BY Field1, Field2

    When I run this directly in the MS Access query it works fine, results shown as :

    [JoinedFields] ... [TotalField3]
    [AAA - BBBBB] ........... [ 2 ]
    [AAA - CCCCC] ........... [ 5 ]
    [AAA - DDDDD] ........... [ 2 ]
    [BBB- AAAAAA] ........... [ 1 ]
    [BBB - BBBBB ] ........... [ 3 ]
    [BBB - DDDDD] ........... [ 7 ]

    Problem is when I run it through VB.NET to fill a DataSet

    Dim DBCommand = New OdbcCommand(sSQL, DBConnection)
    daQueryResults.SelectCommand = DBCommand
    daQueryResults.Fill(dsQueryResults, "QueryResultsDataSet")

    On the Fill I get :
    "ERROR [07002] [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1."

    Any idea what I'm doing wong?


Comments

  • #2
    FSL
    Registered Users, Registered Users 2 Posts: 1,456 ✭✭✭FSL


    Why have you got quotation marks around QueryResultsDataSet?

    Presumably QueryResultsDataSet is a variable by putting quotation marks around it you are sending the string "QueryResultsDataSet" not the contents of QueryResultsDataSet.


  • #3
    Evil Phil
    Registered Users, Registered Users 2 Posts: 7,468 ✭✭✭Evil Phil


    Can you post the complete code listing? It's difficult to understand what exactly your doing with only 3 lines of actual code.


  • #4
    Saint_Mel
    Registered Users, Registered Users 2 Posts: 2,602 ✭✭✭Saint_Mel


    Evil Phil wrote: »
    Can you post the complete code listing? It's difficult to understand what exactly your doing with only 3 lines of actual code.

    Yep,

    Dim sConnectionString As String = "dsn=myConnectionString"
    Dim DBConnection As New Odbc.OdbcConnection(sConnectionString)
    Dim daQueryResults As New OdbcDataAdapter
    Dim dsQueryResults As New DataSet

    Try

    Dim sSQL As String = ""
    sSQL = "SELECT [Field1] & " & """ - """ & " & [Field2] AS [JoinedFields], SUM([Field3]) AS [TotalField3] FROM myTable GROUP BY Field1,Field2"

    Dim DBCommand = New OdbcCommand(sSQL, DBConnection)
    daQueryResults.SelectCommand = DBCommand
    daQueryResults.Fill(dsQueryResults, "QueryResultDataSet")

    Catch exODBC As Data.Odbc.OdbcException
    ...
    ...
    ...


  • #5
    stevenmu
    Moderators, Society & Culture Moderators Posts: 9,688 Mod ✭✭✭✭stevenmu


    Try apostrophes instead of quote in you SQL string
    sSQL = "SELECT [Field1] & ' - ' & [Field2] AS [JoinedFields], SUM([Field3]) AS [TotalField3] FROM myTable GROUP BY Field1,Field2"

    It's been a while, but from what I remember the .Net Access adapter is a little less flexible with the characters it supports than Access itself, often leading to cryptic errors like this one.


  • #6
    Saint_Mel
    Registered Users, Registered Users 2 Posts: 2,602 ✭✭✭Saint_Mel


    stevenmu wrote: »
    Try apostrophes instead of quote in you SQL string
    sSQL = "SELECT [Field1] & ' - ' & [Field2] AS [JoinedFields], SUM([Field3]) AS [TotalField3] FROM myTable GROUP BY Field1,Field2"

    It's been a while, but from what I remember the .Net Access adapter is a little less flexible with the characters it supports than Access itself, often leading to cryptic errors like this one.

    Fantastic, that worked perfect. Thanks a million for your help


  • Advertisement
Advertisement