SQL Server数据库中建了一个表,包括字段Id,Name,UpperId。在VB中使用了ListBox控件,想查询表中UpperId=0的记录,把相应记录的Name字段的内容在ListBox显示,请问该怎么作?拜托拜托!
解决方案 »
- 国外的CodeProject网站我相信很多人一定知道,国内也有个CodeProject你晓得不?希望大家支持这个网站。
- 我给WallesCai起了个外号
- 要用VBA写一个Function可以象Excel Built in Function一样使用,无法直接提取数据,求教!
- 急急急!求教各位大侠?vb socket通信长连接丢包问题?
- 如何设置共享文件夹的权限
- 用CreateInstall制作安装程序,要加选项怎么做?
- 如何生成-30~50之间的随机数,带一位小数?
- 各位大虾,怎样在运行时设置DBgrid的Datasuorce属性将其绑定到DATA控件上?急!在线等待。。。。
- 如何加快向excel中导入数据的速度?
- vb打印问题
- 数据库连接异常中断 help~~~
- 拜托:VB访问SQL Server 数据库的问题
Dim rs As ADODB.Recordset
Dim msgtext As String
Private Sub Command1_Click()
dim strsql as string
strsql="select * from table where UpperId=0"
do while not rs.eof
list1.additem rs.fields("Name")
rs.movenext
loop
rs.close
End Sub'下面的代码放到类模块中,是动态数据库查询数据函数
Dim msgtext As String
Dim mrc As ADODB.RecordsetPublic Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
'Dim SQL As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(sql)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute sql
MsgString = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & "条纪录"
End If
ExecuteSQL_Exit:
Set rst = Nothing
Exit Function
Set cnn = Nothing
ExecuteSQL_Error:
MsgString = "查询错误:" & Err.Description
Resume ExecuteSQL_Exit
End FunctionPublic Function ConnectString() As String
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
'ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=aa;Data Source=RJB-CL"
End Function