Solved

table programatically

Posted on 2009-03-30
8
156 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…

895 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