在vb加access查询中，如何查找某一字段中，在一个范围内的记录
推荐回答
ImportsSystem.DataPublicClassForm1DimcnAsNewOleDb.OleDbConnectionDimcdAsNewOleDb.OleDbCommandDimdrAsOleDb.OleDbDataReader''获取当前路径DimstrpathAsString=System.IO.Directory.GetCurrentDirectoryPrivateSubForm1_LoadByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesMyBase.Load''填入一个存在的字段数据MsgBoxreadData"xxx"EndSubFunctionreadDataByValsAsStringAsstringDimiAsIntegercn.ConnectionString="provider=microsoft.jet.oledb.4.0;datasource="&strpath&"\infor.mdb"cd.Connection=cncd.CommandText="select*from表明where字段名=''"&s&"''"cd.Connection.OpenIfdr.HasRowsThen''我在第一个字段中设计为自动编号dimiasinteger=dr.Item0msgbox"此数据在第"+i+"行"''返回对应的字段值returndr.item3EndIfEndFunctionEndClass。
黄盱宁2019-12-22 00:22:37
提示您：回答为网友贡献，仅供参考。
其他回答
-
改为如下，用循环方法，先在数据库中找到要修改记录的ID后,再修改。PrivateSubCommandxiugai_ClickDimKAsIntegerDimrsAsADODB.RecordsetDimconnAsADODB.ConnectionDimsqlStrAsStringSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\雅颜の小铺会员管理系统\xinjianhy.mdb;PersistSecurityInfo=False"sqlStr1="select*fromxjhy”rs.OpensqlStr1,conn,adOpenKeyset,adLockOptimisticIfNotrs.EOFThenrs.MoveFirstEndIfForK=1Tors.RecordCountIfrs=trimText1.textthenr提交修改s"MONEY”=ValText3.Textrs.UpdateMsgBox"修改成功！",vbOKOnlyGoto100Endifrs.MoveNextNextKMsgBox"修改失败！",vbOKOnly100Rs.closeSetconn=nothingEndsub。
齐晓梅2019-12-22 00:55:05
-
PrivateSubCommand1_ClickDimConnAsNewADODB.ConnectionDimRsAsNewADODB.RecordsetConn.Openconnstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&“数据库的路径和名字”&";PersistSecurityInfo=True;JetOLEDB:DatabasePassword=&"数据库密码"sql="Select*From“&”表名"&whereID=20"Rs.Opensql,Conn,1,3IfNOTrs.eofthenm_date=rs"日期型字段的名字"m_data=rs"数值型字段的名字"endifendsub。
黄益晓2019-12-22 00:38:47
-
1、增加字段：CStringmsql="ALTERTABLEstudentADDCOLUMNziduanchar50";mdatabase.ExecuteSQLmsql;//添加名为zizhuan的字段到名为student的表中。2、新纪录：msqlstr="INSERTINTOstudent学号,姓名,数学VALUES''2019'',''jack'',''99''";mdatabase.ExecuteSQLmsql;//添加学号为2019，姓名为jack，数学为99的一行记录到表student中。3、删除：CStringmsql=“DELETEFROMstudentWHERE学号=''2019''”;mdatabase.ExecuteSQLmsql;//删除学号为2019的一行记录。
赵颖霞2019-12-22 00:11:35
-
在数据库查询中，并没有查询到几排几列这种说法，或许你需要的是查询他们的ID？selectidfrom表名wherenamelike''%''''''+李+''''''%。
赵首永2019-12-22 00:02:15