vb6和oracle连接rpoblem [英] vb6 and oracle connectivity rpoblem
本文介绍了vb6和oracle连接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 namedROLLNO
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屋!
查看全文