问题应该出在你的查询语句的结果没有值,你用你的查询语句到SQL中是否有返回值?记得加上你的条件,另外,你语句里这一句是多余的.Dim s As Object = sComm.ExecuteScalar 以下语句测试正常 Dim myCn As New SqlClient.SqlConnection Try myCn.ConnectionString = sConnString myCn.Open() Dim mySQL As String = "SELECT * FROM ygzl" Dim sComm As New SqlClient.SqlCommand(mySQL, myCn) If sComm.ExecuteScalar Then Dim User_MainForm As New Form1 User_MainForm.Show() Else MsgBox("用户名或密码不正确,请重试!") End If Catch ex As Exception MsgBox(ex.Message) Finally myCn.Close() '关闭连接 End Try
网站建设哪家好,找成都创新互联公司!专注于网页设计、网站建设、微信开发、成都微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了逊克免费建站欢迎大家使用!
1:Access,建立数据库,数据库命名为Database1.mdb。
(注意:这里的后缀是MDB,如果Access是2007版本的,保存的时候要另存为2003版本的才行,因为,VB不直接支持07版的accdb后缀格式!)
2:数据库建立后就进入了数据表界面,可以输入数据了,输完以后CRRL+S保存,输入表名,这里表名为test,ok,准备工作搞定。
菜单中找到工程→部件→勾选 ,
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。
选择 ADODC控件和MSHFlexGrid控件,放在窗体的合适位置
设置ADODC控件的属性:
右键窗体内ADODC1控件
1:ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接,显示测试成功则ok,确定。
2:ADODC属性页→记录源→命令类型选择2-adcmdtable,表或存储过程名称选择之前建立的数据表test,点击确定,ADODC属性设置完成。
设置MSHFlexGrid控件的属性:
VB右侧属性表里,找到datasource,选择adodc1
就完事了
1.创建用户 create user 新建用户 密码
2.将登录的权限分配给新建的用户
grant login to 新建用户
我这里写的代码没有测试,需要具体测试修改一下,^_^
思路就是这样,
呵呵,希望能有帮助,^_^