Access ¶ÔÏóÒѹرÕ,²Ù×÷²»ÔÊÐí!
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Private Sub Command1_Click()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "Select * from Tm", Conn, adOpenKeyset, adLockOptimistic
End Sub
Private Sub Command2_Click()
Msgbox Rs.RecordCount ÕâÀï¾ÍÏÔʾ¶ÔÏóÒѹرÕÁË
End Sub
ÓôÃÆÁËÒ®£¬ÄÇλ¸ßÊÖ°ïæ¿´¿´£¡
Ìù³öµÄ´úÂëûÓÐÎÊÌ⣬Ӧ¸ÃÆäËûλÖÃÓÐÎÊÌ⣬¿´ÆäËûλÖÃÊÇ·ñÓйرÕ
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Private Sub Command1_Click()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "Select * from Tm", Conn, adOpenKeyset, adLockOptimistic
Rs.MoveFirst
Rs.MoveLast
MsgBox Rs.RecordCount
End Sub
Ïȵ¥»÷Command1
È»ºóµ¥»÷Command2
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
*********************************
Õâ¸ö¶¨ÒåÔÚ¹«¹²Ä£¿éÀïÂð£¿
Òª±£Ö¤±äÁ¿Ã»Ó
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖظ´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖظ´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÔõÑùÇå³ýACCESS»º´æ
ACCESS°æÓеãÀäÇå
Õâ¸öÄÄλ¸ßÈË»á
СµÜ¼±ÓÃ
²»»á SORRY
»°ËµÂ¥Ö÷ ÎÒÔÚSQLµÄµÚÒ»¸öÎÊÌⶼÊÇÄã½â¾öµÄ ллÄã ÎÒÓ¡ÏóÉî¿Ì
ÒýÓÃ
²»»á SORRY
»°ËµÂ¥Ö÷ ÎÒÔÚSQLµÄµÚÒ» ......
string connectionString = ConfigurationManager.AppSettings["ConnectionString"];
string sql = "insert into times(time) values('" + DateTime.Now + ......