Question

VB编程超市管理系统1

高手们帮看下我这代码咋运行不了？提示错误424！谢谢
Private backFile As String
Private qs As String
Private buff As String
Dim pnum As Integer

Private Sub Command1_Click()
Set cg1 = cnn.Execute("select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
If cg1.EOF = True Then '如果没有记录则说明用户或密码为错误的
If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出
pnum = pnum + 1
MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"
End
End If
Else
loginname = cg1.Fields(0)
Unload Me
Form2.Show
End If
Exit Sub
finish:
MsgBox Err.Description
End Sub

Private Sub Form_Load()
addtrans App.Path '连接数据库
End Sub

Private Sub XPButton2_Click()
End
End Sub
Public Sub addtrans(tkFileName As String)
Dim backfila As String
backfila = Date
End Sub
就想做个VB用adodc连接access数据库实现登陆窗体！前提是纯代码而非字符串方式连接~~

Answer 1

我先不管你细节错误，连接数据库你是怎么连的，用什么方法？
addtrans App.Path 是个什么过程？你没写对啊，完全错误
还有VB中你可以直接unload你的启动窗体吗？好象只能隐藏吧

Answer 2

你连接数据库的函数中压根就没连接嘛
也没看到具体的对象的创建和使用。
还有你tkfileName这个参数应该是一个数据库的地址。也没见你具体使用
估计刚刚上路吧。多看看书，

Answer 3

addtrans那你错了
那个程序是做什么用的，把完整的代码贴出来

Answer 4

朋友啊??自己去思考这件事情我已经在互联网上做一个8`
没人回应???????????
我们期待实现远远超过` BR />即使它是错误的，要求
然后有人给你``
不会联机，其中详细