首页 >> 读书频道 >> 电脑 >> 直接通过ODBCAPI访问SQL数据库二
 
· 直接通过ODBCAPI访
· 用VB制作IE工具条自定
· 使用VB设计具有动感的命
· 用VB制作IE工具条自定
· 判断某一个连接是否保存在
· 判断某一个连接是否保存在
· 在VB应用程序中巧用DL
· 在VB应用程序中巧用DL
· 禁止在TextBox中输
· 称 访问因特网并调用Ex
· 设计E-mail的接发送
· 启动拨号网络中的连接
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

直接通过ODBCAPI访问SQL数据库二


查看有无更新版本

关键字:VB 2006-9-18

 

7. Get the Data in each field of the Fetched row - SQLGetData

Dim bPerform As Integer, iStatus As Integer
Dim sData As String * MAX_DATA_BUFFER
Dim lOutLen As Long

bPerform = SQLFetch(glStmt)

Do While bPerform
bPerform = SQLFetch(lStmt) ' Get the next row of data
If bPerform = SQL_SUCCESS Then‘ If rows of data available 
bPerform = True

' Get Author Name - iColumn = 1 for first field i.e. name in sSQL 
iStatus = SQLGetData(glStmt, iColumn, 1, sData, MAX_DATA_BUFFER, lOutLen)

' lOutlen = length of the valid data in sData
' Data value will be = Left$(sData, lOutlen), lOutlen = -1 if no data or Null data

' Get Location - iColumn = 2 for second field i.e. location in sSQL
iStatus = SQLGetData(glStmt, iColumn, 1, sData, MAX_DATA_BUFFER, lOutLen)

 ' Add the Field Data to Correponding Data Display Controls for this row
Else
bPerform = False' No more rows available
End If
Loop

'Release the ODBC Statement Handle
bPerform = SQLFreeStmt(glStmt, SQL_DROP)
______________________________________________________________

8. Release the ODBC Statement Handle - SQLFreeSTmt

Code in Step 7.
______________________________________________________________

*******************************************************************
The steps 9 - 11 are for Disconnecting from the SQL Server DataBase
*******************************************************************


9. Disconnect from ODBC Database - SQLDisconnect

iStatus = SQLDisconnect(glDbc)
______________________________________________________________

10. Release the ODBC Database Handle - SQLFreeConnect

iStatus = SQLFreeConnect(glDbc)
______________________________________________________________

11. Release the ODBC Environment Handle - SQLFreeEnv

iStatus = SQLFreeEnv(glEnv)
______________________________________________________________ 

***********************************************************************
The following entries are required in the ODBCAPI module
***********************************************************************

' ODBC Variables and Constants
 
Global glEnv As Long
Global glDbc As Long
Global sSQL As String
 
Global Const MAX_DATA_BUFFER = 255
Global Const SQL_SUCCESS = 0
Global Const SQL_SUCCESS_WITH_INFO = 1
Global Const SQL_ERROR = -1
Global Const SQL_NO_DATA_FOUND = 100
Global Const SQL_CLOSE = 0
Global Const SQL_DROP = 1
Global Const SQL_CHAR = 1
Global Const SQL_NUMERIC = 2
Global Const SQL_DECIMAL = 3
Global Const SQL_INTEGER = 4
Global Const SQL_SMALLINT = 5
Global Const SQL_FLOAT = 6
Global Const SQL_REAL = 7
Global Const SQL_DOUBLE = 8
Global Const SQL_VARCHAR = 12
Global Const SQL_DATA_SOURCE_NAME = 6
Global Const SQL_USER_NAME = 8


'ODBC Declarations
'The hWnd is a Long in Windows 95 & Windows NT

直接通过ODBCAPI访问SQL数据库二

[ 1 ]
直接通过ODBCAPI访问SQL数据库二 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑