杭州交通信息网律师在线询问qq:vb控件combo1使用方法
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 13:39:53
有两个表，一个表是项目名称，另一个表是用户信息
我在一个窗体上建了一个combo1控件，需要显示项目名称，然后保存到用户信息表中去，我研究了N天没头绪，请大家帮帮忙，谢谢了
一：新建一个模块，保存以下代码.注意修改数据库路径/名/密码/
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Sql As String
Public UserName As String
Public UserLimit As Integer
'==================
'连接数据库
'==================
Public Function DB_Link()
On Error Resume Next
Dim CnStr As String
Dim DBPath As String, DBName As String
Dim DBUser As String, DBPsw As String
DBPath = App.Path & "\" '数据库地址
DBName = DATABASE_NAME '数据库文件名
DBPsw = DATABASE_PASSWORD '数据库密码
CnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data source =" & DBPath & DBName & "; Jet OLEDB:Database Password=" & DBPsw
Conn.CursorLocation = adUseClient '必须设置客户端游标方式
Conn.Open CnStr
End Function
'====================
'断开数据库
'====================
Public Function DB_Close()
On Error Resume Next
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Function
二:窗体代码.
private sub form_load()
db_link
sql = "select * from 保存项目名称的那个表名"
set rs =conn.execute(sql)
do until rs.eof
combo1.additem rs("项目名称所在列名")
rs.movenext
db_close
end sub
以上是添加到combo1的代码...
后面你说的什么保存到用户信息表中什么的看不明白..
需要帮忙的话给我发email:fender_x@163.com