ÓÃvbµÄcommand°´Å¥Á¬½ÓdbfÊý¾Ý¿âµÄ´úÂ룿£¿
ÎÒÊDZ¾µØÁ¬½Ó±¾µØµÄ²»ÒªÐ´Ê²Ã´ADODB£¡»¹ÓÐÎÒÊDzËÄñÖеIJËÄñ£¡Ð´´úÂëʱ×îºÃ¼Ó˵Ã÷£¡Ð»Ð»£¡
ÐèÒª dbase+/foxbase/foxpro µÄ provider Ö§³Ö¡£
È»ºóÅäÖÃÏ connectstring£¬Óà ADODB ¾ÍÄÜʵÏÖ¡£
Êǰ¡,ºÍÁ¬accessÊý¾Ý¿âÇø±ð²»´ó,Ö÷ÒªÊÇÁ¬½Ó×Ö·û´®ÖÐProvider²¿·Ö²»Í¬,¼ì²éDBFµÄÖ§³Ö¿â×°ÉÏû
http://download.csdn.net/source/1498324
Á¬½ÓdbfÈ¥ÓÃdata¿Ø¼þ£¨ËüÊÇDAO£¬²»ÊÇADO£©£¬¶ÔÓÚdbfÎļþµÄ²Ù×÷ADO²¢²»ºÃÓá£
´°ÌåÌí¼Ó¿Ø¼þdata1
VB code:
Option Explicit
Private Sub Command1_Click()
Data1.Connect = "dBASE III" '´ò¿ªÊý¾Ý¿âµÄÀàÐÍ
Data1.DatabaseName = "C:\111222" 'dbfÊý¾Ý¿âËùÔÚÎļþ¼Ð
Data1.RecordSource = "biblio" 'dbfÊý¾Ý¿âÎļþÃûbiblio.dbfÈ¡biblio
Data1.Refresh '´ò¿ªÊý¾Ý¿â
Data1.Recordset.MoveFirst 'ÒÆ¶¯Ö¸Õëµ½µÚÒ»Ìõ¼Ç¼
MsgBox Data1.Recordset.Fields(0) 'ÏÔʾµÚÒ»Ìõ¼Ç¼µÚÒ»¸ö×ֶεÄÖµ
End Sub
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......