-----------------------------------

aZnGloryDay

Fri Jan 20, 2006 12:16 pm


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!~!!!!


-----------------------------------

aZnGloryDay

Fri Jan 20, 2006 12:23 pm



-----------------------------------

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


-----------------------------------

aZnGloryDay

Fri Jan 20, 2006 12:32 pm



-----------------------------------

here is the picture of the error:
i kinda cuted it a little because it's too big....


-----------------------------------

pavol

Fri Jan 20, 2006 6:05 pm



-----------------------------------

what line of code does vb highlight when you click on debug?


-----------------------------------

aZnGloryDay

Sun Jan 22, 2006 12:28 am



-----------------------------------

"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!


-----------------------------------

aZnGloryDay

Tue Jan 24, 2006 12:20 pm



-----------------------------------

y is there no one helping me? comeon...


-----------------------------------

cool dude

Tue Jan 24, 2006 3:43 pm



-----------------------------------

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


-----------------------------------

aZnGloryDay

Tue Jan 24, 2006 9:15 pm



-----------------------------------

I finaly figuared out the problem.
thanks for your reply anyway.
and for the indent, i will watch out next time !:D