VB collectionÈ¡ÖµÎÊÌâ. ÔÚÏßµÈ!
ÎÒдÁËÒ»¸öº¯Êý´ÓORACLEº¯ÊýÄÚÈ¡³öÒ»¸öÊý¾Ý¼¯.½«Êý¾Ý¼¯µÄµÚ¶þ¸ö×Ö¶Î×öΪCollectionµÄKEY µÚÈý¸ö×Ö¶Î×öΪCollectionµÄVALUE ½«Collection·µ»Ø³öÈ¥. ÔÚÍâÃæNEWÒ»¸öCollectionÀ´½ÓÊÕÕâ¸öCollection ÔÚÈ¡ÖµµÄʱºò·¢ÏÖCOUNTÓÐ98 µ±ÎÒa.Item("xh")ȡֵʱÔò³öÏÖÒì³£. RUNTIME ERRORΪ3420 ´íÎóÐÅÏ¢ÊǶÔÏó²»ÔÙÓÐЧ. ÕâÊÇÔõô»ØÊÂ?? ´úÂëÔÚÏÂÃæ. ¸÷λ´ó´ó°ïÎÒ¿´ÏÂ.лл!
=================================Õâ¶ÎÊÇFunctionÌå==============================================
Public Function CallService(ByVal serialNo as string,byval invalue as string ,byval servicename as string) as Collection
Dim Con As New ADODB.Connection
Dim Rst1 As New ADODB.Recordset
Dim xItems As New Collection
Dim Cmd As New ADODB.Command
Dim Prm1 As New ADODB.Parameter
Dim Prm2 As New ADODB.Parameter
Dim Prm3 As New ADODB.Parameter
Dim Prm4 As New ADODB.Parameter
Con.Provider = "OraOLEDB.Oracle"
Con.ConnectionString = "Data Source=edb.stc.gov.cn;" & _
"User ID=itosc;Password=itosc;PLSQLRSet=1"
Con.Open
Set Cmd.ActiveConnection = Con
Cmd.CommandType = adCmdText
Dim prm As New ADODB.Parameter
Set prm = Cmd.CreateParameter("l_request", adSmallInt, adParamReturnValue)
Cmd.Parameters.Append prm
Set Prm1 = Cmd.CreateParameter("SerialNo", adBSTR, adParamInput, , serialNo)
Cmd.Parameters.Append Prm1
S
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......