Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÐÂÊÖÇë½ÌÏ´úÂëÖйØÓÚobjectÀàµÄÏà¹ØÎÊÌâ¡£

±¾ÈËÔÚ¿´´úÂë×ÔѧVB£¬¸Ð¾õobjectÀàÀïµÄһЩ¶«Î÷MSDN²é²»Çå³þ£¬ÌØÀ´Çë½ÌÒ»ÏÂ
ÕâÀïÊÇÒ»¶Î¹ØÓÚÊý¾Ý¿â±à³ÌµÄ´úÂ룺
Public IrisLocation As Object
Public Sub Main()
Dim CustPicts As ADODB.Connection
Dim Forms As ADODB.Recordset
Dim strFind As Object
¡£¡£¡£ÖмäÊ¡ÂÔ¡£¡£¡£
Forms.Open("Forms", CustPicts, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
Forms.MoveFirst()
        strFind = "Form = 'Database'"
Forms.Find(strFind)
With Forms
IrisLocation = .Fields("Line1").Value
End With
                  ¡£¡£¡£¡£Ê¡ÂÔ¡£¡£¡£¡£

End Sub

¶ÔÓÚÓï¾ä
strFind = "Form = 'Database'"
ºÍIrisLocation = .Fields("Line1").Value ²»Ì«Àí½âÊÇʲôÒâ˼£¬ÖªµÀµÄÄܽâÊÍÏÂÂð£¬Ð»Ð»¡£
strFind = "Form = 'Database'"
Õâ¸öÔÚreocrdsetÀïÃ潨Á¢ÁËÒ»¸öfilter,ÏÂÃæµÄÓï¾ä¾ÍÊǸù¾ÝÕâ¸ö½øÒ»²½²éÕÒ

IrisLocation = .Fields("Line1").ValueÕâ¸ö¾ÍÊÇ°ÑrecordsetÀïÃæµÄline1Õâ¸öÁеÄÖµIrisLocation


¶àлÁË£¬LSµÄ¡£²»¹ýÎÒ¶ÔÓÚfilter»¹ÊÇÁ˽âµÄ²»¹»¡£
ÄDZÈÈç˵ÏÂÃæÕâ¶Î´úÂëÀ
Sub Find_Database(ByRef CommDial As Object)
Dim CommDialCancel As Object
Dim Custs As ADODB.Connection
Dim Frms As ADODB.Recordset



Ïà¹ØÎÊ´ð£º

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

ÊìϤVBµÄ½øÀ´£¬ÓÐÏîÄ¿


ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?

ÐǪ̈ÁªÏµ·½Ê½ÄØ

ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨

¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ

±±¾©µÄÐв»£¿

ÎÒÔÚËÕÖÝ£¬ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ