我想用VB6.0做前台,访问ACCESS.用COMBO(下拉文本框
我想用VB6.0做前台,访问ACCESS.用COMBO(下拉文本框)做一个能索引ACCESS数据库一列数据.也就是说想要输入的内容可以在"下拉文本框中选取,应该怎么做啊?高手请指点!
怎样将字段的值添加到Combo里面?
首先将游标指向第一行数据，接着把第一行中那个字段的值添加到Combo里面，再将游标移至下一行。
重复上面的操作直到遍历整个数据集。
如果高手们有更好的方法，请不吝赐教哦。
我想用VB6.0做前台,访问ACCESS.用COMBO(下拉文本框
首先将游标指向第一行数据，接着把第一行中那个字段的值添加到Combo里面，再将游标移至下一行。重复上面的操作直到遍历整个数据集。如果高手们有更好的方法，请不吝赐教哦。
vb6.0 设置登录界面 怎么调用access数据库? 有模块吗
Private Sub Command1_Click()Set db = OpenDatabase(App.Path & "\\person.mdb")Set rs = db.OpenRecordset("select name,sign from per where name='" & Combo1.Text & "'and sign='" & Text1.Text & "")If Combo1.Text <> "" Then If rs.EOF = True And rs.BOF = True The...
vb6.0 Combo用法
ComboBox 说明 为了添加或删除 ComboBox 控件中的项目，需要使用 AddItem 或 RemoveItem 方法。设置 List、ListCount、和 ListIndex 属性，使访问 ComboBox 中的项目成为可能。也可以在设计时使用 List 属性将项目添加到列表中。注意 只有当 ComboBox 的下拉部分的内容被滚动时，Scroll 事件才在 ComboBox...
vb6.0 combobox下拉为多个公司名 怎么实现从中选一个公司名 同一窗体中...
Private Sub Command1_Click()Dim Conn As ADODB.Connection Dim rs AS ADODB.Recordset Dim GetConnStr AS String Dim SQL AS String Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection GetConnStr=“连接字符串”Conn.Open GetConnStr IF Combo1.Text<>"" then SQL="Select 公司...
vb6.0中选择combobox下拉列表的选项,触发某个事件
Private Sub Combo1_Click()Select Case Combo1.TextCase "1#" '在这里设置1#温控仪的数据Case "2#" '在这里设置2#温控仪的数据Case "3#" '在这里设置3#温控仪的数据End SelectEnd Sub
VB6.0连接ACCESS数据库
"\\数据库名.mdb" + ""sql = "select * from 表名"rs1.Open sql, cn rs1.MoveFirst Do While Not rs1.EOF Combo1.AddItem rs1("字段名")rs1.MoveNext Loop rs1.Close End Sub 上面的是打开数据库进行查询，并将查询结果写入列表框 不清楚的留言给我，发一个可以运行的程序给你参考 ...
VB6.0中COMBOBOX显示数据库某字段下的数据
dim arr(1 To 9) As Integer Private Sub C1_Click()Dim i As Integer Open "in6.txt" For Input As 1 For i = 1 To 9 Input #1, arr(i)Text1.Text = Text1.Text + Str(arr(i))Next Close #1 C1.Enabled = False End Sub 给你个例子，自己看看o(∩_∩)o...
vb6.0对access 2000数据库的数据排序问题?
我这里就是以前写的程序，把项目名称按开工时间降序排列，添加到Combo控件的下拉菜单上。rs2.Open "select 项目名称 from 项目名称 order by 开工时间 desc",cn,adOpenKeyset,adLockOptimistic rs2.MoveFirst If Not rs2.EOF Then For i = 1 To rs2.RecordCount Combo1.AddItem rs2.Fields("项目...
vb6.0中利用combobox控件下拉list里有1、2两个选项,选1时text显示1...
Private Sub Combo1_Click()'单击事件Text = Combo1.Text'代码,可直接复制使用这句End Sub
VB6.0 如何让下拉框里面的内容全部显示,就是说不要出现滚动条,知道的...
返回输入在text1中的首个字符的键码在text2中的代码：Private Sub Text1_Change()If Len(Text1.Text) > 0 Then Text2.Text = Asc(Text1.Text)Else Text2.Text = ""End If End Sub 已经发到你的QQ上了。
