vb6和oracle连接rpoblem [英] vb6 and oracle connectivity rpoblem

问题描述

 私有  Sub  Combo4_Click（）
  Dim  RES  As  新 ADODB.Recordset 
  Dim  SQL  As   String  
 SQL =   SELECT A. *，B.DIV，C.HOUSE FROM STUDENT_RECORD_DATABASE A，DIVISION B，HNM C WHERE A.DIVID = B.DIVID和A.HID = C.HID和ROLLNO ='& Combo4.Text&  ' < /   pre  >  
 RES.Open SQL，CON，adOpenStatic，adLockOptimistic 
 如果 RES.RecordCount>  0  然后 
< pre lang =    vb> Combo2.Text = RES！DIV 
 Combo9.Text = RES！HOUSE 
 '  Combo7.Text = RES！DNAME  
 ' < span class =code-comment> Text9.Text = RES！DCONT  
 '  Combo8 .Text = RES！ANM  
 '  Text10.Text = RES！DADD  
 
 结束 如果 
 RES.Close 
 < span class =code-keyword>结束  Sub  

当我运行此代码运行时错误时，请执行以下操作

ORA-00918错误定义的错误列

请帮助

解决方案

很可能两个或多个表包含一个名为 ROLLNO 的列，因此请为其定义表别名。



例如，如果正确的表格是STUDENT_RECORD_DATABASE，则查询可能类似于

  SELECT  A. *，B.DIV，C.HOUSE  FROM  STUDENT_RECORD_DATABASE A，DIVISION B，HNM C  WHERE  A.DIVID = B.DIVID  AND  A.HID = C.HID  AND  < U>一个。 ROLLNO 

Private Sub Combo4_Click()
Dim RES As New ADODB.Recordset
Dim SQL As String
SQL = "SELECT A.*, B.DIV,C.HOUSE FROM STUDENT_RECORD_DATABASE A, DIVISION B,HNM C WHERE A.DIVID = B.DIVID AND A.HID=C.HID AND ROLLNO ='" & Combo4.Text & "'"</pre>
RES.Open SQL, CON, adOpenStatic, adLockOptimistic
    If RES.RecordCount > 0 Then
<pre lang="vb">Combo2.Text = RES!DIV
        Combo9.Text = RES!HOUSE
        'Combo7.Text = RES!DNAME
        'Text9.Text = RES!DCONT
        'Combo8.Text = RES!ANM
        'Text10.Text = RES!DADD

     End If
RES.Close
End Sub

WHEN I RUN THIS CODE RUN-TIME ERROR CAME AS
ORA-00918 ERROR COLUMN AMBIGUOUSLY DEFINED
PLEASE HELP

解决方案

Most likely two or more of your tables contain a column named ROLLNO so define the table alias for it.

For example if the correct table is STUDENT_RECORD_DATABASE then the query could liike like

SELECT A.*, B.DIV,C.HOUSE FROM STUDENT_RECORD_DATABASE A, DIVISION B,HNM C WHERE A.DIVID = B.DIVID AND A.HID=C.HID AND a.ROLLNO

这篇关于vb6和oracle连接rpoblem的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！