<< Click to Display Table of Contents >> 通过SQL语句加载组合框/列表框(值类型)(gf_AddItemBySql函数) |
函数说明
该函数可以给组合框/列表款加载数据,通过SQL语句。
注意:该加载数据方式是值列表,而非表/查询。
函数原型
|
Public Function gf_AddItemBySql(ctr As Control, strSql As String) As Boolean |
语法
gf_AddItemBySql(ctr, strSql)
参考:gf_AddItemBySql(Me.cboTest, "Select FName From tblTest") '通过SQL语句,向组合框cboTest添加数据
参数
参数名 |
必需/可选 |
数据类型 |
参数说明 |
---|---|---|---|
ctr |
必需 |
Control |
控件对象,只有组合框和列表框才有效 |
strSql |
必需 |
String |
字符串表达式,SQL语句 |
返回值
无
示例
|
Sub subTest() Dim strSql As String '定义字符串变量,设置SQL语句 Dim blnValue As Boolean '定义布尔型变量,保存结果 strSql = "Select FName From tblTest" '设置SQL语句 blnValue = gf_AddItemBySql(Me.cboTest, strSql) '给组合框cboTest加载数据 If blnValue = False Then Msgbox "加载不成功,请检查" '检验是否加载成功 End Sub |