台灣最大程式設計社群網站
線上人數
474
 
會員總數:245021
討論主題:188965
歡迎您免費加入會員
討論區列表 >> VB6 >> VB6 連接SQL 搜尋是否重複資料後 如何抵擋SQL回彈的訊息
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VB6 連接SQL 搜尋是否重複資料後 如何抵擋SQL回彈的訊息
價值 : 20 QP  點閱數:305 回應數:1

樓主

蕭裴
門外漢
0 5
66 2
發送站內信

在VB上我設置一個 TEXT1 和一個按鈕
使用ADOBC連資料庫
目前在於新增使用者時要讓他不重複
所以在SQL上我把USR放入索引
按鈕的程式碼就 Adodc1.Recordset.Update
text1 有連上adobc1
當要新增時 無重複 就OK
當有重複 就出現偵錯
這個偵錯該如何抵擋
例如出現一個視窗顯示 "已有該使用帳號"





搜尋相關Tags的文章: [ 索引 adobc 偵錯 ] ,
本篇文章發表於2019-01-31 17:58
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
最有價值解答

樹哥
檢舉此回應
Private rscur As ADODB.Recordset
Dim k As Integer

Private Sub Command1_Click()
k = 0
rscur.MoveFirst
Do While Not rscur.EOF()
If Trim(Text1) = rscur!欄名 Then
MsgBox " 欄名 = " + Text1 + " 已 存 在 !! " + vbCrLf + " 請 重 新 輸入 ", vbCritical
k = 1
Exit Do
End If
rscur.MoveNext
Loop
If k = 1 Then
Text1.SetFocus
Exit Sub
End If
'***** 以下輸入新增資料

End Sub

Private Sub Form_Load()
k = 0
Set cn = New ADODB.Connection
cn.Provider = "MSDataShape"
cn.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= " + App.Path + "\XX.mdb"
cn.Open

mySQL = "SELECT * FROM yy資料表"
Set rscur = New ADODB.Recordset
rscur.Open mySQL, cn, adOpenStatic, adLockOptimistic

End Sub


本篇文章回覆於2019-02-02 08:59
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.