I finaly figuared out the problem.
thanks for your reply anyway.
and for the indent, i will watch out next time !
Computer Science Canada ppl plz help!!(access database program) |
| Author: | aZnGloryDay [ Fri Jan 20, 2006 12:16 pm ] |
| Post subject: | ppl plz help!!(access database program) |
hi~ i have to do this data base program for my school final, so i did a airline booking program on vb , but for some reason, the program works perfectly at my house using (odbc, ado and data grid. Qote: 98 microsoft access and vb). everytime i ran the program at my school's comp, when exit the program so i can save the data into the database, there is this error says "selected collating sequence not supported by the operatin system".. it's pretty weird by the way the school have microsoft office 2003 and novell login system(high secrity for everything, but i still don't think the problem is because of that. so expert plz help!~!!!! |
|
| Author: | aZnGloryDay [ Fri Jan 20, 2006 12:23 pm ] |
| Post subject: | |
and here is the code i used for the button booking seat system.(right...) Public price As String Public searchstring As String Private Sub a01_Click(Index As Integer) Dim endof As Boolean If a01(Index).BackColor <> RGB(255, 0, 0) Then a01(Index).BackColor = RGB(0, 255, 0) searchstring = "a" + Right(Str(100 + a01(Index).Index), 2) Adodc1.Recordset.MoveFirst endof = False While Not endof And Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(0) = searchstring Then Adodc1.Recordset.Fields(3) = "Sold" Adodc1.Recordset.Update endof = True End If Adodc1.Recordset.MoveNext Wend End If price = "$377.77" Label1.Caption = "You have chosen seat: " + searchstring Label2.Caption = "The price of this price is: " + price Command1.Enabled = True End Sub Private Sub c01_Click(Index As Integer) Dim endof As Boolean If c01(Index).BackColor <> RGB(255, 0, 0) Then c01(Index).BackColor = RGB(0, 255, 0) searchstring = "c" + Right(Str(100 + c01(Index).Index), 2) Adodc1.Recordset.MoveFirst endof = False While Not endof And Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(0) = searchstring Then Adodc1.Recordset.Fields(3) = "Sold" Adodc1.Recordset.Update endof = True End If Adodc1.Recordset.MoveNext Wend End If price = "$345.59" Label1.Caption = "You have chosen seat: " + searchstring Label2.Caption = "The price of this price is: " + price Command1.Enabled = True End Sub Private Sub Command1_Click() Form5.Adodc1.Recordset.Fields(8) = searchstring Form7.Visible = False Form5.Show End Sub Private Sub Form_Load() Dim status As String Dim SeatIndex As Integer Dim SeatType As String Dim endof As Boolean Command1.Enabled = False Form7.Adodc1.Recordset.MoveFirst endof = False Do While Not endof status = Form7.Adodc1.Recordset.Fields(3) SeatIndex = Form7.Adodc1.Recordset.Fields(2) SeatType = Form7.Adodc1.Recordset.Fields(1) If status = "Sold" Then Select Case SeatType Case "Window" w01(SeatIndex).BackColor = RGB(255, 0, 0) Case "Aisle" a01(SeatIndex).BackColor = RGB(255, 0, 0) Case "Centre" c01(SeatIndex).BackColor = RGB(255, 0, 0) End Select End If Form7.Adodc1.Recordset.MoveNext If Form7.Adodc1.Recordset.EOF Then endof = True End If Loop End Sub Private Sub w01_Click(Index As Integer) Dim endof As Boolean If w01(Index).BackColor <> RGB(255, 0, 0) Then w01(Index).BackColor = RGB(0, 255, 0) searchstring = "w" + Right(Str(100 + w01(Index).Index), 2) Adodc1.Recordset.MoveFirst endof = False While Not endof And Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(0) = searchstring Then Adodc1.Recordset.Fields(3) = "Sold" Adodc1.Recordset.Update endof = True End If Adodc1.Recordset.MoveNext Wend End If price = "$399.99" Label1.Caption = "You have chosen seat: " + searchstring Label2.Caption = "The price of this price is: " + price Command1.Enabled = True End Sub |
|
| Author: | aZnGloryDay [ Fri Jan 20, 2006 12:32 pm ] |
| Post subject: | |
here is the picture of the error: i kinda cuted it a little because it's too big.... |
|
| Author: | pavol [ Fri Jan 20, 2006 6:05 pm ] |
| Post subject: | |
what line of code does vb highlight when you click on debug? |
|
| Author: | aZnGloryDay [ Sun Jan 22, 2006 12:28 am ] |
| Post subject: | |
"what line of code does vb highlight when you click on debug?" it change the color of the Adodc1.Recordset.Update when i press debug! thanks for help... comon everyone! |
|
| Author: | aZnGloryDay [ Tue Jan 24, 2006 12:20 pm ] |
| Post subject: | |
y is there no one helping me? comeon... |
|
| Author: | cool dude [ Tue Jan 24, 2006 3:43 pm ] |
| Post subject: | |
people aren't helping u because not a lot of ppl browse VB forums and not a lot of ppl even remember VB that well to be of any help to u. also if u want help include the form b/c i'm too lazy to make the form P.S. use code tags next time and indent b/c its a lot harder to read your code when u don't indent |
|
| Author: | aZnGloryDay [ Tue Jan 24, 2006 9:15 pm ] |
| Post subject: | |
I finaly figuared out the problem. thanks for your reply anyway. and for the indent, i will watch out next time ! |
|