ÓÃ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
Ïà¹ØÎÊ´ð£º
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
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»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......