Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÓÃ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





Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ