回 帖 发 新 帖 刷新版面

主题:[原创]如何將VFP的ODBC裝在用戶機上?

請教一下,如何將VFP的ODBC驅動裝在用戶機上.
 
  PS:我目前裝了VFP9.0,網上下載的,不知是哪種版本,裝上之后,在電腦的控制臺里發現其VFP的ODBC並沒有裝上.但裝VFP6.0時,會自動將VFP的ODBC裝入.(記得之前裝上OFFICE也會自動裝上,但我今天把OFFICE 2003重新完全安裝,還是沒有VFP的ODBC驅動)

回复列表 (共17个回复)

沙发

给你一个现成的例子吧:
DECLARE INTEGER SQLConfigDataSource IN odbccp32 INTEGER, INTEGER, STRING, STRING  

    lnWindowHandle=0  
    lcODBCDriver='SQL Server' &&DRIVER类型  
    lcODBCName='SharedData'   &&数据源名字  
    lcODBCDesc='Shared Data Source' &&数据源描述  
    lcODBCServer=myserver &&SQL SERVER名字  
    lcODBCDatabase=mydbo &&要连接的数据库名字  

    **先试图修改已有的ODBC,如果不存在,返回0。  
    lreturn=SQLConfigDataSource(lnWindowHandle, 2, lcODBCDriver, ;  
    'DSN=' + lcODBCName + CHR(0) ;  
    + 'Description=' + lcODBCDesc + CHR(0) ;  
    + 'Server=' + lcODBCServer + CHR(0) ;  
    + 'Database=' + lcODBCDatabase + CHR(0))  
    IF lreturn=0 &&不存在  
       
        **添加新的ODBC  
        lreturn=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver, ;  
        'DSN=' + lcODBCName + CHR(0) ;  
        + 'Description=' + lcODBCDesc + CHR(0) ;  
        + 'Server=' + lcODBCServer + CHR(0) ;  
        + 'Database=' + lcODBCDatabase + CHR(0))  
        IF lreturn=0 &&失败  
           MessageBox('添加ODBC数据源失败',16,'BUFFER')  
        ENDIF  
    ENDIF  
             

    USE IN mypath
    mycnt=SQLConnect("SharedData",MyUser,MyPassword)  
自动动手做做,看能搞定么?

板凳

看了您給的答案,思路是清晰了,但是我翻遍了我所有的VFP工具書,都沒有找到SQLConfigDataSource()這個自定義函數的用法.不知能否詳細講解一下這個函數的使用方法?

 

3 楼

[quote]给你一个现成的例子吧:
    IF lreturn=0 &&不存在  
       
        **添加新的ODBC  
        lreturn=SQLConfigDataSource(lnWindowHandle, 1, lcODBCDriver, ;  
        'DSN=' + lcODBCName + CHR(0) ;  
        + 'Description=' + lcODBCDesc + CHR(0) ;  
        + 'Server=' + lcODBCServer + CHR(0) ;  
        + 'Database=' + lcODBCDatabase + CHR(0))  
        IF lreturn=0 &&失败  
           MessageBox('添加ODBC数据源失败',16,'BUFFER')  
        ENDIF  
    ENDIF  
             

[/quote]

  lreturn已經返回1了,但控制臺的ODBC還是和之前一樣且我的連接SQLCONNECT()還是返回非正數的值!

4 楼


API函数啊!

5 楼

[quote]
API函数啊![/quote]


LRETURN已經可以返回1了,可是接下來要如何讓SQLCONNECT()返回1呢?

6 楼

貼子沉下去了,有沒有同道可以給我具體一點啊?

7 楼

英雄多出手吧!!!!

8 楼

你新增一个应该就行了

系统里有没有相应的odbc要看该对话框的"驱动程式"选项卡

9 楼

如果僅裝上VFP9.0,其在控制面板上不讓手工增加VFP的ODBC,但如果裝上VFP6.0,則會自動裝上VFP的ODBC

10 楼

发了一个邮件到您的邮箱,您看能不能解决您问题,如果能解决,吱一声,我也算是多了一个知识。

我来回复

您尚未登录,请登录后再回复。点此登录或注册