Exploding Garrmondo Weiner Interactive Swiss Army Penis

Exploding Garrmondo Weiner Interactive Swiss Army Penis (http://www.gamingforce.org/forums/index.php)

- Help Desk (http://www.gamingforce.org/forums/forumdisplay.php?f=36)

- - VB code problem (listbox) (http://www.gamingforce.org/forums/showthread.php?t=14107)

VB code problem (listbox)

Quote:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim myDataReader As OleDb.OleDbDataReader = Nothing
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source = a:\DataReaderAssign.mdb;Persist Security Info=False"
Dim myConnection As New OleDb.OleDbConnection(connectionString)

Dim myCommand As New OleDb.OleDbCommand{"SELECT * FROM DataReaderAssign", myConnection)
'Add header information to the listbox
lstData.Items.Add("ProdID" & vbTab & "Name" & vbTab & "NumberInStock" & vbTab & "Price" & vbTab & "Total Value")
Try
'Open(Connection)
myConnection.Open()
myDataReader = myCommand.ExecuteReader
'Declare variables to capture the quantity and price of each item
Dim intQuant As Integer
Dim sngPrice As Single
'Read data into the variable
While myDataReader.Read()
sngPrice = Val(myDataReader("Price"))
intQuant = Val(myDataReader("NumberInStock"))

'Populate the listbox with field data and the calculated value for each inventory item
lstData.Items.Add(myDataReader("ProdID") & vbTab & myDataReader("Name") & vbTab & myDataReader("NumberInStock") & vbTab & Format(myDataReader("Price"), "c") & vbTab & Format(sngPrice * intQuant, "c"))
End While
Finally
myConnection.Close()
End Try

End Sub

END OF STATEMENT EXPECTED ON DECLARATION OF MYCOMMAND. IT WONT TAKE STUPID SQL PROCEDURE.

Spoiler:

I asked teacher and he didnt even know

I'll probably just hand it in like this.

I'm making an exam generator with VB6 and I add items to several combos using SQL sentences. I hope you find it useful:

Private Function LoadComboData(tipo As Integer) As Integer
If tipo = 1 Then
SQL = "SELECT categoria.* FROM categoria ORDER BY categoria.ID"
Set Consulta = DataBase.OpenRecordset(SQL, dbOpenDynaset)
If Consulta.BOF And Consulta.EOF Then LoadComboData = 1
End if
End Function

Somewhat, but I just wanted to get this fixed somehow or just hand the thing in. Its a VB class for no prior experience so while I sorta understand that, I sorta dont as well. You probably know what I mean. For the most part, we copied most of this out of the book we use just to get an understanding of the process, but for some reason there is still an error here, even though thats what they have in the book. hehe.

You might notice that on that line the braces don't match. Durh.

You need to get a new teacher somehow...

Unbelievable, I looked through that line so much. Stupid teacher couldnt even see it either. Man I even took java for two semesters. LoL. Closed.