vfp :连接mdb数据库一例

nhandle=SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=\\10.83.4.102\\gzkweb\\ybbdy.mdb;pwd=") &&pwd为数据库密码项
IF nhandle<=0
 MESSAGEBOX("数据库连接失败！！！",16, '错误信息')
 RETURN
ELSE
 nkd=(thisform.text1.value)
 Ac=SQLEXEC(nhandle,"Select * From kq where kq.kd=?nkd","Temp1")
 IF Ac<0
  MESSAGEBOX("读取数据错误！",16, '错误信息')
  RETURN
 ENDIF
 SELECT Temp1
 
 IF RECCOUNT()=0
  MESSAGEBOX("没有发现你要查找的数据！",64+0, '提示信息')
 else
  thisform.text2.Value=temp1.name
  thisform.text3.Value=temp1.xj 
 ENDIF
endif
thisform.Refresh

转载于:https://blog.51cto.com/gzkhrh/291325