vb ado控件查询问题
Adodc2.RecordSource = "select * from 毕业证信息表 where 姓名 in('" & List1.List(List1.ListIndex) & "')"
这句代码怎么错了啊 我想实现查询名字在listbox内的所有人员信息
VB code:
Dim i As Integer
Dim strNames As String
strNames = ""
For i = 1 To List1.ListCount
strNames = ",'" & List1.Text & "'"
Next i
strNames = Right(strNames, Len(strNames) - 1)
If Len(strNames) = 0 Then
Exit Sub
End If
Adodc2.RecordSource = "select * from 毕业证信息表 where 姓名 in(" & strNames & ")"
in()括号内的各元素要用逗号隔开
VB code:
Private Sub Command1_Click()
Dim i As Long, strTmp As String
For i = 0 To List1.ListCount-1
strTmp = IIf(strTmp = "", "'" & List1.List(i) & "'", strTmp & ",'" & List1.List(i) & "'")
Next i
Adodc2.RecordSource = "select * from 毕业证信息表 where 姓名 in(" & strTmp & ")"
End Sub
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
