Dim cn As New ADODB.Connection, rs As New ADODB.Recordset cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\rifeng\data\db1.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open "insert into test (user,pwd) VALUES(aaa ,bbb )", cn, 3, 1
Ìáʾinsert into Óï¾äµÄÓï·¨´íÎó£¬ÎªÊ²Ã´ÄØ¡£ Çó½Ì´ó¼Ò ʹÓÃÁËaccess 2003 ÔÚaccess 2003ÀïÃæ²âÊÔ insert into test (user,pwd) VALUES('aaa' ,'bbb' )" ¿ÉÒÔͨ¹ý ÒýÓÃÁË Microsoft ActiveX Data Objects 2.0 ÊDz»ÊÇÎÒÒýÓÃÎÊÌâÄØ£¬»¹ÊDZðµÄÄØ¡£rs.Open"insert into test (user,pwd) VALUES(aaa ,bbb )", cn,3,1
"insert into test (user,pwd) VALUES('aaa' ,'bbb' )" ¿ÉÒÔͨ¹ý
¸Ä³ÉÄÇÑùÒ»ÑùµÄÌáʾ¡£ Ó¦¸ÃÐÞ¸ÄÄÄÀï²ÅÐÐÄØ
Èç¹ûaaaºÍbbbÊDZäÁ¿: VB code
Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.co