Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ