【文章內(nèi)容簡介】
o =39。 amp。 amp。 39。, xuehao, ) Dim rowindex As Integer = () If rowindex = 1 Then MsgBox(數(shù)據(jù)庫中未找到與此紀(jì)錄重復(fù)的數(shù)據(jù),可以存入!) Dim str As String = insert into chengji(xuehao, xingming, kemubianhao, kemufenshu, banjimingcheng) values (@xuehao, @xingming, @kemubianhao, @kemufenshu, @banjimingcheng) Dim As OleDbCommand = New OleDbCommand(str, mycon) (@xuehao, ).Value = (@xingming, ).Value = (@kemubianhao, ).Value = (@kemufenshu, ).Value = (@banjimingcheng, ).Value = () () () (信息已成功存入數(shù)據(jù)庫, 恭喜, , ) () (DataSet31) Else Beep() MsgBox(數(shù)據(jù)庫中次紀(jì)錄已存在,請重新輸入!) End If () () () () () End Sub}// 個人信息錄入代碼 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Or = Or = Then