Solved

table programatically

Posted on 2009-03-30
8
155 Views
Last Modified: 2012-05-06
' If I have the cartid as static like. "38400d3a-9451-41b1-b1d6-5910073af288" then my data shows up.
        ' But when I try to delcare it I see no data. this has droven me banannas. Please
        ' if anyone sees anything that I cannot see or should work .

prm = New SqlParameter("@CartID", SqlDbType.Char, 36)
        prm.Direction = ParameterDirection.Input
        prm.Value = CartID "38400d3a-9451-41b1-b1d6-5910073af288"
        cmd.Parameters.Add(prm)

Dim Header(100, 5)

        Dim hWeek As Integer = 0

        Dim hDept As String = ""

        Dim widx As Integer = -1
 

        Dim conn As New SqlConnection(Application("A1SConnString"))

        Dim cmd As SqlCommand

        Dim prm As SqlParameter

        cmd = New SqlCommand("GetShoppingCartProducts", conn)
 

        Dim c As TableCell

        Dim r As TableRow

        '-----------------------------------------------
 

        Dim CartID As Char

        ''I have a table I am programatically showing. The problem is passing the Parameter for cartid. 

        

        prm = New SqlParameter("@CartID", SqlDbType.Char, 36)

        prm.Direction = ParameterDirection.Input

        prm.Value = "38400d3a-9451-41b1-b1d6-5910073af288"

        cmd.Parameters.Add(prm)
 

        cmd.CommandType = CommandType.StoredProcedure

        cmd.CommandTimeout = 120 'Number of seconds to wait for a response.
 

        Dim sqlDR As SqlDataReader

        conn.Open()

        sqlDR = cmd.ExecuteReader(CommandBehavior.Default)

Open in new window

0
Comment
Question by:sevensnake77
  • 5
  • 3
8 Comments
 
LVL 13

Accepted Solution

by:
hiteshgoldeneye earned 500 total points
ID: 24026949
hi, u have mentioned
 prm.Value = CartID "38400d3a-9451-41b1-b1d6-5910073af288"
 are u appending CartId to 38400d3a-9451-41b1-b1d6-5910073af288 ?
if yes then i thing u need 37 chars and u need to change
prm = New SqlParameter("@CartID", SqlDbType.Char, 36) to
prm = New SqlParameter("@CartID", SqlDbType.Char, 37)

Let me know if this helps
 
0
 
LVL 9

Author Comment

by:sevensnake77
ID: 24028623
Sorry that did not work. So weird , maybe you think it is the way i delcared it.

 Dim CartID As Integer

I have no idea.
0
 
LVL 13

Assisted Solution

by:hiteshgoldeneye
hiteshgoldeneye earned 500 total points
ID: 24028822
to be frank u i did not understand the use of CartId in the following statement
prm.Value = CartID "38400d3a-9451-41b1-b1d6-5910073af288"
0
 
LVL 9

Author Comment

by:sevensnake77
ID: 24028907
Do i suppose to change what i have to what you have. Not using the cmd

Dim CartID As Integer

        prm = cmd.Parameters.Add("@CartID", SqlDbType.Char, 36)

        prm.Value = CartID

        
 
 

 Dim CartID As Integer

        prm = New SqlParameter("@CartID", SqlDbType.Char, 36)

        prm.Value = CartID

Open in new window

0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 
LVL 9

Author Comment

by:sevensnake77
ID: 24028923
Well the cartid is passed to another table one the user add to cart. this is a cookie that is inside the user machine. and the userid. I am just trying to pull the information to the table. I know this work because I done this by binding but for this particular problem i have to do this programatically.
0
 
LVL 9

Author Comment

by:sevensnake77
ID: 24029018
even tryied this way.

Dim prm As New SqlParameter("@CartID", SqlDbType.Char, 36)

        cmd.CommandType = CommandType.StoredProcedure

        prm.Value = CartID

        cmd.Parameters.Add(prm)

Open in new window

0
 
LVL 13

Assisted Solution

by:hiteshgoldeneye
hiteshgoldeneye earned 500 total points
ID: 24029042
u have used
prm.Value = CartID

what is the value of CartId?, where are you assigning a value to it?
0
 
LVL 9

Author Comment

by:sevensnake77
ID: 24029133
I fix it I had to change the stored procedure to @cartid  to cartid
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

747 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

12 Experts available now in Live!

Get 1:1 Help Now