哪位高手帮忙写一个vb.net的，封装好的更新的类。最好是加上'注释，越多越好，兄弟新手，解释的详细点！谢谢！

显示全部楼层 · 2021-1-27 06:48:25

已定义的数据库字符串是myAccessConn，总之借鉴下这个！
PrivateSubSelectDate(ByValConnAsOleDbConnection,ByRefdtsAsDataSet,ByValstrSqlAsString)
DimcommandAsOleDbCommand=NewOleDbCommand(strSql,Conn)
DimdtadapterAsOleDbDataAdapter=NewOleDbDataAdapter(command)
dtadapter.Fill(dts)
EndSub
另外，在其他界面调用的时候调用语句怎么写啊？比如，这个封装类写在from1中，我要在from1中调用怎么写，我要在from2中调用又该怎么写。高手指教！！！

分 -->

千问 · 2021-1-27 06:48:25

写在类里面，用的时候
DIMAAASNEW操作类的名字

千问 · 2021-1-27 06:48:25

这个是查询类，我想问更新类是怎么写的，兄弟初学，所以不会，

千问 · 2021-1-27 06:48:25

publicsheardSubSelectDate(ByValConnAsOleDbConnection,ByRefdtsAsDataSet,ByValstrSqlAsString)
DimcommandAsOleDbCommand=NewOleDbCommand(strSql,Conn)
DimdtadapterAsOleDbDataAdapter=NewOleDbDataAdapter(command)
dtadapter.Fill(dts)
EndSub

别的窗体直接用selectdata(conn,ds,sql)就好了嘛

千问 · 2021-1-27 06:48:25

查询和更新出了sql语句的不同，其他都一样。

PublicFunction更新用户密码(ByVal用户名AsString,ByVal用户密码AsString)AsBoolean
If判断合法密码(用户密码)=FalseThen
错误描述="用户密码不合法，只许可大小写字母及数字"
ReturnFalse
ExitFunction
EndIf
DimSQL语句AsString="UPDATE登录SET用户密码='"&用户密码&"'WHERE用户名='"&用户名&"'"
UsingcnAsNewSqlConnection(连接字符串())
Try
cn.Open()
DimcmdAsNewSqlCommand(SQL语句,cn)
DimTpiAsInteger=cmd.ExecuteNonQuery()
returntrue
CatchexAsException
错误描述=ex.ToString
ReturnFalse
EndTry
EndUsing
EndFunction

千问 · 2021-1-27 06:48:25

去网上找个sqlHelper按照自己的要求改一下就行了

哪位高手帮忙写一个vb.net的，封装好的更新的类。最好是加上&#x27;注释，越多越好，兄弟新手，解释的详细点！谢谢！

哪位高手帮忙写一个vb.net的，封装好的更新的类。最好是加上'注释，越多越好，兄弟新手，解释的详细点！谢谢！