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
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
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»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......