Question

vb6.0界面编程求助

本人没学过vb，对vb6.0也不熟，同学求助，希望能帮上忙，看了半天没搞定……一个非常非常简单的管理软件程序，需要给几个按钮加下代码实现动作对数据库内容显示的操作，熟悉vb的大侠们帮忙啊，我有76分，分全给了，先50，后面再追加~~~~~谢谢了，谢谢了！
加我qq啊 大侠们 543607425！！！

Answer 1

什么问题

Answer 2

vb6中用ado连接access数据库的例子（其它数据库也可参考）

'在工程里引用 microsoft activex data objects 2.7 library
'然后随便画个命令控件，在命令控件的单击事件里(click)输入以下代码
'以下是查询记录的代码：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& App.Path & "\1.mdb" '1.mdb 替换成你的数据库
cn.Open
rs.Open "select * from 表1 where 查询条件 ", cn, adOpenStatic, adLockOptimistic
do while not rs.eof
'这里编程输出查询结果
rs.MoveNext
loop
rs.Close

'修改记录：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb" '1.mdb 替换成你的数据库
cn.Open
rs.Open "select * from 表1 where 查询条件 ", cn, adOpenStatic, adLockOptimistic
do while not rs.eof
rs!字段1=内容
rs!字段2=内容
...
rs.MoveNext
loop
rs.Update
rs.Close

'添加记录：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb" '1.mdb 替换成你的数据库
cn.Open
rs.Open "select * from 表1 where 查询条件 ", cn, adOpenStatic, adLockOptimistic
do while not rs.eof
rs.AddNew
rs!字段1=内容
rs!字段2=内容
...
rs.MoveNext
loop
rs.Update
rs.Close

Answer 3

晕 没有学肯定不懂咯
我帮你

Answer 4

问题不详细！