資料庫新增步驟 vb6 0

一"

定義相關量

乙個結果集,

用來儲存結果,

更新結果

第乙個字串,

用來儲存sql

語句,查詢位置

乙個字串,

用來儲存查詢函式的查詢狀態

dim mrc as adodb.recordset

dim txtsql as string

dim msgtext as string

第二:

驗證資料的有效性. 1:

是否為空

使用了函式

sub testtxt(txt as striing) as boolean

if trim(txt)="" then

testtxt=false

else

testtxt=true

end if

end function

2:學號等字段是否為數字,

利用函式

if not isnumeric(trim(txtsid.text)) then

msgbox "

請輸入數字", vbokonly + vbexclamation, "

警告"

exit sub

txtsid.setfocus

end if

3:數字是否重複

txtsql = "select *from student_info where student_id='" & trim(txtsid.text) & " '"

set mrc = executesql(txtsql, msgtext)

if mrc.eof = false then

msgbox "

學號重複,

請重新輸入", vbokonly + vbexclamation, "

警告"

mrc.close

txtsid.setfocus

…... 4

日期格式是否正確

txtbirthday = format(txtbirthday, "yyyy-mm-dd")

if not isdate(txtcomschool.text) then

msgbox "

入校時間應為日期格式(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.addnew

mrc.fields(0) = trim(txtsid.text)

mrc.fields(1) = trim(txtname.text)

mrc.fields(2) = trim(cbo***.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.update

msgbox "

新增學籍資訊成功", vbokonly + vbexclamation, "

提示"

mrc.close

me.hide

資料庫新增步驟 vb6 0

一 定義相關量 乙個結果集 用來儲存結果 更新結果 第乙個字串 用來儲存 sql語句 查詢位置 乙個字串 用來儲存查詢函式的查詢狀態 dim mrc as adodb.recordset dim txtsql as string dim msgtext as string第二 驗證資料的有效性.1 ...

資料庫刪除記錄核心語句 解讀 vb6 0

str2 msgbox 是否刪除當前記錄?vbokonly vbexclamation,提示 if str2 vbok then mrc.movenext if mrc.eof then mrc.movefirst mybookmark mrc.bookmark mrc.movelast mrc.d...

資料庫刪除記錄核心語句 解讀 vb6 0

str2 msgbox 是否刪除當前記錄?vbokonly vbexclamation,提示 if str2 vbok then mrc.movenext if mrc.eof then mrc.movefirst mybookmark mrc.bookmark mrc.movelast mrc.d...