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

VB²Ù×÷Êý¾Ý¿âµÄÎÊÌâ

ÎÒÏȶ¨ÒåÁËÁ½¸öÈ«¾Ö±äÁ¿
Public PCN As New ADODB.Connection
Public REC As New ADODB.Recordset

Á¬½ÓÊý¾Ý¿â
conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= 'sa';password='';Initial Catalog='Door';Data Source="
PCN.Open conn

²éѯ°´Å¤´úÂë
REC.CursorLocation = adUseClient
REC.Open "select * from users", PCN
Set VSFlexGrid1.DataSource = REC
REC.Close

Ôö¼Ó¼Ç¼°´Å¤´úÂë
If Not REC.State = adStateClosed Then
REC.Close
End If

REC.CursorLocation = adUseClient
REC.Open "Insert into Users values('111', 'ning', '3', 0, 'sddsd ')", PCN
'Èç¹û·Å¿ªÏÂÃæ´úÂ룬¾Í»á³öÏÖ¶ÔÏ󹨱Õʱ£¬²»ÔÊÐí²Ù×÷
'REC.Close

ÎÊÌ⣺
1¡£ÎªÊ²Ã´²éѯ֮ºó£¬closeûÓÐÎÊÌâ¡£¶øÔÚÔö¼Ó¼Ç¼ºó£¬²»ÄÜÖ´ÐÐclose£¬²»È»»á³ö´í¡£ÎҸоõrecordsetÓÃÍêÖ®ºó£¬Ó¦¸Ãclose²Å¶Ô¡£
2¡£ÎÒ¶ÔÕâ¶Î´úÂ벻̫Á˽⣬ҲÊÇÔÚÍøÉÏÕҵġ£Ë­ÄܰïÎÒ½âÊÍһϣ¬Ó¦¸ÃÔõôд×îÍêÃÀ£¿
REC.CursorLocation = adUseClient'Õâ¸öÊôÐÔÓÐʲôÓ㬻¹ÓÐÄÄЩÊôÐÔÒªÉèÖã¿
If Not REC.State = adStateClosed Then REC.Close¡¯Õâ¾ä»°ºÃÏñûʲôÓã¿ÎÒµ÷ÊÔʱ£¬¿´µ½Õâ¶Î´úÂëºÃÏñ²¢Ã»ÓÐÖ´ÐС£
REC.Open "select * from users", PCN¡¯Õâ¾ä»°ºóÃæµÄ²ÎÊýÊǸÉʲôµÄ£¬ÎÒÔÚÍøÉÏ¿´µ½»¹ÓÐÆäËüд·¨£¬ÄÄЩÊÇÓÐÓõģ¬ÄÄЩÊÇûÓõģ¿
3¡£PCN.Execute ("select * from users")
Õâ¾ä»°Ò²ÄÜÖ´ÐУ¬µ«ÊÇËü¸úrecordsetµÄopenÓï¾äÓÐÊ²Ã´Çø±ð£¿Ôõô±éÀúËü·µ»ØµÄ¼Ç¼£¿
×¢£ºÐ¡µÜÊdzõѧ¡£Çë¶àÖ¸½Ì¡£
Ôö¼ÓÓãº
pcn.execute &quo


Ïà¹ØÎÊ´ð£º

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ