0 
<code>
Private Sub CmbRNO_Click()
sql = "SELECT
          A.ROLLNO,A.FIRST_NAME,A.MIDDLE_NAME,A.LAST_NAME,A.CONTACT,A.CONTACT1,A.CONTACT2,A.ADDRESS,A.GRADE,B.DIV,A.BLOOD_GROUP,C.HOUSE,A.DATE_OF_BIRTH,A.TRANSPORT,A.SNAME,A.MEAL,A.BUSNO,A.RUTNO,D.DNAME,D.DCONT,E.ANM,D.DADD,A.CARD_TYPE,A.CARD_NO 
       FROM 
          STUDENT_RECORD_DATABASE A,DIVISION B,HNM C,DRIVER D,ATTEND E 
       WHERE 
          A.DIVID=B.DIVID AND A.HID=C.HID AND A.DID=D.DID AND A.AID=E.AID AND ROLLNO ='" & CmbRNO.Text & "'"

Set RES = CON.Execute(sql)
        TxtFNM.Text = RES!FIRST_NAME
        TxtMIDNM.Text = RES!MIDDLE_NAME
        TxtLNM.Text = RES!LAST_NAME
        Text5.Text = RES!CONTACT
        Text6.Text = RES!CONTACT1
        Text7.Text = RES!CONTACT2
        TxtADDR.Text = RES!ADDRESS
        COMBO1.Text = RES!GRADE
        CmbDIV.Text = RES!DIV
        CmbBG.Text = RES!BLOOD_GROUP
        CmbHOUSE.Text = RES!HOUSE
        DTPicker1.Value = RES!DATE_OF_BIRTH     //error showing
        Combo10.Text = RES!TRANSPORT
        CmbSTOP.Text = RES!SNAME
        Combo11.Text = RES!MEAL
        CmbBUS.Text = RES!BUSNO
        Combo12.Text = RES!RUTNO
        CmbDRIVER.Text = RES!DNAME
        TxtDCONT.Text = RES!DCONT
        CmbATTEND.Text = RES!ANM
        Text10.Text = RES!DADD
        Combo13.Text = RES!CARD_TYPE
        Text11.Text = RES!CARD_NO
 End If
 End Sub
</code>

これは、コンボ クリックで生徒の記録を表示する完全なコードです
が、エラーは次のとおりです。Invalid property value date_of_birth

助けてください

4

1 に答える 1

0

これは、Oracle と vb6 の日付形式の違いが原因である可能性があります。それを避けるために、このような列を選択するときに日付形式を明示的に定義します

SELECT
 A.ROLLNO,
 A.FIRST_NAME,
 A.MIDDLE_NAME,
 ...
 TO_CHAR(A.DATE_OF_BIRTH,'DD-MON-YYYY') DATE_OF_BIRTH
 ...

次に、日付に変換して VB6 で読み取ります。

DTPicker1.Value = CDate(RES!DATE_OF_BIRTH)
于 2013-01-23T12:04:10.003 に答える