ÏÖÓÐÒ»¸öaccessµÄÎÄ×ÖÄÚÈݵıí,ÎÒÏë²éѯËûÓжàÉÙÐÐ,ÇëÎʸÃÓÃʲôÃüÁî? лл! Dim db As new ADODB.Connection,i as long db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False;" db.Execute "select count(*) from ±í", i msgbox "ÐÐÊý:" & i
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......