vb accsee数据库问题

来源:百度知道 编辑:UC知道 时间:2024/05/05 03:19:01
设定一个登陆界面 用户名和密码连接数据库文件 db1
我设定了一个模块代码如
Public con As New Connection
Public coon, coom As String
Sub main()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Program Files\X\db1.mdb;Persist Security Info=False"
con.Open Form1.Show
End Sub
然后想在一个窗体上添加用户名和密码 我的代码如下
Private Sub Command1_Click()

If (Text1.Text = "") Or (Text2.Text = "") Then
MsgBox "用户名和密码不能为空!", vbOKOnly, "错误"
Exit Sub
End If

sql = "insert into db1 (admin,password) values ('" + Text1.Text + "','" + Text2.Text + "')"
con.Execute (sql) '就这2行我弄不清楚有错没 到底是哪里错请高手看下
Unload Me
End Sub
没 使用社么控件 直接写的代码 数据库是access

密码text.box选用password..

用DATA控件或者是用ADODC控件..用起来比较简单

然后想在一个窗体上添加用户名和密码,这是什么意思啊?
是用用户名和密码来登录程序,还是要添加用户名和密码的数据?

要添加检查有没有已经存在的用户名 的功能

Source=F:\Program Files\X\db1.mdb;Persist Security Info=False"
Source="F:\Program Files\X\db1.mdb;Persist Security Info=False"