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ÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......