2009-11-14 4 views
1

기본적으로 예약 된 객실의 시간표가 표시됩니다. 나는 내 양식 25 개 RickTextBox의의를 가지고 있고 나는 예약을위한 데이터베이스에서 데이터를 가져 오기 위해이 루프를 설정 :MS Access 및 RichTextBox의 도움이 필요하십니까

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=F:\Project\database.mdb;") 
cn.Open() 
' Looping for two weeks in advance 
For x = 0 To 13 
    cmd = New OleDbCommand("SELECT bs1.teacher, bs1.date, bs1.period FROM(" & cbRoom.Text.ToLower & ") WHERE(((bs1.date) = #" & current & "#)) ORDER BY bs1.period;", cn) 
    dr = cmd.ExecuteReader 
    While dr.Read() 

    End While 
    dr.Close() 
    cn.Close() 
    current = current.AddDays(1) 
Next 

그것이해야 같은 데이터를 얻을 수 있지만, 내가 넣을 수 있습니다 방법으로 혼란 스러워요 그것은 30 홀수 IF 문을 사용하지 않고 RichTextBox에.

기본적으로 월요일, 화요일, 목요일에 14 일 동안 데이터를 가져옵니다. 텍스트 상자의 이름은 "mon1", "mon2", "mon3"... "tues1", "tues2"등입니다 ... 나는 정말 가난하고 엉성한 코드를 사용하지 않고 어떻게 든 모든 데이터를 가져와야합니다.

도움을 주시면 감사하겠습니다.

For x = 0 to 13 
    Me.Controls("Day" & x) = SomeValue 
Next 
:이 같은 루프에 대한 귀하의에 액세스 할 수 있습니다

답변

1

들은 "Day13"을 통해 "Day0"라는되도록 당신이 당신의 텍스트 상자를 변경하는 경우

,