Question

vb 遍历datatable中的数据,与textbox中的值比较,是否重复

如图,比较datatable中的数据,是否与textbox中的值重复,,不重复则添加
不是使用数据库绑定的

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
cn.open ...
strsql="select * from datatable where fieldname='" & textbox.text & "'"
rs.Open strsql, cn, adOpenKeyset, adLockOptimistic
if rs.RecordCount<=0 then
rs.addnew
rs.fieldname=textbox.text
rs.update
end if
rs.close
大概就是这样吧