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À´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
¸÷λ´óϺ£º
ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......