Ⅰ 學生選課系統登錄的源代碼(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