³ÌÐòÖдò¿ªAccessÎļþÅ×Òì³££¡ - .NET¼¼Êõ / VB.NET
Dim appAccess As Access.Application '´ò¿ªD:DB1.MDBÎļþ²¢´´½¨Ò»¸ö´°ÌåÖ®ºó¹Ø±Õ Const strConPathToSamples = "D:" Dim frm As Form, strDB As String '°ÑÎļþ·¾¶¸³¸ø±äÁ¿ strDB = strConPathToSamples & "\db1.mdb" ' ´´½¨Ò»¸öеÄAccess¶ÔÏó appAccess = CreateObject("Access.Application") ' ´ò¿ªÖ¸¶¨µÄAccessÎļþ appAccess.OpenCurrentDatabase(strDB) ---- Ö´Ðе½Õâ¾äÊdzöÏÖÒì³££º ¸ÃÎļþ±»±£»¤£¬ ²»ÄܽøÐжÁд²Ù×÷£¡
ÊDz»ÊÇÄãÒѾÓÃoffice ´ò¿ªÁËaccess? ²»¿ÉÄܰ¡£¬ ûÓÐÒýÓà ÊDz»ÊÇÄãÒѾÓÃoffice ´ò¿ªÁËaccess? Ó¦¸ÃÊÇAccessÊý¾Ý¿â±»´ò¿ªÁË£¬¹Ø±ÕAccess¾Í¿ÉÒÔÁË¡£ {{
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðһϠhÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£ hÊÇxml¸ñʽµÄ×Ö·û´® ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿ ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......