同题目
解决方案 »
- 使用 Forms 2.0 组件里的按钮控件,在按钮上设图标经常会莫名消失
- 读取字符串问题
- 判断进程结束和多进程问题
- happy_sea(开心海) ,请进来接分
- 企业名称、注册地址的智能分词(RMB1000)
- 用DAO,如果有几个form窗口,那么连接数据库代码应该放在哪里呢?还是专门用一个类把它放在里面?
- ~~~~~呼救!!!如何将将ACCESS数据库中的某一字段的数值变化用曲线表现出来。~~~~~~~~~~~
- WIN98下能装SQL SERVER 2000吗,可以装哪些
- **老问题:access数据库中如何增加一个自动编号的字段!**
- 如何实现不规则窗口的移动?
- SQL数据库转换excel问题,急!!!
- 关于ShellExcute...
ComboBox里面显示
姓名| 年龄| 性别
小小|25 |男
小许|25 |男VBA可以直接链接多个字段设置 宽度 VB可以吗?
写不出来啊 要的效果怎么实现啊 ??
Dim cnn As StringPrivate Sub cob_Click()
cob = Trim(Mid(cob.Text, 6, 50))
End SubPrivate Sub Form_Load()
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
Set mrc = New ADODB.Recordset
With mrc
.ActiveConnection = cnn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.Source = "select * from table1"
.Open
End With
cob.Clear
For I = 0 To mrc.RecordCount - 1
cob.AddItem Trim(Format(mrc.Fields(0), "0000") & "|" & mrc.Fields(1))
mrc.MoveNext
Next I
End Sub
转成VB