我收集了很多代码,都是一个一个的TXT或者HTML文件,有没有好用的,代码管理器,可以管理这些代码或者技巧
解决方案 »
- 做兼职
- 安装提示不能加载VCMAXB.OCX,请问如何处理!
- 类的继承怎么实现呢
- 请教各位大哥:以文本格式实现Sqlserver中表导入导出的代码咋写?!
- 在VB中怎样保存WORD、EXCEL、文本文件等附件到数据库中,并且在此界面上显示文件名(可以是多个文件),通过点击文件名可以打开对应的文
- 200分问一个问题!!!
- ado中如何才能支持数据的更新
- 在线等待
- 如何用VB列举一个控件的各个属性的名称、类型、值。以及集合、方法..... 我说的不是用对象浏览器,而是在程序中实现的对象浏览器一样的功能
- 100分大奉送! RichTextBox中怎么快速计算行号?
- vb中使用sleep导致进程 无法结束
- 终于混到一个整数分
先谢了
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End SubPrivate Sub Command2_Click()
Adodc1.Recordset.Update
Adodc2.Recordset.Update
DataList1.Refresh
End SubPrivate Sub DataList1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\IASK.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from iask where 问题 ='" & Trim(DataList1) & "'"
Adodc1.Refresh
'Set Form1.DataGrid1.DataSource = Adodc1
'Set Form1.Text1.DataSource = Adodc1
'Form1.Show
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\IASK.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from iask order by 问题" ' where 问题 ='" & Trim(DataList1) & "'"
Adodc1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\IASK.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select * from iask order by 问题"
Adodc2.Refresh
Text4 = Adodc2.Recordset(1)
End SubPrivate Sub Text4_Change()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\IASK.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from iask where 问题 like'" & Text4 & "%'"
Adodc1.Refresh
End Sub