关于VB操作数据库的问题，请高人解答一下

有没有人帮忙解答一下啊

首先很感谢您的解答，但是请恕我新手愚钝，对于main函数还不了解，能否给我详细解答一下，我把我做的一个示例上传，麻烦帮我改成使用main函数启动并加载数据库成不？我做的每次到数据查询、插入操作的时候总是反应很慢，麻烦帮我修改一下吧，谢谢了！

我现在没办法改这些程序里了。

在 WIN7 里，这个机子，不能装完全版的 VB6 ，很多东西都没办法看。
很多代码，我都是用记事本在看。

main 函数。
在工程属性里，选择启动 为 哪个窗口 或 MAIN 函数。

大工程，一般就建议使用 MAIN 函数启动
小工程，一般就建议 使用 Form1 启动。

这个函数，就是相当于 Form1_Load 过程。但这个函数执行时，可以不加载窗体就直接执行。
适合系统初始化需要处理事务需要。

main函数只有一个，在模块里定义,你提供的代码我看了，函数写的很不科学。用函数和子程序的原则是1：功能单一，仅完成某一项功能即可 2：函数中不要使用全程变量，即使实际上使用了全程变量，也使用传值的方式单列开。我对你的程序修改后代码如下，我是用的sql2000,模拟你的资料，建了个usertable表，里面有个admin名和admin的记录，运行通过，代码如下：

'模块里代码
Public LoginSucceeded As Boolean        '登陆成功标记
Public conn As New ADODB.Connection

Public Function OpenCn(con As Connection) As Boolean       '连接数据库
  On Error Resume Next
  OpenCn = False
  If con.State = 1 Then
    '数据库连接已经打开，设置打开标志即退出，无需重复打开数据库
    OpenCn = True
    Exit Function
  End If
  con.ConnectionTimeout = 10
  SQL = "driver={sql server};server=(local);uid=sa;pwd=;Database=demo"
  con.ConnectionString = SQL
  con.Open
  If con.State = 1 Then OpenCn = True
End Function


Public Sub cloCn(con As Connection)     '关闭数据库
  On Error Resume Next
  If con.State <> adStateClosed Then con.Close
  Set con = Nothing
End Sub

Public Function openRs(ByVal strsql As String, rs As Recordset) As Boolean     '打开记录集
  On Error Resume Next
  openRs = False
  If rs.State = 1 Then rs.Close                                              '如果记录集是打开状态则先关闭
  With rs
    .ActiveConnection = conn
    .CursorLocation = adUseServer         '由于使用的是sql server，这里游标是adUseServer
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open strsql
  End With
  If rs.State = 1 Then openRs = True
End Function

Public Sub cloRs(rs As Recordset)
  On Error Resume Next
  If rs.State <> adStateClosed Then rs.Close
  Set rs = Nothing
End Sub



'这是我写的main函数
Sub Main()
  If Not OpenCn(conn) Then
    MsgBox "数据库连接失败，请检查数据库", , "提示"
    End
  End If
  login.Show
End Sub

'login里代码，我没有写info代码，你自己琢磨下
Private Sub Command1_Click()
  Dim str As String, rs As New Recordset
  Dim str1 As String
  If Trim(Text1) = "" Or Trim(Text2) = "" Then
    MsgBox "用户名或密码不能为空", , "错误提示"
    Text1.SetFocus
  End If
  str = "select * from usertable where username='" & Trim(Text1) & "' and userpasswd='" & Trim(Text2) & "'"
  If Not openRs(str, rs) Then
    MsgBox "数据库记录不能打开，请检查数据库", , "错误提示"
    End
  End If
  If Not rs.EOF Then
    Info.Show
    cloRs rs
    Unload Me
  Else
    MsgBox "用户名或密码错误，请检查", , "错误提示"
    Text1.SetFocus
  End If
End Sub

还有一个问题，就是每次插入数据或者修改数据的时候，总是有明显的滞后现象，不是点击添加按钮后就立马添加成功，感觉好慢，这个是什么原因？

你这不是要我做你第二个功能么？如果你数据库连接正确，代码简洁优化，那就一定是实时的。我曾经做的sql server同时带200个客户端，并且各客户端最远距离服务器超过30公里，登记数据都没有延迟现象，你是访问本地sql server，更不可能出现你说的情况，你检查下你的代码吧。只要思路清晰，就不会乱填代码，不要过份照搬别人的，要消化吸收才是自己的。

[ 本帖最后由 lowxiong 于 2013-8-16 18:56 编辑 ]