【VB与数据库】红皮书5个小例子总结

5个小例子，折磨了我好几天，现在终于能运行了，但还有很多问题没弄清楚，这次就总结一下错误吧。

实例1：系统登录

代码错误：

（1）Dim objCn As New ADODB.Connection

          忘记输入ADODB

（2）strSQL = "SELECT 口令 FROM 系统用户 WHERE 用户名='" & txtUserName & "'"，

          txtusername输成username

（3）Trim(objRs.Fields("口令").Value)

          .value 点输成逗号了

（4）Provider=Microsoft.Jet.OLEDB.4.0;

          输成3.51了

实例2：使用ADO访问数据源

问题一、

 

 

看到问题想到的：

我建的数据库只有一个记录，为什么点前一记录时显示11？

想的过程：

由于此操作是cmdnext和cmdpre两个过程，故问题也应该出现在这儿。

查看前一记录和后一记录代码，发现区别。

Private Sub cmdNext_Click()

    

    DoSave

    

    objRs.MoveNext  '是下一记录成为当前记录

    

    '如果记录指针指向最后一个纪录之后，则使其指向最后记录

    

    If objRs.EOF Then objRs.MoveLast

    

    '显示当前记录数据

    

    txtUserName = objRs.Fields("用户名").Value

    

    txtPassword = objRs.Fields("口令").Value

    

    txtMsg = objRs.AbsolutePosition & "/" & objRs.RecordCount

    

End Sub

再看看前一记录的代码：

    Private Sub cmdPre_Click()

    

    DoSave

    

    objRs.MovePrevious  '是前一记录成为当前记录

    

    '如果记录指针指向第一个记录之前，则使其指向第一个记录

    

    If objRs.BOF Then objRs.MoveFirst

    

    '显示当前记录数据

    

    txtUserName = objRs.Fields("用户名").Value

    

    txtPassword = objRs.Fields("口令").Value

    

    txtMsg = objRs.AbsolutePosition & objRs.RecordCount

    

End Sub

怎么样，在最后一句代码中少输入了"/"，改正后就可以正常运行了。

实例3：使用数据绑定

问题一、测试连接成功后未点击确定，直接关闭窗口，结果未生成连接字符串，太粗心了。

 
 

问题二、运行后adodc2控件的按钮为灰色。

 

解决：

1、查看enabled属性，enabled属性为true，不是这儿的问题；

2、上网查，发现

 

 

 按照其敲完后就可以了

 

问题三、保存后通过工程1.vbp打开，正常运行；通过form1.frm打开出现问题：

 

出现：

 

加载错误，参见form1.log。好晕啊！

 

上网查，也没查出原因，以前可以通过form1.frm打开的啊。

点击确定，发现Adodc控件成这样了：

 

运行程序：

这到底咋回事儿，还请大神赐教！

 

 实例4：分页显示记录

实例要求：要实现

 

再看看代码

 

所以创建数据库时除了添加用户名和口令，还要再添加一个字段，方可与数据库建立连接。

实例5：数据查询

问题：运行时路径错误，仔细查看，已解决。

 总结：

1、查错：

调试——逐字句——运行——确定——F8，如果有错会直接跳过，不执行。

2、敲代码时不要只敲，要细心，代码中有错的要好好找找，想想为什么这样写。

3、认真点，遇到不懂的代码要动手查查