双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何读取所有的ODBC？

2004-06-23 05:16:19 155 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

feelrain 墨衍会员 · AI 创作全网分发关注 + 加入社区

QT使用ODBC连接excel读取中文内容的解决方案 QT使用ODBC连接excel读取中文内容的解决方案 QT通过ODBC连接excel读取中文会出乱码或空白，这是QT本身的一个小bug。通过调用QSqlQueryModel的方式可以读取中文。无需重构qsql_odbc.cpp中的qGetStringData函数。 QStringList excelFields; for(int i=0;i<lw_SelSheetField->count();i++){ QString field=lw_S 阅读详情

...全文

ROS四旋翼无人机快速上手指南(3)：工作环境文件框架与各功能包整体讲解这一章节主要讲解无人机平台的控制文件架构和各个功能包组成和用法。阅读详情

feelrain

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

online 2004-06-23

打赏
举报

Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv&, ByVal fDirection%, ByVal szDSN$, ByVal cbDSNMax%, pcbDSN%, ByVal szDescription$, ByVal cbDescriptionMax%, pcbDescription%) As Integer
Private Declare Function SQLAllocEnv% Lib "ODBC32.DLL" (env&)
Const SQL_SUCCESS As Long = 0
Const SQL_FETCH_NEXT As Long = 1

Sub GetDSNsAndDrivers()
Dim I As Integer
Dim sDSNItem As String * 1024
Dim sDRVItem As String * 1024
Dim sDSN As String
Dim sDRV As String
Dim iDSNLen As Integer
Dim iDRVLen As Integer
Dim lHenv As Long 'handle to the environment

On Error Resume Next
Combodsnlist.AddItem "(None)"

'get the DSNs
If SQLAllocEnv(lHenv) <> -1 Then
Do Until I <> SQL_SUCCESS
sDSNItem = Space(1024)
sDRVItem = Space(1024)
I = SQLDataSources(lHenv, SQL_FETCH_NEXT, sDSNItem, 1024, iDSNLen, sDRVItem, 1024, iDRVLen)
sDSN = Left(sDSNItem, iDSNLen)
sDRV = Left(sDRVItem, iDRVLen)

If sDSN <> Space(iDSNLen) Then
Combodsnlist.AddItem sDSN
'Combodrivers.AddItem sDRV
End If
Loop
End If
Combodsnlist.ListIndex = 0
End Sub

netcrawller 2004-06-23

打赏
举报

就在注册表的 HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI 下面所有子项

feelrain 2004-06-23

打赏
举报

说错了，是读取所有的数据源名称

Jimyu1110 2004-06-23

打赏
举报

Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv&, ByVal fDirection%, ByVal szDSN$, ByVal cbDSNMax%, pcbDSN%, ByVal szDescription$, ByVal cbDescriptionMax%, pcbDescription%) As Integer
Private Declare Function SQLAllocEnv% Lib "ODBC32.DLL" (env&)
Const SQL_SUCCESS As Long = 0
Const SQL_FETCH_NEXT As Long = 1

Sub GetDSNsAndDrivers()
Dim i As Integer
Dim sDSNItem As String * 1024
Dim sDRVItem As String * 1024
Dim sDSN As String 'ODBC名称
Dim sDRV As String '驱动程式名
Dim iDSNLen As Integer
Dim iDRVLen As Integer
Dim lHenv As Long 'handle to the environment

On Error Resume Next

'get the DSNs
If SQLAllocEnv(lHenv) <> -1 Then
Do Until i <> SQL_SUCCESS
sDSNItem = Space$(1024)
sDRVItem = Space$(1024)
i = SQLDataSources(lHenv, SQL_FETCH_NEXT, sDSNItem, 1024, iDSNLen, sDRVItem, 1024, iDRVLen)
sDSN = Left$(sDSNItem, iDSNLen)
sDRV = Left$(sDRVItem, iDRVLen)

Loop
End If
End Sub

一事無成 2004-06-23

打赏
举报

?????????????????????????????????

gangleader 2004-06-23

打赏
举报

✦双11狂欢大促✦

如何读取所有的ODBC？

相关推荐

双11狂欢大促