Ⅰ 学生选课系统登录的源代码(asp+access)要怎么写
string ls_uname,ls_pwd1,ls_pwd2,ls_sno,ls_s1
ls_uname=sle_userid.text
ls_pwd1=sle_password.text
select userName
into :ls_sno
from userTB
where userName=:ls_uname;
if sle_userid.text="" or sle_password.text="" then
messagebox("提示","用户名或密码不能为空,请输入用户名或密码！")
//sle_userid.text=""
//sle_password.text=""
return
end if
select password
into :ls_pwd2
from userTB
where userName = :ls_uname ;
//sle_1.text=ls_sno
//sle_2.text=ls_pwd2
if ls_pwd1 = ls_pwd2 then
open(w_main)
close(w_login)
else
messagebox("错误","用户名或密码错误，请重新输入!")
sle_password.text=""
return
end if
大概的形式就是这样的
Ⅱ 求VB编程连接access数据库的源代码
'定义一个名为Db1的数据集
Public Db1 As ADODB.Connection
'初始化数据集
Set Db1 = New ADODB.Connection
'刷新初始数据
Db1.CursorLocation = adUseClient
'连接版数据库语句权
Db1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Results.mdb;Jet OLEDB:Database Password=;"
'查询语句
RS.Open " select avg(ab) from Results where ab >= 1 and ab =< 3 , Db1, adOpenStatic, adLockOptimistic
Ⅲ vb编写学生基本信息实现access数据库的增删改查
1）首先需要用Office软件中的Access软件建立一个学生基本信息数据库。表中新建几个表，可以是学生名册表，学生各专业课程分数登录表等等。
2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。
ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性来达到添加、删除、修改或查询。
5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。
6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。
典型的ADO数据控件的数据连接和查询代码：
PrivateSubCommand4_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:.MDB;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromAuthorswhereAuthor='Jacobs_Russell'"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndSub
典型的数据对象代码：
PrivateSubCommand11_Click()
DimcnAsNewADODB.Connection'定义数据库的连接
DimrsAsNewADODB.Recordset
DimsqlAsString
sql="select*fromguzhang_sj"'wheremadanhao='1'"
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"wd.mdb;PersistSecurityInfo=False"
cn.Open
rs.CursorLocation=adUseClient
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
SetMSHFlexGrid1.DataSource=rs
rs.AddNew
rs.Fields(0).Value="14"
rs.Update
EndSub