vb6.0中的控件list怎样调用数据库中的东西。

listbox 不能够连接数据库，只能先读出数据库数据，再添加到list里面,建议你用MSHFlexGrid控件'MSHFlexGrid *** 作参考: Private Sub LoadMSHFlexGridData Dim As New ADODBConnection, rs As New ADODBRecordsetOpen "DRIVER=Microsoft Access Driver mdb; DBQ= " & AppPath & "\数据库mdb;User Id=admin;Password=;" rsOpen "select from 表名", adOpenKeyset, adLockBatchOptimistic Set MSHFlexGridDataSource = rs End Sub'这样就可以把数据放到MSHFlexGrid里面,然后用list1AddItem "值" ，就可以把想要的东西加载到listbox控件里了我现在只想把数据库中的东西读出到listbox控件中来显示。不需要连接数据库。adodc 跟data不支持list 我们只有自己编写编码把数据库中的值赋给listbox中来了。但是这个代码我不会写。

VB6与数据库的连接方法很多，取决于你的目的，如果你主要是为了把数据按照传统的表格方式展现出来，那么你可以用DBGrid之类的控件，里面可以设置数据源，然后自动他就会自动获取数据源里面的信息并显示出来，也可以进行一些简单的数据修改 *** 作。如果你想要对数据进行比较复杂的程序处理，那么可以使用ADO对象来连接和查询数据库，里面有一个RecordSet对象，可以对查询的结果进行遍历，分析等。

对Access数据库加密一般都是使用Access软件实现吧？我不清楚代码怎么实现，但是用软件就只需要在菜单 *** 作就可以了。具体来说就是文件菜单选择打开，在”打开“后面的下拉式莱单中选为独占模式打开，这样打开文件后，使用工具菜单里面的安全，里面就有设置数据库密码

首先要在工程的引用中选上Microsoft ActiveX Data Objects 25 Library

然后在事件中就可以定义相关的变量进行连接了

下面的例子可能对您有用：

Private Sub Command1_Click()

Dim Conn As New ADODBConnection

Dim Rs As New ADODBRecordset

ConnOpen connstring ="Provider=MicrosoftJetOLEDB40;Data Source=" & “数据库的路径和名字” & ";Persist Security Info=True;Jet OLEDB:Database Password= & "数据库密码"

sql = "Select From “ & ”表名" & where ID=20"

RsOpen sql, Conn, 1, 3

If NOT rseof then

m_date= rs("日期型字段的名字")

m_data= rs("数值型字段的名字")

end if

上面的例子实现了查询

如果是要添加,删除,更新等 *** 作,只要编写相应的SQL语句,再用

ConnExecute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

ConnExecute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

ConnExecute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

ConnExecute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

以上就是关于vb6.0中的控件list怎样调用数据库中的东西。全部的内容，包括:vb6.0中的控件list怎样调用数据库中的东西。、VB6.0怎么与外部Access数据库连接、vb 6.0 如何连接access accdb 数据库呢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！