學生管理系統 重要語句的學習

資料庫建立串連的方式

(1)通過代碼 擷取 :

如:

Dim objCn as new connection ,objRs as new Recordset,strCn as String

Connection 連線物件

Recordset 結果集 用於儲存結果

String 用於儲存串連的地址 字元資料

如

objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=" & App.Path & "\執行個體1.mdb" objCn.Open

開啟串連

(2) 通過ODBC資料來源串連

建立資料來源

然後串連

Set objCn=new connection objCn.open “DSN=執行個體 DSN”set objRs=new recordset

 

(3) 採用資料繫結

控制項串連

Ado data 控制項 右擊屬性中設計 串連

可以綁定到內部控制項,和一些activateX

控制項

 

 (4) 顯示資料控制項

DataGrid控制項 顯示記錄集的全部資料

MSFlexGrid 控制項

 

 資料庫添加方法（VB6）

定義相關量

一個結果集,用來儲存結果,更新結果

第一個字串 ,用來儲存sql語句,查詢位置

一個字串,用來儲存查詢函數的查詢狀態

 

Dim mrc As ADODB.Recordset    Dim txtSQL As String    Dim MsgText As String

 

第二:

驗證資料的有效性.

1:

是否為空白

使用了函數

 

Sub TestTxt(txt as striing) as booleanIf trim(txt)="" thenTesttxt=falseElseTesttxt=trueEnd ifEnd function  

2:

學號等欄位是否為數字,

利用函數

If Not IsNumeric(Trim(txtSID.Text)) ThenMsgBox "請輸入數字 ", vbOKOnly + vbExclamation, "警告"Exit SubtxtSID.SetFocusEnd If  

3:

數字是否重複

txtSQL = "select *from student_Info where student_ID='" & Trim(txtSID.Text) & " '"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "學號重複,請重新輸入", vbOKOnly + vbExclamation, "警告"mrc.ClosetxtSID.SetFocus…...  

4

日期格式是否正確

txtBirthday = Format(txtBirthday, "yyyy-mm-dd")If Not IsDate(txtComSchool.Text) ThenMsgBox "入校時間應為日期格式(yyyy-mm-dd)", vbOKOnly + vbExclamation, "警告"txtComSchool.SetFocus…...

5

字元長度是否合格

在資料庫表中,右擊開啟設計表,能看到每個資料的最大長度,填充的資料不要超過給定長度

 

三在表單啟動時載入填充資料的選擇項

 

比如要添加班級

 

txtSQL = "select * from class_Info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

 

For i = 1 To mrc.RecordCount

cboClass.AddItem mrc.Fields(0)

mrc.MoveNext

Next i

 

mrc.Close

 

四 :向資料庫中添加資料,

添加資料庫的sql語句

 

txtSQL="select * from student_Info "'' student_Info 資料庫表名稱 Set mrc=executeSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0) = Trim(txtSID.Text)mrc.Fields(1) = Trim(txtName.Text)mrc.Fields(2) = Trim(cboSex.Text)mrc.Fields(3) = Trim(txtBirthday.Text)mrc.Fields(4) = Trim(cboClass.Text)mrc.Fields(5) = Trim(txtTel.Text)mrc.Fields(6) = Trim(txtComSchool.Text)mrc.Fields(7) =Trim(txtHomeAddress.Text)mrc.Fields(8) = Trim(txtComment.Text)mrc.UpdateMsgBox "添加學籍資訊成功 ", vbOKOnly + vbExclamation, "提示"mrc.CloseMe.Hide