推荐回答
Sql行列转换实现:http://jingyan.baidu.com/article/495ba84106055238b20ede75.html。
齐春山2019-12-22 00:21:46
提示您:回答为网友贡献,仅供参考。
其他回答
-
dim rs as objectdim sql as string sql="select * from users where 姓名=''xx'' and 密码=''xx''" set rs=currentproject.connection.execute sql if rs.eof then msgbox "账号或密码错误!" else if rs2="有" then From1.Show elseif rs3="有" then From2.Show elseif rs4="有" then From3.Show else msgbox "啥权限都木有..." end if end if set rs=nothing以上代码,不太明白如果一个账号3个窗体都有权限,要开哪个?还是3个都开?另外,如果以后你的系统添加新功能,有了四号窗体,是不是还要修改users表的结构??通常用户表和权限表是分开的。
黄盛彬2019-12-22 00:38:10
-
很简单啊我给你举个例子,因为我不知道你表和字段是什么所以我随便起个名rs是记录集CN是一个新的连接,估计连接串你会写吧?下面是代码Setrs=cn.Execute"selecta,bfrom表名whereid=''"&Text1.Text&"''"''上面是把text1的结果赋值给sql语句dimstr,str1asstringstr=rs"a"''将查询出来的结果赋值给变量strstr1=rs"b"text2.text=str&str1''将变量赋值str和str1给text2。
窦迎美2019-12-22 00:10:32
-
vbsql语句中列名能不能用变量使用动态SQLDECLARE@sqlStrvarcharmaxDECLARE@fieldNamevarchar20SET@fieldName=''ProductNumber''SET@sqlStr=''SELECT''+@fieldName+''FROMProduction.Product''EXEC@sqlStr。
车广宇2019-12-22 00:00:59
-
''看你的代码不是vb6.0的,我有现成的vb.net下面的SQl操作模块,你直接调用就可以了''一共2个函数,DataModify用来更新数据库操作,Search用来查询数据库ImportsSystem.DataImportsSystem.IOImportsSystem.Data.SqlClientModuleModule1PubliccnAsNewSqlConnection"DataSource=ip地址或者电脑名;InitialCatalog=数据库名;UserID=用户名;Password=密码"''定义数据库连接PublicDataBaseRSTAsInteger''用来返回数据库执行结果---数据更新了多少条PublicFunctionDataModifyByValstrAsStringAsBoolean''进行数据库修改操作函数DimcmdinsertAsNewSqlCommandTrycmdinsert.CommandText=strcmdinsert.Connection=cnIfcn.State=ConnectionState.ClosedThencn.OpenDataBaseRST=cmdinsert.ExecuteNonQuery''用来返回执行的结果cn.CloseReturnTrueCatchexAsExceptionMessageBox.ShowErr.Description,"Error",MessageBoxButtons.OK,MessageBoxIcon.ErrorReturnFalseEndTryEndFunctionPublicFunctionSearchByValstrAsStringAsDataTable''查询str---查询命令tb是返回的数据表DimtbAsNewDataTableTryDimapAsNewSqlDataAdapterstr,cnap.FilltbReturntbCatchexAsExceptionMessageBox.ShowErr.Description,"Error",MessageBoxButtons.OK,MessageBoxIcon.ErrorReturnNothingEndTryEndFunctionEndModule''下面是调用举例----在窗体Form1类中的Button1按钮下PublicClassForm1PrivateSubButton1_ClickByValsenderAsSystem.Object,ByValeAsSystem.EventArgsHandlesButton1.Click''以下执行更新操作IfDataModify"deletefroma表wherea表字段1=''内容''"=TrueThenMsgBox"更新成功"ElseExitSubEndIf''下面执行查询操作DimtbAsDataTable=Search"select*froma表"IftbIsNothingThenExitSubEndIfIftb.Rows.Count>0ThenMsgBoxtb.Rows0.Item0.ToString''这里的tb.Rows0.Item0表示第一行第一列的值EndIfEndSubEndClass。
赵高兰2019-12-21 23:41:58