求助VFP刷新ACCESS数据方法
											请朋友们指教,VFP刷新ACCESS数据的方法,谢谢!										
					
	
				
											LOCAL nHandle,nRes
nHandle = SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=g:\access\数据.mdb;")
* 1.连接成功后,创建表1
IF nHandle >0
   nRes = SQLEXEC(nHandle,'create table 表1(序号 int,姓名 char(20))')
   IF nRes >0
      MESSAGEBOX("在Access上创建表1成功")
   ELSE
      MESSAGEBOX("在Access上创建表1失败")
   ENDIF
   SQLDISCONNECT(nHandle) &&使用后就断开连接
ENDIF
* 2.在新建的表1上增加数据
* 先模拟生成本地数据
CREATE CURSOR tb1(序号 i,姓名 c(20))
FOR i=1 TO 20
    INSERT INTO tb1(序号,姓名) VALUES (i,'姓名'+PADL(i,3,'0'))
ENDFOR 
BROWSE
nHandle = SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=g:\access\数据.mdb;")
      
IF nHandle >0
   SELECT tb1
   rc = 0
   SCAN 
      xh = 序号
      xm = 姓名
      nRes = SQLEXEC(nHandle,'insert into 表1(序号,姓名) values(?xh,?xm)')
      IF nRes >0
         rc = rc +1
      ENDIF
   ENDSCAN 
   MESSAGEBOX("成功插入 "+TRANSFORM(rc)+" 条记录")
   SQLDISCONNECT(nHandle)
ENDIF
	
		
			
		
	
										
					
	
	
	
	      


											
	    

	
