vb.net 类的分享--数据库写入列表框
操作方法
- 01
Sub 列表框写入(ByVal data As Object, ByVal lis As ListBox, ByVal sql As String) Dim arr conn = CreateObject("ADODB.Connection") rst = CreateObject("ADODB.recordset") conn.Open(data) rst = conn.Execute(sql) If rst.EOF And rst.BOF Then MsgBox("未设置内容") Else arr = rst.Getrows conn.Close() conn = Nothing lis.Items.Clear() For x = 0 To UBound(arr, 2) lis.Items.Item(x) = arr(0, x) Next x End If End Sub 外部调用 Dim data1 As New 数据库, data2 As New 控件写入 sql = "Select 姓名 from 登录信息 "data2.组合框写入(data1.信息数据库, 姓名, sql) 来解释一下 数据库 :是我连接数据库的类在这里不解释; 控件写入 :‘列表框写入’就在‘控件写入’里面要调用先声明; data1.信息数据库:就是一个数据库的连接字符串存放在里面,使用时直接调用,不需要在写那么长的东西了; 名字 :是我把combobox控件的“name”属性改成的‘姓名’; sql :就是sql语句,上面一行 其实这个过程并不复杂,只是在调用过程当中又调用了一个别的过程 这样就可以将括号内的三个参数穿入到类过程中并执行,其实我也是初学者,以前自学了VB,刚接触VB.net 3天吧,把之前的vb代码,改成VB.net能识别的代码,但是过程真的很艰辛,因为发现网站的东西不是很多,虽说我本人也是菜鸟,英语也不懂(很多控件的name属性都打中文),这是第一次,把好的东西分享给大家,也算是抛砖引玉,希望能有更多的高手,把一些更高端的东西传上来,供大家学习交流