VB绑定数据库问题

来源：百度知道编辑：UC知道时间：2024/06/19 12:47:37

Private Sub CmbDepartment_GotFocus()
'从系部字典提取数据 DicDepartment为专业字典
Dim strtemp As String
cmbMajor.Text = ""
If RecordSet1.State = adStateOpen Then
RecordSet1.Close
End If
strtemp = "select departmentcode,departmentname,inputcode from DicDepartment order by DepartmentCode "
RecordSet1.Open strtemp, gconnection, adOpenKeyset, adLockOptimistic
If Not RecordSet1.EOF Then
strtemp = CmbDepartment.Text
CmbDepartment.Clear
While Not RecordSet1.EOF
CmbDepartment.AddItem RecordSet1("DepartmentName")
RecordSet1.MoveNext
Wend
CmbDepartment.Text = strtemp
End If
End Sub

我是菜鸟。才试用VB做点东西，老师给了我们这样的代码，请问，我应该在什么地方，如何绑定数据库上去呀？高手们，请说详细点，谢谢
是SQL2000数据库。大侠，继续帮我解答吧，谢谢 ^_^

你老师给你的代码,包含了创建记录集RecordSet1,以及将DepartmentName添加至列表中的功能.你要想用这些代码必须先找开一个连接,如下:

dim odbcstr as String,
dim gconnection As New ADODB.Connection
Set gconnection = New Connection
odbcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=服务器名"
gconnection.Open odbcstr '连接到数据库

VB绑定数据库问题 vb+access 数据库中datagrid的绑定问题 asp 绑定数据库问题! vb 关于ADO绑定access数据库 VB数据库问题 VB与数据库问题 vb数据库的问题 VB编程数据库问题 vb:显示数据库问题 VB数据库编程问题